VBA 清除单元格范围内的内容，工作表 1 除外

Question

应该如何编写代码以使其跳过 sheet1？

Sub Clear_All()

Dim Ws As Worksheet

For Each Ws In ActiveWorkbook.Worksheets
  Ws.Range("A11:F800").ClearContents
Next Ws

End Sub

Answer 1

标准的方式是这样的

For Each Ws In ActiveWorkbook.Worksheets
    If Ws.Name <> "Sheet1" Then Ws.Range("A11:F800").ClearContents
Next Ws

但是，如果Sheet1已经是工作簿中最左侧的选项卡，那么您可以更简单地执行此操作

   Dim i as Long
   For i = 2 to Worksheets.Count
       Worksheets(i).Range("A11:F800").ClearContents
   Next i