Excel VBAで行10から最後に使用された行までの行全体がクリアされる

Question

すべての製品が入力されて更新される「マスターシート」ワークシートと、「ワークシート」ワークシート1〜24の番号が付けられます。 「ステージ1シート」、「ステージ2シート」など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.

すべてのワークシートには、行があなたの助けのために、事前にA列の感謝を用いて決定することができます使用行10から最後に使用row.Lastまでクリアする必要があります。

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 

私はこれがあなたの仕事を取得するのに役立ちますことを願っています。