Excel选当前表单元格数据跳转另表相同单元格

1、表A里面A列的单元格数值，在表B里的A列都能找到。怎么样实现：点击表A里面的A列任意一个单元格，自动跳转到表B里A列对应的数值。

1、首先打开上例文件，如下图。

2、鼠标移到当前工作表标签栏“A”表，右键，弹出快捷菜单，如下图。

3、在快捷菜单找到【查看代码】并单击，打开VBA（宏）编辑界面，如下图。

4、在左边代码框中复制下面代码到该框中，就完成编写代码任务。如下图。

Option Base 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'2020-1-8 21:32:34

  Dim m, r As Long, i As Long, mb(), k As Long, n

  If Target.Column = 1 Then

      m = Target.Value

      r = ThisWorkbook.Worksheets("B").Range("a65536").End(xlUp).Row

      k = 0

      ReDim mb(r)

      For i = 1 To r

          If m = ThisWorkbook.Worksheets("B").Range("a" & i).Value Then

             k = k + 1

             mb(k) = ThisWorkbook.Worksheets("B").Range("a" & i).Row

          End If

      Next i

  End If

  If k = 0 Then Exit Sub

  ThisWorkbook.Worksheets("B").Select

  If k = 1 Then

      ActiveSheet.Range("a" & mb(k)).Select

  Else

     For i = 1 To k

         If i = 1 Then

           n = "a" & mb(i)

         Else

           n = n & "," & "a" & mb(i)

         End If

     Next i

     ActiveSheet.Range(n).Select

  End If

End Sub

5、如上步骤操作过程如下动画图。

6、下面看下神奇的运行结果，回到当前表格当窗口，选A表A列数据时自动B表A列相同数据（多个时同时选中）。

7、如果觉得这篇经验帮到了您，请点击下方的 “投票点赞" 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！