循环浏览工作表时排除工作表

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