Question

我的工作簿中有一张主表＆＃39;工作表，所有产品都已输入并更新，以及“阶段表”和＃39;工作表编号为1 - 24.例如＆＃39;第1阶段工作表＆＃39;第2阶段工作表＆＃39;等。This shows the layout of the worksheets. Stages 6 - 24 are hidden.

我希望有一个宏可以在重新输入之前清除所有舞台表格（我已经为此部分设置了一个宏）来自主表单的相关产品。我一直在努力让它遍历如此多的工作表，然后不得不为每个工作表找到最后一行。

The Stage sheets are exactly the same as this Master Sheet except that each stage has only the products(rows) relating to that stage.

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

Answer 1

您必须创建一个字符串和一个形成当前文件名称的整数。比你需要激活工作表，你必须去删除整个方块。

伪代码：

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

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

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

1 个答案: