1、首先打开上例文件，如下图。
2、鼠标移到当前工作表标签栏“A”表，右键，弹出快捷菜单，如下图。
3、在快捷菜单找到【查看代码】并单击，打开VBA（宏）编辑界面，如下图。
4、在左边代码框中复制下面代码到该框中，就完成编写代码任务。如下图。Option Ba衡痕贤伎se 1Private Sub Worksheet_S髫潋啜缅electionChange(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 IfEnd Sub
5、如上步骤操作过程如下动画图。
6、下面看下神奇的运行结果，回到当前表格当窗口，选A表A列数据时自动B表A列相同数据（多个时同时选中）。
7、如果觉得这篇经验帮到了您，请点击下方的 “投票点赞" 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！
