遍历工作表

一成不变变

Sub 循环工作表1()
   
    Dim i As Integer
    Dim s As String
      For i = 1 To Worksheets.Count
         s = s & Worksheets(i).Name & Chr(13)
         MsgBox s
      Next
     
  End Sub
  Sub 循环工作表2()
     Dim Sh As Worksheet
     Dim s As String
        For Each Sh In Worksheets
            s = s & Sh.Name & Chr(13)
            MsgBox s
        Next
  End Sub
Sub 循环工作表3()
    For Each Sh In Worksheets
       If Sh.Index > 2 Then   
            s = s & Sh.Name & Chr(13)
            MsgBox s
        End If
    Next
End Sub
'--------------------------------------
Sub 遍历工作表4()
For Each Sh In Worksheets
    If Sh.Name Like "*" & "表" & "*" Then   
         s = s & Sh.Name & Chr(13)
            MsgBox s
    End If
Next
End Sub