Sub 一行ごと交互に着色する()

    For 行 = 1 To 10 '1行目～10行目まで処理する
        
          '行 Mod 2 = 0 → 偶数 / 1 → 奇数（Modで割った余り数を出せる）
        If 行 Mod 2 = 0 Then '今回は偶数行の場合を指定している
            
            Rows(行).Interior.Color = RGB(235, 241, 221)
            
        End If
        
    Next 行

End Sub