不同的工作表，相同的价值

Question

我希望能够点击一个按钮，它会将我带到另一个工作表单元格，其中此单元格的值与原始工作表中一个单元格的值相同。

工作表1：

工作表2：

当我点击WS1上的蓝色按钮时，应保存c1的值，然后转到WS2单元格，其值与ws1中的c1相同。在这种情况下，它应该带我到A1。

Answer 1

试试这个......

Sub Find()
AA = Selection.Value

Sheets("WS2").Range("A1").Select
Cells.Find(What:=AA, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , SearchFormat:=False).Activate
End Sub