基于单元格值的Excel跨工作表光标跳转VBA需求及问题

先说说你现有代码的几个问题：

• 不该把整个G3:G3000区域的值塞给字符串变量，得取当前点击的那个G列单元格的值
• 目标工作表名写错了，你要找的是Claims data，代码里写成Voices data了
• 核心的查找匹配逻辑完全没做，只是选中了F列一片区域，根本没定位到对应值的单元格

下面给你两种符合需求的实现方式：

方式1：双击G列单元格触发定位 #

打开Costs for claims工作表的代码编辑器（右键工作表标签→查看代码），粘贴以下代码：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 只处理G列且单元格有内容的情况
    If Target.Column = 7 And Target.Value <> "" Then
        Dim targetValue As String
        Dim matchCell As Range
        
        targetValue = Target.Value
        ' 在Claims data的F列精确查找对应值
        Set matchCell = Sheets("Claims data").Range("F:F").Find(What:=targetValue, LookIn:=xlValues, LookAt:=xlWhole)
        
        If Not matchCell Is Nothing Then
            Sheets("Claims data").Activate
            matchCell.Select
            Cancel = True ' 取消默认双击进入编辑模式的行为
        Else
            MsgBox "没找到对应值: " & targetValue
        End If
    End If
End Sub

方式2：按回车键触发定位 #

同样在Costs for claims的代码编辑器里，添加这段键盘事件代码：

Private Sub Worksheet_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ' 只处理G列单元格且按下回车的情况
    If ActiveCell.Column = 7 And KeyCode = vbKeyReturn Then
        Dim targetValue As String
        Dim matchCell As Range
        
        targetValue = ActiveCell.Value
        Set matchCell = Sheets("Claims data").Range("F:F").Find(What:=targetValue, LookIn:=xlValues, LookAt:=xlWhole)
        
        If Not matchCell Is Nothing Then
            Sheets("Claims data").Activate
            matchCell.Select
            KeyCode = 0 ' 取消默认回车换行的行为
        Else
            MsgBox "没找到对应值: " & targetValue
        End If
    End If
End Sub

补充说明 #

• LookAt:=xlWhole是确保精确匹配XXX_YYYY格式的值，不会出现部分匹配的错误
• 加了空值判断和未找到时的提示，用起来更顺手

内容的提问来源于stack exchange，提问作者Starec