VBA Index-Match报1004错误：请求解析并修复表单代码问题

我一眼就看出问题根源了——你用的WorksheetFunction.Match在找不到匹配项时会直接抛出1004运行时错误，而不是像单元格里用MATCH函数那样返回#N/A。测试几次后触发错误，大概率是因为有时候ComboBox1的值（比如空值、或者不小心选了不在数据源里的项）在Components表的C2:C45范围内找不到对应匹配。

下面是修复后的代码，我给你拆解一下关键改动：

Private Sub ComboBox1_Change()
    Dim matchResult As Variant
    Dim componentsSheet As Worksheet
    
    ' 先清空文本框，避免残留旧值
    Me.TextBox1.Text = ""
    
    ' 提前引用工作表，让代码更清晰也更高效
    Set componentsSheet = ThisWorkbook.Sheets("Components")
    
    ' 先判断ComboBox1是否有有效值，空值直接跳过
    If Trim(Me.ComboBox1.Value) = "" Then Exit Sub
    
    ' 用Application.Match替代WorksheetFunction.Match——找不到匹配时返回错误值而非抛出错误
    matchResult = Application.Match(Me.ComboBox1.Value, componentsSheet.Range("C2:C45"), 0)
    
    ' 检查匹配结果是否有效，有效才填充文本框
    If Not IsError(matchResult) Then
        Me.TextBox1.Text = Application.Index(componentsSheet.Range("D2:D45"), matchResult, 1)
    Else
        ' 可选：如果找不到匹配，可以给个提示，比如
        ' Me.TextBox1.Text = "无匹配代码"
    End If
End Sub

关键改动说明： #

• 替换Match函数：用Application.Match代替WorksheetFunction.Match，前者在找不到匹配时会返回错误值（可以用IsError判断），而后者直接触发运行时错误，这是解决1004错误的核心。
• 增加空值判断：当ComboBox1为空时直接清空文本框并退出，避免无意义的匹配操作。
• 提前引用工作表：把Components工作表赋值给变量，让代码更易读，也减少重复调用Sheets("Components")的开销。
• 错误处理逻辑：明确判断匹配结果是否有效，有效才填充文本框，还可以在else分支里加自定义提示（比如“无匹配代码”），提升用户体验。

另外，建议你检查一下ComboBox1的数据源是否和Components表的C2:C45完全一致——如果ComboBox1的列表里有不在C列的值，也会触发找不到匹配的情况，这也是测试几次后报错的常见原因。

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