选定单元格跳转到另一工作表中对应单元格

xuminglei2003

求助各位大佬，附件用activate 提取了另一工作表的标题作为目录，用什么方法可以点击目录中的单元格跳转到另一工作表的标题！

fyure

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.   If Target.Row = 1 Or Target.Column > 1 Then Exit Sub
   
3.   Worksheets(2).Activate
   
4.   ActiveSheet.Range(Target.Offset(0, 1).Value).Select
   
5. End Sub
   

复制代码

AVEL

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range
    If Not Intersect(Target, [a2:a1000]) Is Nothing Then
        If Target.Count = 1 Then
            Set rng = Sheet2.[a:a].Find(Target.Value, , , 1)
            If Not rng Is Nothing Then Sheet2.Activate: rng.Select
        End If
    End If
End Sub

xuminglei2003

谢谢大佬，根据你的方法重新修改了一下，在A列空值的时候进行限制就OK了