Excel VBA依赖型ComboBox报错：无法获取WorksheetFunction类的Match属性

错误原因 #

WorksheetFunction.Match在指定区域找不到匹配值时，会直接抛出运行时错误（即你遇到的Unable to get the match property of the worksheetfunction class），而非返回错误值。常见触发场景包括：

• ErrorCategory的选中值在Category工作表第1行不存在
• 目标值或表头单元格存在首尾空格、大小写不匹配等情况

解决方案 #

改用Application.Match替代WorksheetFunction.Match，同时增加值清洗和错误判断逻辑，避免程序中断：

Private Sub ErrorCategory_Change()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Category")
    Dim i As Integer
    Dim matchResult As Variant ' 用Variant存储结果，兼容数值/错误值
    Dim targetValue As String
    
    ' 清洗输入值，去除首尾空格
    targetValue = Trim(Me.ErrorCategory.Value)
    
    ' 使用Application.Match，找不到匹配时返回错误值而非抛出错误
    matchResult = Application.Match(targetValue, sh.Range("1:1"), 0)
    
    Me.SubCategory.Clear
    ' 判断是否找到有效匹配
    If Not IsError(matchResult) Then
        Dim lastRow As Integer
        ' 用End(xlUp)定位列最后一行，比CountA更可靠（避免忽略中间空单元格）
        lastRow = sh.Cells(sh.Rows.Count, matchResult).End(xlUp).Row
        
        For i = 2 To lastRow
            ' 跳过空单元格，避免添加空项
            If sh.Cells(i, matchResult).Value <> "" Then
                Me.SubCategory.AddItem sh.Cells(i, matchResult).Value
            End If
        Next i
    Else
        ' 未找到匹配时的提示逻辑
        MsgBox "未找到对应分类，请检查选择", vbExclamation
    End If
End Sub

额外优化说明 #

• 用Variant类型存储Application.Match结果：因为它可能返回匹配的列号，也可能返回错误值
• 用End(xlUp)定位最后一行：相比CountA，能正确处理列中间存在空单元格的情况
• 增加空单元格判断：避免给ComboBox添加无效的空选项

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