範囲を指定し、その中のセルを対象として順に処理をする。 例えば、こんな感じで。 Sub test_1() Dim r As Range For Each r In Range("A1:H8") r.Interior.Color = 192 Application.Wait [Now()+"00:00:00.03"] Next End Sub 確認したところ、このように、…