VBA结合VLOOKUP与MATCH函数运行报错问题求助

核心报错原因 #

• Range范围拼接错误：原代码中Sheets("sheet1").Range("a1" & ":f", erow)写法错误，拼接逻辑混乱生成了非法Range对象，这是赋值行直接触发错误的核心原因。
• 工作表对象未明确绑定：代码中未给Cells、Range指定所属工作表，默认取当前激活工作表的范围，若运行时激活的不是Sheet2，会出现取值/写入错位、匹配不到值的问题。
• 无匹配容错处理：使用Application.WorksheetFunction调用工作表函数时，若VLOOKUP找不到匹配值、MATCH找不到对应表头，会直接抛出运行时错误中断程序。
• 变量未声明：Y、erow1两个变量未提前声明，若开启Option Explicit校验会直接触发编译错误。

修复后完整代码 #

Sub lookup_macro()
    ' 声明所有变量
    Dim X As Integer, Y As Integer
    Dim erow As Integer, erow1 As Integer, ecol As Integer
    Dim matchCol As Variant ' 存储MATCH返回结果，用于容错判断
    Dim lookupVal As Variant, lookupRng As Range, headerRng As Range
    
    ' 提前绑定工作表对象，避免范围错位
    Dim ws1 As Worksheet, ws2 As Worksheet
    Set ws1 = ThisWorkbook.Sheets("sheet1")
    Set ws2 = ThisWorkbook.Sheets("sheet2")
    
    ' 计算边界行、列
    erow = ws1.Range("a" & ws1.Rows.Count).End(xlUp).Row
    erow1 = ws2.Range("a" & ws2.Rows.Count).End(xlUp).Row
    ecol = ws2.Cells(1, ws2.Columns.Count).End(xlToLeft).Column
    
    ' 预定义匹配用的固定范围，避免循环中重复生成
    Set lookupRng = ws1.Range("A1:F" & erow)
    Set headerRng = ws1.Range("A1:F1")
    
    ' 循环匹配
    For X = 2 To erow1
        lookupVal = ws2.Range("A" & X).Value
        For Y = 2 To ecol
            ' 先匹配表头列号，匹配失败跳过赋值
            matchCol = Application.Match(ws2.Cells(1, Y).Value, headerRng, 0)
            If Not IsError(matchCol) Then
                ' 用Application.VLookup代替WorksheetFunction，匹配失败返回错误值不抛异常
                ws2.Cells(X, Y).Value = Application.VLookup(lookupVal, lookupRng, matchCol, False)
            End If
        Next Y
    Next X
End Sub

注意事项 #

• 若要匹配不到值时显示自定义内容（比如空值、#N/A），可在VLOOKUP赋值行加判断：如果返回错误值就写入对应自定义内容即可。
• 可根据实际Sheet1的列范围调整F列的边界，不需要固定为F列也可以动态计算表头边界。

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