录制一个新宏,运行即可
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
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。