Excel VBA中VLookup返回记录时出现类型不匹配错误求助

嘿，我来帮你搞定这个VLookup的类型不匹配问题！先拆解下你遇到的问题根源，再给你调整后的代码：

问题原因分析 #

1. 数据类型不匹配：你提到Excel里的值是字母数字类型，但VLookup对数据类型的一致性要求很严格——比如如果Table1里的查找值是文本型的"ABC123"，但Table2第一列（J列）里的对应值是数值型的123（哪怕显示成ABC123），就会触发类型不匹配错误。
2. 未处理无匹配的情况：你用的Application.WorksheetFunction.VLookup在找不到匹配项时会直接抛出运行时错误，而不是返回错误值，这也会导致代码中断或者类型异常。
3. 变量类型不够严谨：Wms_Row和Wms_Col用Variant类型没必要，行/列号是整数，用Long类型更高效也更安全。

修复后的代码 #

我调整了代码，解决了上述问题，同时优化了部分逻辑：

Sub SKUMISMATCH()
    Dim Wms_Row As Long
    Dim Wms_Col As Long
    Dim Table1 As Variant
    Dim Table2 As Variant
    Dim c1 As Variant
    Dim lookupResult As Variant
    
    ' 明确读取单元格值到数组
    Table1 = Sheet1.Range("A2:A243293").Value
    Table2 = Sheet1.Range("J2:K295445").Value
    Wms_Row = Sheet1.Range("G2").Row
    Wms_Col = Sheet1.Range("G2").Column
    
    For Each c1 In Table1
        ' 把查找值转为文本，确保和Table2第一列类型一致
        lookupResult = Application.VLookup(CStr(c1), Table2, 2, False)
        
        ' 判断是否找到匹配，避免错误值写入单元格
        If Not IsError(lookupResult) Then
            Sheet1.Cells(Wms_Row, Wms_Col).Value = lookupResult
        Else
            Sheet1.Cells(Wms_Row, Wms_Col).Value = "无匹配" ' 可根据需求改成空值
        End If
        
        Wms_Row = Wms_Row + 1
    Next c1
End Sub

性能优化建议（针对大数量级数据） #

你的数据量有二十多万行，逐单元格写入会很慢，建议用数组批量处理，速度能提升几十倍：

Sub SKUMISMATCH_Optimized()
    Dim Table1 As Variant
    Dim Table2 As Variant
    Dim resultArr As Variant
    Dim i As Long
    Dim lookupResult As Variant
    
    ' 读取源数据到数组
    Table1 = Sheet1.Range("A2:A243293").Value
    Table2 = Sheet1.Range("J2:K295445").Value
    ' 初始化结果数组，和Table1行数一致
    ReDim resultArr(1 To UBound(Table1, 1), 1 To 1)
    
    ' 循环处理每个查找值
    For i = 1 To UBound(Table1, 1)
        lookupResult = Application.VLookup(CStr(Table1(i, 1)), Table2, 2, False)
        resultArr(i, 1) = IIf(IsError(lookupResult), "", lookupResult)
    Next i
    
    ' 一次性把结果写入G列，大幅提升效率
    Sheet1.Range("G2").Resize(UBound(resultArr, 1), 1).Value = resultArr
End Sub

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