excel - VBA 匹配函数查找不存在的值

Question

我有一些 VBA 代码可以匹配不同的工作表。然后使用从此匹配返回的行来确定If语句的结果。这是我的代码：

On Error Resume Next 'Accuracy Index Match Start
aMatchRow = Application.Match(summarySheet.Cells(accuracyRow, 3), aCommSheet.Range("C:C"), 0)
On Error GoTo 0

With summarySheet.Cells(accuracyRow, 15)
    If aMatchRow > 0 Then
        .Value = aCommSheet.Cells(aMatchRow, 15)
    Else
        .Value = "COMMENT REQUIRED"
    End If
End With

我遇到的问题是，即使没有匹配项，也会返回一个值。因此，例如，在summarySheet.Cells(accuracyRow, 3)没有匹配项的情况下，aCommSheet.Range("C:C")我仍然会返回一个行值，然后将其输入到If语句中，因此将错误的值返回到summarySheet.Cells(accuracyRow, 15).

如果没有匹配，则应执行“ELSE”。但无论如何，“如果”正在执行。

Answer 1

要扩展@GSerg 的评论：

Dim m
m = Application.Match(summarySheet.Cells(accuracyRow, 3), aCommSheet.Range("C:C"), 0)


With summarySheet.Cells(accuracyRow, 15)
    If Not IsError(m) Then '<<< test for no match here
        .Value = aCommSheet.Cells(m, 15)
    Else
        .Value = "COMMENT REQUIRED"
    End If
End With