批量删除工作薄中已隐藏的多个工作表并保存的代码

录制一个新宏，运行即可

Sub aa()

    Dim sh As Worksheet

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

    For Each sh In Worksheets

        If Not sh.Visible = xlSheetVisible Then

            sh.Visible = xlSheetVisible

            sh.Delete

        End If

    Next sh

    Application.DisplayAlerts = True

    Application.ScreenUpdating = True

End Sub