同一模块不同子过程中第二个VLOOKUP返回错误列问题

看起来你在同一个VBA模块的不同子过程里调用第二个VLOOKUP时碰到了麻烦，先把你提供的第一个子过程代码整理好方便参考：

Sub ImportSchedUnschedData()
    Dim combinedBook As Workbook
    Dim filter As String
    Dim caption As String
    Dim combinedFilename As String
    Dim combinedWorkbook As Workbook
    Dim targetWorkbook As Workbook
    
    MsgBox ("Select BRAM Report")
    Set targetWorkbook = ThisWorkbook
    filter = "Text files (*.xlsx),*.xlsx"
    caption = "Please Select an input file"
    combinedFilename = Application.GetOpenFilename(filter, , caption) ' 补全你未写完的部分
    
    ' 后续逻辑代码...
End Sub

结合VBA里使用VLOOKUP的常见坑，给你几个排查和解决的方向：

• 务必明确指定查找范围的工作表
  很多时候问题出在没限定工作表，比如你直接写Range("A:B")，VBA会默认用当前激活的工作表，要是第二个子过程运行时激活的表和第一个不一样，查找范围就错了。改成类似targetWorkbook.Sheets("你的数据工作表名").Range("A:B")这种明确的引用。

• 检查查找值和查找列的数据类型是否匹配
  VLOOKUP对数据类型很苛刻，比如查找列是文本格式的编号，而你的查找值是数值型，哪怕数字一样也会找不到。这种情况可以把查找值转成对应类型：CStr(lookupValue)转文本，CLng(lookupValue)转整数。

• 给VLOOKUP加上错误处理
  第二个子过程里如果查找不到匹配项，直接用WorksheetFunction.VLookup会抛出运行时错误。可以用两种方式处理：
  一是用工作表的IFERROR函数包裹：

  Dim result As Variant
  result = Application.WorksheetFunction.IfError( _
      Application.WorksheetFunction.VLookup(lookupVal, lookupRange, 2, False), _
      "未找到匹配项" _
  )
  

  二是用VBA的错误捕获：

  Dim result As Variant
  On Error Resume Next
  result = Application.WorksheetFunction.VLookup(lookupVal, lookupRange, 2, False)
  If Err.Number <> 0 Then
      result = "未找到匹配项"
      Err.Clear
  End If
  On Error GoTo 0
  

• 排查模块级变量的冲突
  如果你在模块顶部（所有子过程外面）声明了比如lookupRange这类变量，第一个子过程给它赋值后，第二个子过程会直接用这个旧值，很容易出问题。建议把变量声明在子过程内部，或者给不同子过程的变量起不同名字。

• 确认VLOOKUP的第四个参数
  精确匹配一定要把第四个参数设为False，如果是True（近似匹配），要求查找列必须是升序排列，否则返回的结果会完全不符合预期，这也是很多人踩的坑。

如果能把第二个子过程的代码贴出来，能更精准地定位问题，但先按上面的方向排查应该能解决大部分情况。

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