修法布施得聪明智慧，多分享让生活更美好。在工作中使用Excel处理数据时，选当前表数据一单元格，怎能实现自动跳转另表相同单元格数据，如果用超链接处理，数据多一个处理很不方便，不便数据管理，下面举一例来说明快速自动跳转方法。工具/原料moreMicrosoft Office Excel 2007Excel VBA实例问题1/1分步阅读

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

处理方法/步骤1/7

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

2/7

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

3/7

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

4/7

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

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/7

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

6/7

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

7/7

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

选择事件VBA选单元格跳转EXCEL新超链接