概要：なぜ「行ごとの色分け」を自動化すべきなのか
Excelで大量のデータを扱う際、視認性を高めるために「行ごとに色を交互に変える」という手法は非常に一般的です。標準機能の「テーブル」を使えば簡単に見えますが、実務では「特定の行数おきに」「特定の行数ずつ」色を変えたい、あるいはテーブル機能を使うと困る複雑なレイアウトであるといったケースが頻発します。
手作業での塗りつぶしはミスのもとであり、データが追加されるたびに修正が必要です。本記事では、VBAを活用して「N行おきにM行ずつ色を塗る」という処理を完璧に制御する方法を解説します。このスキルを習得すれば、レポート作成の時間は数秒に短縮され、ヒューマンエラーはゼロになります。
詳細解説：MOD関数とVBAループの融合
この課題を解決するための論理的な鍵は「MOD（剰余）関数」にあります。数学的に言えば、行番号を「（色のパターン数）×（1ブロックの行数）」で割った余りを判定することで、現在の行がどのグループに属しているかを特定します。
VBAでこれを実装する場合、大きく分けて「セルの塗りつぶしプロパティ（Interior.Color）をループで制御する方法」と、「条件付き書式をVBAで設定する方法」の2種類があります。今回は、柔軟性が高く、重い処理にも耐えうる「直接塗りつぶしを行うループ処理」をメインに解説します。
処理のステップは以下の通りです。
1. 対象の範囲を特定する。
2. データの最終行を取得する。
3. Forループを使用して、指定された「間隔」と「塗りつぶし行数」を判定するロジックを回す。
4. 判定結果に応じてInterior.ColorIndexを指定する。
サンプルコード：汎用性の高い「N行おきM行ずつ」塗りつぶし
以下のコードは、アクティブシートのA列から指定した列数までを対象に、色を交互に塗るプロシージャです。
Sub ColorRowsByPattern()
' 設定変数
Dim targetRange As Range
Dim startRow As Long, lastRow As Long
Dim rowInterval As Long, colorRows As Long
Dim i As Long
' パラメータ設定：例として3行おきに2行ずつ色を塗る
rowInterval = 3
colorRows = 2
' 対象範囲の取得（A列の最終行まで）
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
Set targetRange = Range("A1:E" & lastRow)
' 画面更新の停止（高速化のため）
Application.ScreenUpdating = False
' 一旦色をクリア
targetRange.Interior.ColorIndex = xlNone
' ループ処理
For i = 1 To lastRow
' MOD関数で判定：(i-1)を(rowInterval + colorRows)で割った余りがcolorRows未満なら着色
If (i - 1) Mod (rowInterval + colorRows) < colorRows Then
targetRange.Rows(i).Interior.Color = RGB(220, 230, 241)
End If
Next i
' 画面更新の再開
Application.ScreenUpdating = True
MsgBox "行の塗りつぶしが完了しました。", vbInformation
End Sub
実務アドバイス：プロとして意識すべき「保守性」と「速度」
1. **画面更新の制御は必須**
VBAでセルを直接操作する場合、`Application.ScreenUpdating = False` を記述しないと、画面がチラつき、処理速度が極端に低下します。特に数万行を扱う場合は必須のテクニックです。
2. **色番号の定数化**
`RGB(220, 230, 241)` のような具体的な数値は、コード内に散らばると修正が困難になります。定数として冒頭で宣言するか、色のパターンを配列に格納しておくことで、将来のデザイン変更に強いコードになります。
3. **条件付き書式との使い分け**
もし、「データが動的に変化し、常にリアルタイムで色を反映させたい」という要件であれば、VBAで条件付き書式の数式を自動入力するアプローチが優れています。今回のVBAコードは「帳票出力の瞬間」に色を塗る運用に適しています。
4. **処理範囲の最適化**
`targetRange.Rows(i).Interior.Color` と記述すると、行単位でのアクセスが発生します。行数が極端に多い場合（10万行超など）、`Range`オブジェクトを`Union`で結合してから一括で色を塗る手法をとると、処理時間を数分の一に短縮可能です。
まとめ：VBAがもたらす「正確性」の追求
「N行おきに色を変える」という単純な作業であっても、それをVBAで自動化することには深い意味があります。それは「手作業の排除」です。人間は退屈な繰り返し作業の中で必ずミスを犯します。しかし、コードは何度実行しても同じ結果を、一瞬で出力します。
今回紹介したMOD関数を用いたロジックは、スケジューリング表やシフト表、あるいは複雑な請求書明細など、あらゆるビジネス文書に応用可能です。まずは上記のサンプルコードをご自身の環境で実行し、パラメータの `rowInterval` や `colorRows` を書き換えて、どのように色が変化するかを確認してください。
VBAを学ぶ上で最も重要なのは「原理を理解し、それを自分の業務に合わせてカスタマイズする力」です。このコードが、あなたの業務自動化における強力な武器となることを願っています。Excelのポテンシャルを引き出し、より創造的な業務に時間を割くために、ぜひ日々のルーチンにVBAを取り入れてみてください。
