excel - 出错时显示单元格地址和消息框并退出宏，如果没有，继续

Question

我想首先检查我的 Range 是否有 #NA 错误，然后在退出宏之前显示包含错误的单元格地址。这是我到目前为止所做的。

现在，如果出现错误，我想显示 MsgBox警告用户错误并停止程序的其余部分执行，如果没有，那么我希望它继续执行程序的其余部分

检查 NA 错误:

For Each c In myRange

    If IsError(c) = True Then

        Debug.Print c.Address

    End If

Next c

MsgBox "Check for errors and run gain"

Exit Sub

'continuation of the program

Answer 1

这会将所有错误的地址写入一个字符串，并在代码运行后显示它们:

Sub TestMe()

    Dim myRange As Range
    Dim myCell As Range
    Dim errorList As String

    Set myRange = Worksheets(1).Range("A1:C10")

    For Each myCell In myRange
        If IsError(myCell) Then
            errorList = errorList & vbCrLf & myCell.Address
        End If
    Next

    If Len(errorList) > 0 Then
        MsgBox errorList
        Exit Sub
    End If

End Sub

在循环之后，检查 1Len(errorList)如果大于 0，则显示 MsgBox并退出潜艇。