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

我有一个工作手册，它有一个“主表”工作表，所有产品都被input和更新，以及编号为1 – 24的“工作表”工作表。 “第1阶段表”，“第2阶段表”等。 这显示了工作表的布局。 阶段6 – 24隐藏。

我想要有一个macros，在重新input之前清除所有的舞台表（我已经有一个这个部分的macros），从主表的相关产品。 我一直努力让它遍历这么多的工作表，然后不得不为每个工作表find最后一行。

除了每个阶段只有与该阶段相关的产品（行）之外，舞台表与这张主表完全一样。

每个工作表需要从第10行清除到最后一个使用的行。最后使用的行可以通过使用列A确定。在此先感谢您的帮助。

Answer 1

你必须做一个string和一个整数，形成当前文件的名称。 比你需要激活工作表，你必须去删除整个广场。

伪代码：

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 

我希望这会帮助你完成工作。