使用VBA Match函数时出现两类报错，求解决方法

第一个报错原因 #

WorksheetFunction.Match 在找不到匹配项时会直接抛出运行时错误，这就是你看到的 "Unable to get the Match property of the WorksheetFunction class" 的核心原因——当前选中的 Case_Select 值在 Case_ID 列里没有匹配项。

第二个报错原因 #

改用 Application.Match 后，找不到匹配时它会返回错误值（比如 #N/A），但你定义的 targetrow 是 Integer 类型，错误值无法赋值给整数类型变量，因此触发 "Run-time error 13: Type Mismatch"。另外也可能是 Case_Select 的值类型和 Case_ID 列的数据类型不匹配（比如下拉框返回字符串，但列里存的是数字）。

修正方案 #

步骤1：调整变量类型 #

把 targetrow 改为 Variant 类型，这样能容纳 Application.Match 返回的错误值或行号。

步骤2：统一数据类型 #

确保 Case_Select 的值类型和 Case_ID 列一致，比如案件编号是数字就转成整数，是文本就转成字符串。

步骤3：添加错误判断 #

检查 Match 的结果是否为错误值，避免后续代码执行出错。

修正后的代码 #

Private Sub CommandButton1_Click()
    Dim targetrow As Variant
    Dim caseValue As Variant
    
    ' 假设案件编号是数字类型，转换下拉框值
    caseValue = Val(Case_Select.Value)
    
    ' 执行匹配操作
    targetrow = Application.Match(caseValue, Sheets("Tracker").Range("Case_ID"), 0)
    
    ' 判断是否找到匹配项
    If IsError(targetrow) Then
        MsgBox "未找到对应案件编号，请检查选择"
        Exit Sub
    End If
    
    ' 找到匹配后，targetrow即为目标行号，可继续后续编辑逻辑
    MsgBox "目标行号：" & targetrow
End Sub

额外说明 #

• 如果案件编号是文本类型，把 caseValue = Val(Case_Select.Value) 替换为 caseValue = CStr(Case_Select.Value)
• 确认 Range("Case_ID") 是正确的命名区域，若未设置命名区域，可直接用列范围（比如 Sheets("Tracker").Columns("A")）

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