VBA跨表VLOOKUP代码失效求助：范围设置不当问题

我来帮你排查并修复这个VBA代码问题！先上能满足你需求的可运行版本，再拆解可能导致原代码失效的常见问题：

Sub CrossSheetLookup()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim lookupValue As Variant
    Dim matchRow As Variant
    
    ' 直接定义工作表对象，避免用Activate/Select（容易因焦点切换出错）
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    
    ' 精准获取Sheet1 A列的最后一行数据行
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    ' 精准获取Sheet2 G列的最后一行数据行
    lastRow2 = ws2.Cells(ws2.Rows.Count, "G").End(xlUp).Row
    
    ' 遍历Sheet1 A4到最后一行的所有数据
    For i = 4 To lastRow1
        lookupValue = ws1.Cells(i, "A").Value
        ' 跳过空单元格，避免无效查找
        If lookupValue <> "" Then
            ' 在Sheet2 G列查找匹配值
            matchRow = Application.Match(lookupValue, ws2.Range("G1:G" & lastRow2), 0)
            
            ' 处理匹配结果：找到则写入对应I列值，未找到则留空
            If Not IsError(matchRow) Then
                ws1.Cells(i, "B").Value = ws2.Cells(matchRow, "I").Value
            Else
                ws1.Cells(i, "B").Value = "" ' 也可以改成"无匹配"这类自定义提示
            End If
        Else
            ws1.Cells(i, "B").Value = ""
        End If
    Next i
    
    MsgBox "匹配完成！", vbInformation
End Sub

关键优化与原代码可能的问题点： #

• 摒弃Activate/Select操作：很多新手代码会频繁切换工作表激活状态，很容易因焦点意外变化导致错误，直接定义工作表对象是更稳定的写法。
• 精准计算最后一行：原代码可能用了错误的方式获取最后一行（比如UsedRange，如果中间有空白行就会出错），这里用Cells(Rows.Count, 列号).End(xlUp).Row是最可靠的方法。
• 增加错误处理逻辑：如果Sheet1的A列单元格为空，或者Sheet2找不到匹配值时，代码不会报错崩溃，而是给B列留空（你可以根据需求改成自定义提示文本）。
• 限定查找范围：原代码可能没有限定Sheet2的查找范围，导致查找整个列效率低下，这里限定到G列的最后一行数据，大幅提升运行速度。

如果还是有问题，可以检查这几个细节：

• 确认工作表名称是否正确（比如是不是真的叫"Sheet1"和"Sheet2"，有没有被改名）
• 检查Sheet2的G列和I列是否确实有对应的数据
• 确保没有隐藏行导致最后一行计算错误

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