VBA循环中VLookup失效求助：跨工作表数据匹配问题

没问题，我帮你找出代码里的问题并修正它！你的代码有几个关键错误导致无法正常运行，我会逐一说明并给出修正后的版本：

代码里的核心问题 #

• 未定义wsThat变量：你在代码里引用了wsThat但从来没有声明和赋值，VBA根本不知道它指向哪个工作表。
• 遍历范围错误：你说要对SyS表的G列执行查找，但代码里循环的是A1:E65000区域，完全不符合你的需求。
• VLOOKUP查找区域错误：你应该用CONF_mapping表的A1:E65000作为查找范围（因为匹配依据是A列），但你写的是wsThat.Range("G2:G65000")，这完全不对。
• 多余的复制操作：开头把CONF_mapping的B列复制到SyS的H列，会直接覆盖你想用VLOOKUP填充的数据，这个操作是多余的。
• 错误处理不够优雅：依赖On Error Resume Next来跳过错误不是最佳实践，我们可以用更可控的方式处理查找不到的情况。

修正后的完整代码 #

Sub SyS_VLookup_Fix()
    Dim wsSyS As Worksheet
    Dim wsMapping As Worksheet
    Dim lookupRange As Range
    Dim targetCell As Range
    Dim returnColumn As Integer ' 定义要返回的列索引（A=1, B=2, C=3...）

    ' 初始化工作表对象
    Set wsSyS = ThisWorkbook.Worksheets("SyS")
    Set wsMapping = ThisWorkbook.Worksheets("CONF_mapping")
    ' 设置CONF_mapping的查找范围（匹配依据是A列，范围A1:E65000）
    Set lookupRange = wsMapping.Range("A1:E65000")
    ' 设置要返回的列：比如要返回CONF_mapping的B列就写2，C列写3，以此类推
    returnColumn = 2

    ' 遍历SyS表的G列（从G2开始，跳过表头；如果需要从G1开始，改成G1:G65000）
    For Each targetCell In wsSyS.Range("G2:G65000")
        ' 跳过空单元格，提升运行效率
        If targetCell.Value <> "" Then
            Dim lookupResult As Variant
            ' 使用Application.VLookup，找不到匹配时返回错误值而非抛出异常
            lookupResult = Application.VLookup(targetCell.Value, lookupRange, returnColumn, False)

            ' 将结果写入H列（G列右侧第1列）
            If Not IsError(lookupResult) Then
                targetCell.Offset(0, 1).Value = lookupResult
            Else
                targetCell.Offset(0, 1).Value = "Not Found"
            End If
        End If
    Next targetCell
End Sub

关键修正说明 #

1. 明确的工作表对象：用wsSyS和wsMapping分别指向两个工作表，代码更清晰，也避免了未定义变量的问题。
2. 正确的遍历范围：现在遍历的是SyS表的G列，完全符合你的需求。
3. 正确的VLOOKUP参数：查找范围设为CONF_mapping的A1:E65000，匹配依据是该范围的第一列（A列），你只需要调整returnColumn的值来指定要返回的列。
4. 可控的错误处理：用Application.VLookup替代WorksheetFunction.VLookup，找不到匹配时返回错误值，我们用IsError判断后设置"Not Found"，比依赖错误捕获更可靠。
5. 效率优化：跳过空单元格，避免对空值执行不必要的查找操作。

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