编辑Sheet1以外的所有工作表

我有一个脚本删除每个工作表上的行1-4，但如果它的名字是“Sheet1”，它会跳过一个工作表

Sub RowDelete() Dim xWs As Worksheet Set xWs = ActiveSheet ThisWorkbook.Worksheets.Select Rows("1:4").Select Selection.Delete xWs.Select End Sub 

Answer 1

通过FOR EACH Loop运行它：

 Sub RowDelete() Dim xWs As Worksheet For Each xWs In Worksheets If xWs.Name <> "Sheet1" Then xWs.Rows("1:4").Delete End If Next xWs End Sub 

顺便说一句，尝试学习编码而不使用。select。