excel - 转到未隐藏的第一张工作表

处理将转到第一张工作表的宏。我正在使用:

Sub GoToFirstSheet()

    On Error Resume Next
    Sheets(1).Select

End Sub

但是，如果表 1 被隐藏，这将不起作用。我怎样才能合并一种方法来转到第一张未隐藏的工作表？

最佳答案

像这样的东西？

Option Explicit

Sub GoToFirstSheet()
    Dim i As Long

    For i = 1 To ThisWorkbook.Sheets.Count
        On Error Resume Next
        Sheets(i).Activate
        If Err.Number = 0 Then Exit For
    Next i
End Sub

关于excel - 转到未隐藏的第一张工作表，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/58434178/