VBA～すべてのワークシートに同じ処理をしよう～Excel

全てのワークシートに同じ処理をしたい時はFor Each Nextの繰り返しの構文で全てのワークシートを1つずつ取得し、それぞれに同じ処理を実行しましょう。処理の前にシートを必ずアクティブにしましょう。下のコードを実行すると全てのシートのセルA1に1が入力されます。

Sub test1()
Dim ws As Worksheet

For Each ws In Worksheets
ws.Activate
Range("A1") = 1
Next
End Sub