Excelで1行おきに網掛けする3つの方法｜テーブル・条件付き書式・VBA

Excelのスプレッドシートで1行おきに網掛けを行うと、データが格段に読みやすくなり、内容の理解もスムーズになります。データ表の視認性を高める定番テクニックですが、1行ずつ手作業で塗りつぶしていくのは非常に時間がかかってしまいます。そこで本記事では、Excelで1行おきに網掛けを効率的に行う方法を3つご紹介します。

練習用の無料Excelワークブックはこちらからダウンロードできますので、ぜひ実際に試してみてください。

Excelで1行おきに網掛けする3つの便利な方法

この記事では、以下のデータセットを使用します。ここには、ある人物に関するサンプル情報が含まれています。このデータセットを使い、Excelで1行おきに網掛けする3つの異なるアプローチを順番に解説していきます。1つ目はデータセットをテーブルとして書式設定する方法、2つ目は条件付き書式を活用する方法、そして3つ目はVBAを使う方法です。

方法1：テーブルとして書式設定して1行おきに網掛けする

データセットをテーブルとして書式設定することで、自動的に1行おきの網掛けを実現できます。具体的な手順は以下の通りです。

ステップ1：

• まず、ワークシート上でデータセットの範囲を選択します。

ステップ2：

• 次に、リボンのホームタブを開きます。
• スタイルグループにあるテーブルとして書式設定コマンドを選択します。

ステップ3：

• コマンドを選択すると、さまざまな既定のテーブルスタイルが表示されます。
• その中から、1行おきに網掛けされたスタイルを選びましょう。

ステップ4：

• スタイルを選択すると、テーブル作成というダイアログボックスが表示されます。
• データ範囲はすでに入力されているので、そのままOKを押します。

ステップ5：

• 以上の手順を完了すると、1行おきに網掛けされた表が完成します。

あわせて読みたい： テーブルを使わずにExcelで行の色を交互に変更する方法（5選）

方法2：条件付き書式を使って1行おきに網掛けする

2つ目の方法では、Excelの条件付き書式機能を活用します。以下の手順に沿って進めてください。

ステップ1：

• まず、見出し行を除いたデータ範囲を選択します。

ステップ2：

• リボンのホームタブからスタイルグループを開きます。
• グループ内の条件付き書式コマンドを選択します。

ステップ3：

• コマンドを選択すると、さらにオプションが表示されます。
• そこから新しいルール…を選択しましょう。

ステップ4：

• 「ルールの種類を選択してください」の項目で、「数式を使用して、書式設定するセルを決定」を選びます。

ステップ5：

• 「次の数式を満たす値を書式設定」の入力ボックスに、以下の数式を入力します。

=MOD(ROW(),2)=1

• その後、書式ボタンを押します。
  

ステップ6：

• セルの書式設定ダイアログボックスが表示されます。
• 塗りつぶしタブから、好みの網掛け色を選択してください。
• 最後にOKを押します。

ステップ7：

• ステップ4のダイアログボックスが再び表示されるので、OKを押して確定します。

ステップ8：

• すべての手順を完了すると、データ表は以下の画像のように1行おきに網掛けされます。

あわせて読みたい： 条件付き書式でExcelの行の色を交互に変更する方法【動画】

方法3：VBAを使って1行おきに網掛けする

最後の方法は、VBAのコードを使って1行おきに網掛けをするやり方です。詳細な手順は以下の通りです。

ステップ1：

• まず、ワークシート上でデータ範囲を選択します。この例ではB5:E10です。

ステップ2：

• 次に、リボンの開発タブを開きます。
• コードグループにあるVisual Basicコマンドを選択します。

ステップ3：

• VBAエディター画面が開いたら、挿入タブから標準モジュールを選択します。

ステップ4：

• 以下のVBAコードをコピーして、モジュールに貼り付けます。

'関数名を設定
Sub Shade_Every_Other_Row()
'Rng変数をRange型として宣言
Dim Rng As Range
'データセットからセル範囲を選択
Set Rng = Selection
'Forループで2行ごとに処理を実行
For i = Rng.Rows.Count To 1 Step -2
'データ範囲の該当行を取得
Set myRow = Rng.Rows(i)
'RGB関数で色を指定し、1行おきに網掛け
myRow.Interior.Color = RGB(135, 206, 250)
'最後の行に達するまで処理を繰り返す
Next i
End Sub

VBAコードの解説

• 関数名は Shade_Every_Other_Row です。
• 変数 Dim Rng は、Range型として宣言された変数です。
• Set Rng = Selection：網掛けを適用するセル範囲を手動で選択して代入します。
• For i = Rng.Rows.Count To 1 Step -2：Forループを使い、データセット内の1行おきの行を順に処理します。
• Set myRow = Rng.Rows(i)：データ範囲内の該当行を取得します。
• Color = RGB(135, 206, 250)：RGB関数を使って、好みの色で行を網掛けします。
• Next i：最後の行に到達するまで処理を繰り返します。

ステップ5：

• コードを保存したら、再生ボタンまたはF5キーを押して実行します。

ステップ6：

• コードを実行すると、データセットの1行おきの行が網掛けされます。

あわせて読みたい： Excelで交互の行に色を付ける方法（8選）

まとめ

以上でこの記事は終わりです。本記事がお役に立てれば幸いです。上記の手順を参考にすれば、Excelで1行おきに網掛けを簡単に実現できます。ご質問やご提案がございましたら、下のコメント欄でお気軽にお知らせください。Exceldemyチームは、皆様のご意見をいつでもお待ちしています。

関連記事

• Excelで結合セルの行に交互に色を付ける方法
• Excelでセルの値に基づいて交互の行に色を付ける方法
• Excelでグループごとに交互の行の色を変える方法（6選）