求助：如何在VBA中拼接单元格内容实现VLookup查询

问题场景 #

需将输入框指定的两个单元格内容（如myValue对应D2、myValue2对应C3，单元格可通过输入框变更）拼接后作为VLOOKUP的查找值，但直接在Application.WorksheetFunction.VLookup中使用拼接语法无法正常运行，现有代码如下：

Dim myValue As String
Dim myValue2 As String

myValue = InputBox("Please input Cell that first merch cat is in")
myValue2 = InputBox("Please input Cell that first site is in")
    
ActiveCell = Application.VLookup([myValue2] & [myValue], ActiveSheet.Range("BA:BE"), 5, False)

替代实现方案 #

方案1：先获取单元格值再拼接 #

先通过Range对象提取两个单元格的实际内容，拼接成查找值后再传入VLOOKUP，避免在函数参数中直接解析单元格引用的问题：

Dim myValue As String
Dim myValue2 As String
Dim lookupValue As String

myValue = InputBox("请输入商品分类所在单元格")
myValue2 = InputBox("请输入站点所在单元格")

' 获取指定单元格的内容并拼接
lookupValue = Range(myValue2).Value & Range(myValue).Value

' 执行VLOOKUP并添加错误处理，避免查找失败时抛出错误
On Error Resume Next
ActiveCell = Application.VLookup(lookupValue, ActiveSheet.Range("BA:BE"), 5, False)
If Err.Number <> 0 Then
    ActiveCell = "未找到匹配项"
End If
On Error GoTo 0

方案2：用Evaluate执行带拼接的查找逻辑 #

利用Evaluate方法直接解析类似工作表函数的拼接表达式，适合需要灵活组合查找条件的场景：

Dim myValue As String
Dim myValue2 As String

myValue = InputBox("请输入商品分类所在单元格")
myValue2 = InputBox("请输入站点所在单元格")

' 通过Evaluate解析拼接后的VLOOKUP公式
On Error Resume Next
ActiveCell = Evaluate("VLOOKUP(" & myValue2 & "&" & myValue & ", BA:BE, 5, FALSE)")
If Err.Number <> 0 Then
    ActiveCell = "未找到匹配项"
End If
On Error GoTo 0

方案3：添加辅助列预拼接（适合批量查找） #

如果需要多次执行此类查找，可先在数据区域新增辅助列，提前拼接好匹配值，后续直接使用VLOOKUP查找：

Dim myValue As String
Dim myValue2 As String
Dim helperCol As Range
Dim lookupValue As String

' 在BA列左侧插入辅助列，用于预拼接匹配值
Set helperCol = ActiveSheet.Range("BA:BA").Insert(Shift:=xlToRight)
' 假设需拼接BB和BC列的对应值，可根据实际数据列调整
helperCol.Value = ActiveSheet.Evaluate("BB:BB&BC:BC")

myValue = InputBox("请输入商品分类所在单元格")
myValue2 = InputBox("请输入站点所在单元格")

lookupValue = Range(myValue2).Value & Range(myValue).Value

On Error Resume Next
' 注意此时数据区域变为BA:BF，返回列数调整为6
ActiveCell = Application.VLookup(lookupValue, ActiveSheet.Range("BA:BF"), 6, False)
If Err.Number <> 0 Then
    ActiveCell = "未找到匹配项"
End If
On Error GoTo 0

' 若不需要保留辅助列，可执行删除
' helperCol.Delete

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