arr = [{"C","D","E","F"}] For i = 1 To Worksheets.Count For j = 1 ToUBound(arr) If arr(j) = Sheets(i).Name Then Sheets(i).Visible = 0 EndIf Next j Next i EndSub
Sub byc() '不隐藏 Dim arr, i%, j%
arr = [{"C","D","E","F"}] For i = 1 To Worksheets.Count For j = 1 ToUBound(arr) If arr(j) = Sheets(i).Name Then Sheets(i).Visible = -1 EndIf Next j Next i EndSub