VBA中Match函数结合If语句无匹配结果导致宏中断问题

你当前代码崩溃的根源是：WorksheetFunction对象下的Match方法，在找不到匹配值时不会像工作表公式那样返回可判断的错误值，而是直接触发VBA运行时错误1004，中断整个宏的执行流程，根本无法进入后续的If判断环节。

• 替换匹配函数
  改用Application.Match替代WorksheetFunction.Match：前者在匹配失败时会返回Variant类型的错误值，不会直接中断程序，可以通过VBA内置的IsError函数判断匹配有效性。
• 调整变量定义类型
  原来定义的shortnamee As Integer仅能存储整数数值，无法承接Application.Match返回的错误类型值，需要将匹配结果的承接变量改为Variant类型。
• 优化逻辑减少冗余操作
  不需要把匹配结果先写入V3单元格再读取判断，直接在变量层面完成分支判断即可，既减少单元格读写的性能损耗，也避免单元格值异常带来的偶发问题。

Dim matchResult As Variant
Dim searchRange As Range
' 定位X列实际有数据的范围，避免整列匹配的性能损耗
Set searchRange = ThisWorkbook.Worksheets("首页").Range("X1:X" & Cells(Rows.Count, "X").End(xlUp).Row)

' 从V2单元格获取待查找的名称
matchResult = Application.Match(ThisWorkbook.Worksheets("首页").Range("V2").Value, searchRange, 0)

' 显式判断匹配结果，分支执行逻辑
If Not IsError(matchResult) Then
    ' 匹配到重复条目：将对应行号写入V3
    ThisWorkbook.Worksheets("首页").Range("V3").Value = matchResult
    ' 此处补充原有重复项拦截的逻辑
Else
    ' 未匹配到重复：标记为无重复
    ThisWorkbook.Worksheets("首页").Range("V3").Value = 0
    ' 此处补充新条目正常录入的流程逻辑
End If

• 所有Range引用都加上明确的工作表限定，避免宏运行时因为激活工作表不对，引用到错误范围的数据
• 不要直接引用整列Range("X:X")做匹配，整列范围会触发Excel遍历百万行空单元格，大幅拖慢宏运行速度，用End(xlUp)定位实际数据末行即可
• 不推荐直接使用On Error Resume Next跳过所有错误来规避中断，这种写法会掩盖其他非预期的代码错误，后续排查问题难度极高，优先用IsError做显式判断更稳妥

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