vba - 继续一个功能

Question

我正在尝试编写一个 VBA 宏，它可以在同一个 excel 文件中分析多张数据。我目前已将其设置为当它分析所有各种工作表时，当它发现错误时，它会完全停止程序。我已经弄清楚如何让它进入下一张纸，但无法让程序继续运行。这是我到目前为止所拥有的：

    `If Counter > 480 Then
        Worksheets(ActiveSheet.Index + 1).Select
        End
    End If`

我知道 End 函数结束了程序的运行，但是当我把它拿出来时它不起作用，我怎样才能让程序在它到达错误的工作表之前继续运行？

Answer 1

将要结束的循环放在单独的函数或子中，然后在发现错误时使用

Exit Function

或者

Exit Sub

如果它是一个潜艇。

使用您的代码的简单示例：

Sub Main
    OtherSub
    'Continue here
End Sub

Sub OtherSub
    If Counter > 480 Then
        Worksheets(ActiveSheet.Index + 1).Select
        Exit Sub
    End If
End Sub