Excel VBA宏Vlookup多条件匹配时出现Error 13类型不匹配错误求助

嗨，我来帮你排查这个类型不匹配的错误～Error 13通常是代码里尝试对不兼容的数据类型进行操作导致的，结合你的代码，主要有几个可能的原因和对应的解决办法：

1. 查找值的类型不兼容（最可能的原因） #

你的VLookup查找值是.Cells(rw, 11).Value + .Cells(rw, 1).Value，如果这两个单元格里任意一个包含非数值内容（比如文本、空值、#N/A这类错误值），强行相加就会触发类型不匹配。

解决办法：先校验数值有效性 #

计算查找值前，用IsNumeric判断单元格内容是否为数值，避免无效相加：

Sub Job_Res()
    Dim LastRow As Long ' 把Integer改成Long，避免行数溢出
    Dim rw As Long, x As Range
    Dim extwbk As Workbook, twb As Workbook
    
    Set twb = Workbooks.Open("C:\DM\excel_files\jobs.xlsx")
    Set extwbk = Workbooks.Open("C:\DM\excel_files\RefRes.xlsx")
    Set x = extwbk.Worksheets("Sheet1").Range("A:D")
    
    With twb.Sheets("Sheet1")
        MsgBox "OK"
        For rw = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            Dim lookupValue As Variant
            ' 先校验两个单元格是否都是数值类型
            If IsNumeric(.Cells(rw, 11).Value) And IsNumeric(.Cells(rw, 1).Value) Then
                lookupValue = .Cells(rw, 11).Value + .Cells(rw, 1).Value
                ' 处理VLookup可能返回的#N/A错误
                Dim result As Variant
                result = Application.VLookup(lookupValue, x, 2, False)
                .Cells(rw, 11) = IIf(IsError(result), "未找到匹配", result)
            Else
                ' 标记非数值的无效输入
                .Cells(rw, 11) = "无效输入"
            End If
        Next rw
    End With
    
    extwbk.Close savechanges:=False
    twb.Close savechanges:=True ' 按需保存目标工作簿
End Sub

2. 变量类型溢出风险 #

你原本定义的LastRow、LastColumn是Integer类型，但Excel工作表最大行数是1048576，远超过Integer的最大值（32767），如果工作表行数较多，会导致溢出错误，间接引发类型不匹配。建议把涉及行数/列数的变量都改成Long类型。

3. 查找范围的类型匹配问题 #

确保外部工作表RefRes.xlsx的A列（VLookup的查找列）数据类型和你计算出的lookupValue一致。比如如果A列是文本格式的数值，而lookupValue是数值类型，VLookup可能无法匹配，甚至触发错误。这种情况下可以把lookupValue转成字符串：

lookupValue = CStr(.Cells(rw, 11).Value + .Cells(rw, 1).Value)

额外优化建议 #

• 打开工作簿时可以加上ReadOnly:=True避免文件锁定：Workbooks.Open("C:\DM\excel_files\RefRes.xlsx", ReadOnly:=True)
• 代码开头加Application.ScreenUpdating = False，结尾加Application.ScreenUpdating = True，提升运行速度

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