循環遍歷工作表時排除工作表

Question

我希望對下面的程式碼有所幫助。我想要完成的是對工作簿中除三張工作表之外的每個工作表執行一些程式碼。我下面的程式碼遍歷了每個選項卡，但我無法弄清楚如何跳過這三張紙。

Sub Worksheet_Loop()

Dim ws As Worksheet

  For Each ws In ThisWorkbook.Worksheets

        Debug.Print ws.Name

    End If
  Next ws

End Sub

Answer 1

使用 if 語句：

Sub Worksheet_Loop()

Dim ws As Worksheet

  For Each ws In ThisWorkbook.Worksheets
    If ws.name <> "Sheet1" and ws.name <> "Sheet2" And ws.name <> "Sheet3" then
        Debug.Print ws.Name         
    End If
  Next ws

End Sub