Excel VBA调用VLookup为组合框赋值出现1004运行时错误如何解决

问题背景 #

我和同伴卸货时会使用这一简易数据录入表单，表单界面如下：

计划实现功能：根据Field组合框的选中值，自动填充Grain Type和Variety两个组合框的内容，目前尚未实现该逻辑，这两个组合框仍需手动选择。

问题描述 #

编写的cmbField的Change事件代码如下：

Private Sub cmbField_Change()

    Dim FieldChoice As String
    Dim Grain
    Dim Variety
    
    FieldChoice = cmbField.Value
    
    MsgBox FieldChoice
       
    Grain = Application.WorksheetFunction.VLookup(FieldChoice, Worksheets("Seeding_Database").Range("Fields"), 3, 0)

End Sub

运行代码时，在给Grain变量赋值的VLookup语句处会抛出1004运行时错误，已确认FieldChoice的取值一定存在于VLookup的查找范围内，Field组合框的可选值就取自同一范围，用户选择的都是该范围内的合法值，错误处理逻辑后续再补充，想知道该报错的原因是什么，如何解决。

报错原因及解决方案 #

核心原因 #

1004错误的触发根源是Application.WorksheetFunction.VLookup在匹配不到结果时会直接抛出运行时错误，哪怕你确认值存在，还有两个极易被忽略的匹配冲突点：

• 数据类型不匹配：你将FieldChoice定义为String字符串类型，如果查找范围Fields第一列的对应值是数字格式，两类不同类型的值会被判定为不匹配
• 隐形字符差异：从组合框取出的值可能附带首尾空格、换行符等不可见字符，和查找范围内的纯文本值不匹配

修复方案 #

优先改用Application.VLookup替代Application.WorksheetFunction.VLookup，前者匹配失败时会返回错误值而非抛出运行时错误，再补充查找值预处理和结果判断逻辑，调整后的代码如下：

Private Sub cmbField_Change()
    Dim FieldChoice As Variant ' 改为Variant类型适配不同格式的查找值
    Dim Grain As Variant
    Dim Variety As Variant
    
    FieldChoice = Trim(cmbField.Value) ' 清除首尾空格，避免隐形字符干扰
    MsgBox FieldChoice
       
    Grain = Application.VLookup(FieldChoice, Worksheets("Seeding_Database").Range("Fields"), 3, 0)
    ' 匹配成功后给对应组合框赋值
    If Not IsError(Grain) Then
        cmbGrainType.Value = Grain ' 此处替换为你实际的Grain Type组合框名称即可
    End If
End Sub

如果调整后仍有匹配失败的情况，可以在代码中添加Debug.Print FieldChoice, TypeName(FieldChoice)输出查找值的内容和类型，和查找范围内的对应值做对比，排查剩余的隐形差异。

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