Excel VBA循环工作表，将整行从第10行清除到最后使用的行

我有一个工作簿，其中有一个“主工作表”工作表，所有产品都在其中输入和更新，以及编号为1-24的“阶段工作表”。例如“第一阶段工作表”、“第二阶段工作表”等

我想有一个宏，在重新输入（我已经有一个宏用于此部分）母版图纸中的相关产品之前清除所有阶段图纸。我一直在努力让它在这么多的工作表中循环，然后为每个工作表找到最后一行

---

每个工作表都需要从第10行一直清除到最后使用的行。最后使用的行可以使用列A确定。提前感谢您的帮助。

您必须创建一个字符串和一个整数，以形成当前文件的名称。 然后，您需要激活图纸，并且必须删除整个正方形

伪代码：

Dim sheetName As String
For i = 1 To 24
 sheetName = "Stage " & i & " Sheet" 
 Sheets(sheetName).Activate   
 .Range("A10:A" & .range("A10").End(xlDown).row).ClearContents
Next i

---

我希望这将帮助您完成工作。

您不需要使用

…激活
。我建议改为对工作表（sheetName）
执行
，从而避免激活工作表。@Rick de Gier谢谢你们两位。代码起作用。我唯一改变的就是加入了BruceWayne提出的建议，并把它说清楚。