工作表1和2A列单元格分别填有1，2，3等数，编一宏，点击表1A列某数，使链接到2表A列同一数。谢谢！

右击工作表1标签》查看代码》粘贴下面的代码即可

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo E
If Target.Column > 1 Then Exit Sub
With Sheets("工作表2")'工作表名称根据实际修改
r = Application.WorksheetFunction.Match(Target, .[a:a], 0)
If r > 1 Then
.Select
.Cells(r, 1).Select
End If
End With
E: End Sub

对补充问题的回复：
代码所在工作表的名称无所谓，被链接的工作表名称才是要注意的。