excel VBA双击转到单元格值

Question

我有一个代码，可以将值从一个范围内的单元格复制/粘贴到目标单元格

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Range("A2:A1000"), Target) Is Nothing Then
        Application.EnableEvents = False
        Range("B1048568") = Target
        Cancel = True
        Application.EnableEvents = True
    End If
End Sub

我需要更改哪些值才能执行“转到”而不是复制/粘贴？ 我在列“A”上有一个值列表，在单元格“D：Z”上有相同的值 我希望通过双击“A”列中的单元格转到范围为“D：Z”的具有相同值的单元格

Answer 1

您需要找到该单元格，然后使用该单元格的Activate方法。