Excel で結合済みの交互に行に色を付ける方法は？

大量のデータに交互に行ごとに異なる色を付けると、読みやすさが向上します。しかし、データ内に結合セルが含まれている場合、以下スクリーンショットのように、結合セルを考慮して交互に行をハイライト表示するには、Excel でどのように設定すればよいでしょうか？

条件付き書式を使用するで結合済みの交互に行に色を付ける

VBA コードで結合済みの交互に行に色を付ける

---

条件付き書式を使用するで結合済みの交互に行に色を付ける

Excel では、強力な機能である条件付き書式を使用することで、このタスクを迅速に実行できます。以下の手順に従ってください。

1。交互に行に色を付けたい結合セルを含むデータ範囲を選択し、次にホーム>条件付き書式>新しいルールをクリックします（スクリーンショット参照）。

2。新しい書式設定ルールダイアログボックスが表示されたら、次の操作を行ってください。

• 選択数式を使用して書式設定するセルを決定をルールの種類の選択リストボックスから
• 次に、「この数式を満たす値に書式を設定」テキストボックスに、次の数式を入力します：=MOD(COUNTA($A$2:$A2),2)=0。
• 注：A2はデータ範囲の先頭セルです。

3。次に、書式設定ボタンをクリックして、セルの書式設定ダイアログボックスを開きます。「塗りつぶし」タブで、ハイライト表示したい行の色を1 つ選択してください（スクリーンショット参照）。

4。「OK」をクリックしてダイアログを閉じると、結合済みのセルを含む行が指定した色で塗りつぶされます（スクリーンショット参照）。

5。ホーム > 条件付き書式を使用する > 新しいルールをクリックして、新しい書式設定ルールダイアログボックスを開き、次の操作を行います。

• 選択数式を使用して書式設定するセルを決定をルールの種類の選択リストボックスから
• 次に、次の数式を入力します：=MOD(COUNTA($A$2:$A2),2)=1「この数式を満たす値に書式を設定」テキストボックスに。
• 次に、書式設定ボタンをクリックして、行をハイライト表示する色を別のものに変更します。
• 注：A2はデータ範囲の先頭セルです。

6。次に、OKをクリックしてダイアログを閉じると、以下のスクリーンショットのように、データの選択範囲が結合済みのセルに基づいて2 色で交互に塗り分けられていることが確認できます。

---

VBA コードで結合済みの交互に行に色を付ける

通常の条件付き書式を使用する以外にも、VBA コードを使用して結合済みに対して簡単に交互に行の色付けを適用できます。

1。 「ALT + F11」キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2。次に、挿入 > 標準モジュールをクリックし、表示される標準モジュールウィンドウに次のコードを貼り付けてください。

VBA コード：結合済みの交互に行に色を付ける

Sub Kutools_AlternateColor()
'Update by ExtendOffice
Dim xRg As Range
Dim xCRg As Range
Dim xIRg As Range
Dim xC1, xC2 As Integer
Dim xR1 As Integer
Dim xCnt As Long
Dim xLColor, xDCR1, xDCR2 As Long
Set xRg = Application.InputBox("Please select the data range:", "KutoolsforExcel", "", Type:=8)
If TypeName(xRg) = "Nothing" Then Exit Sub
Set xCRg = Application.InputBox("Please select the column with the merged cells:", "KutoolsforExcel", "", Type:=8)
If TypeName(xCRg) = "Nothing" Then Exit Sub
Set xIRg = Intersect(xRg, xCRg)
If xIRg Is Nothing Then
MsgBox "the data range doesn't contain merged cells"
Exit Sub
End If
xC1 = xRg.Column
xC2 = xIRg.Column
xR1 = xRg.Row
xLColor = RGB(221, 235, 247)
xDCR1 = RGB(221, 235, 247)
xDCR2 = RGB(250, 232, 222)
xRw = 0
Do
xLColor = xDCR1 + xDCR2 - xLColor
xCnt = Cells(xRw + xR1, xC2).MergeArea.Rows.Count
Cells(xRw + xR1, xC1).Resize(xCnt, xRg.Columns.Count).Interior.Color = xLColor
xRw = xRw + xCnt
Loop While xRw < xRg.Rows.Count - 1
End Sub

3。次に、F5キーを押してこのコードを実行します。最初に表示されるダイアログボックスで、使用するデータ範囲を選択してください（スクリーンショット参照）。

4。2 番目のプロンプトボックスで、結合済みのセルを含む列を選択してください（スクリーンショット参照）。

5。次に、OKボタンをクリックすると、以下のスクリーンショットのように、結合済みの行が交互に塗り分けられます。

---

動画：結合済みの交互に行に色を付ける

---

関連記事：