合并单元格后VLOOKUP查询Sheet2返回#N/A的VBA代码问题排查

我编写了一段VBA代码，用于从多个文件中通过VLOOKUP获取数据并分组排序；若两个源文件中的数据不同，会将其用\合并到C列，该部分功能运行完全正常。但当我尝试将C列数据与其中一个文件的Sheet2数据库进行VLOOKUP校验时，代码始终返回#N/A，请问问题出在哪里？

相关VBA代码 #

Sub PerformVLookup(mention As String, lookupRange2 As Range, lookupRange4 As Range, lookupRange2Sheet2 As Range, wsOutput As Worksheet, outputRow As Long)
    Dim lookupValue1 As String
    Dim lookupValue2 As String ' For the value in column C
    Dim lookupResult2 As Variant
    Dim lookupResult4 As Variant
    Dim lookupResultSheet2 As Variant ' Result for lookup in Sheet2
    Dim combinedResult As String
    
    lookupValue1 = Application.WorksheetFunction.Trim(Application.WorksheetFunction.Clean(CStr(mention)))
   
    ' Perform the VLOOKUP for this mention in Workbook2
    On Error Resume Next
    lookupResult2 = Application.VLookup(lookupValue1, lookupRange2, 2, False)
    On Error GoTo 0
    
    If IsError(lookupResult2) Then
        lookupResult2 = "#N/A"
    End If
    
    
    ' Perform the VLOOKUP for this mention in Workbook4
    On Error Resume Next
    lookupResult4 = Application.VLookup(lookupValue1, lookupRange4, 2, False)
    On Error GoTo 0
    
    If IsError(lookupResult4) Then
        lookupResult4 = "#N/A"
    End If
    
   ' Combine the results
    combinedResult = ""
    If lookupResult2 <> "#N/A" Then combinedResult = lookupResult2
    If lookupResult4 <> "#N/A" Then
        If combinedResult <> "" And combinedResult <> lookupResult4 Then
            combinedResult = combinedResult & " \ " & lookupResult4
        ElseIf combinedResult = "" Then
            combinedResult = lookupResult4
        End If
    End If
    
    ' If no matches, display #N/A
    If combinedResult = "" Then
        combinedResult = "#N/A"
    End If
    
    ' Output the final combined result in Column C
    wsOutput.Cells(outputRow, 3).Value = combinedResult
    
    ' If the combined result has "\", apply the color fill #FDBAB5 (light red)
    If InStr(combinedResult, "\") > 0 Then
        wsOutput.Cells(outputRow, 3).Interior.Color = RGB(253, 186, 181)
    End If
    
    ' Now perform the VLOOKUP for the value in column C in Workbook2 Sheet2
     If Not IsEmpty(wsOutput.Cells(outputRow, 3).Value) Then
        lookupValue2 = CStr(wsOutput.Cells(outputRow, 3).Value) ' Ensure lookupValue2 is a string
    On Error Resume Next
    lookupResultSheet2 = Application.VLookup(lookupValue2, lookupRange2Sheet2, 2, False)
    On Error GoTo 0
    
    If IsError(lookupResultSheet2) Then
        lookupResultSheet2 = "#N/A"
    End If
    
    ' Output the result from Workbook2 Sheet2 in column D
    wsOutput.Cells(outputRow, 4).Value = lookupResultSheet2
    Else
        ' If column C is empty, output NA in column D
        wsOutput.Cells(outputRow, 4).Value = "#N/A"
    End If
End Sub

问题排查与解决方法 #

1. 查找值与数据源格式/内容不一致 #

你合并C列时使用的是" \ "（前后带空格），比如生成的内容是A \ B，但Sheet2的数据源中对应的匹配值可能是A\B（无空格）或者其他格式，导致VLOOKUP无法匹配。

• 解决：
  • 检查Sheet2查找列的内容格式，确保和C列完全一致；
  • 修改合并逻辑，去掉空格：将combinedResult = combinedResult & " \ " & lookupResult4改为combinedResult = combinedResult & "\" & lookupResult4；
  • 对查找值做清洗处理：

    lookupValue2 = Application.WorksheetFunction.Trim(Application.WorksheetFunction.Clean(CStr(wsOutput.Cells(outputRow, 3).Value)))
    

2. VLOOKUP查找范围的首列错误 #

VLOOKUP要求查找范围的第一列必须是包含匹配值的列，如果传入的lookupRange2Sheet2首列不是Sheet2中对应C列数据的列，必然返回#N/A。

• 解决：确认lookupRange2Sheet2的定义，比如Sheet2中A列是匹配值、B列是返回结果，那么范围应该定义为Sheet2.Range("A:B")。

3. 数据类型不匹配 #

即使文本内容看起来相同，C列的合并结果是字符串类型，但Sheet2的查找列可能是数值类型（比如数字存为数值，而C列是字符串格式的数字），导致VLOOKUP匹配失败。

• 解决：统一数据类型，要么将Sheet2的查找列转换为文本格式，要么根据实际情况转换查找值类型：

  If IsNumeric(lookupValue2) Then
      lookupValue2 = CDbl(lookupValue2)
  End If
  

4. 无效的查找范围 #

On Error Resume Next会掩盖lookupRange2Sheet2本身的错误（比如工作表不存在、范围引用无效），导致VLOOKUP直接返回错误。

• 解决：添加范围有效性检查：

  If lookupRange2Sheet2 Is Nothing Then
      wsOutput.Cells(outputRow, 4).Value = "无效的查找范围"
      Exit Sub
  End If
  

5. 查找值为#N/A文本 #

当C列内容是#N/A（无匹配结果时生成的文本），用该值去Sheet2查找自然无法匹配，属于正常情况，无需处理。

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