为何VBA的VLookup函数无法使用表达式作为参数？

问题场景 #

1. 以下代码运行正常，在窗口输出1234：

Sub id()
Debug.Print Left(Cells(2, 3), 6)
End Sub

2. 直接传入数值1234作为查找值，VLookup代码运行正常，输出xxxx：

Sub id()
Debug.Print Application.WorksheetFunction.VLookup(1234, Range("k:l"), 2, False)
End Sub

3. 但将Left(Cells(2, 3), 6)作为VLookup的查找值时，触发VBA运行时错误1004“应用程序定义或对象定义错误”：

Sub id()
Debug.Print Application.WorksheetFunction.VLookup(Left(Cells(2, 3), 6), Range("k:l"), 2, False)
End Sub

原因解析 #

不是VLookup不能用表达式当参数，核心问题是数据类型不匹配：

• Left函数返回的是文本类型的字符串，哪怕内容是数字1234，它的本质仍是文本；
• 而你K列中存储的1234是数值类型，VLookup开启精确匹配（最后参数为False）时，文本与数值属于不同类型，无法匹配到结果。再加上Application.WorksheetFunction.VLookup找不到匹配项时会直接抛出错误，而非返回#N/A，所以触发了1004报错。

解决方案 #

只需把Left返回的文本转换为数值类型即可，常见两种实现方式：

1. 用类型转换函数强制转数值：

Sub id()
Debug.Print Application.WorksheetFunction.VLookup(CLng(Left(Cells(2, 3), 6)), Range("k:l"), 2, False)
End Sub

2. 利用运算自动转换类型：

Sub id()
Debug.Print Application.WorksheetFunction.VLookup(Left(Cells(2, 3), 6)*1, Range("k:l"), 2, False)
End Sub

如果想避免找不到匹配时直接报错，也可以改用Application.VLookup（它找不到结果时返回Error 2042，不会中断代码）：

Sub id()
Dim result As Variant
result = Application.VLookup(Left(Cells(2, 3), 6), Range("k:l"), 2, False)
If Not IsError(result) Then
    Debug.Print result
Else
    Debug.Print "未找到匹配项"
End If
End Sub

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