如何用excel vba做到点击表1中一个数据，会自动跳转到表2中相同的数据？
发布网友
发布时间：2022-10-08 13:47
共1个回答
热心网友
时间：2023-11-11 02:10
如图，右击Sheet7的工作表名，选“查看代码”，把下面代码复制到代码页即可。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim R As Range
On Error Resume Next
If Target.Column = 6 And Target > 0 Then
Set R = Sheets("Sheet12").Range("C:C").Find(Target, , , xlWhole)
If R Is Nothing Then
MsgBox "在工作表<Sheet12>的C列中没有找到内容为“" & Target & "”的单元格。"
Else
Sheets("Sheet12").Activate
R.Select
End If
End If
End Sub
