如何在 Excel 中為合併的儲存格著交替行顏色？

Author: Xiaoyang Last Modified: 2025-05-12

在大型數據中，使用不同的顏色格式化交替行對於我們掃描數據非常有幫助。但有時候，您的數據中可能包含一些合併的儲存格。為了像下面的截圖一樣，以不同的顏色突出顯示合併儲存格的交替行，您該如何在 Excel 中解決這個問題呢？

color alternate rows for merged cells example

使用條件格式為合併的儲存格著交替行顏色

使用 VBA 程式碼為合併的儲存格著交替行顏色

使用條件格式為合併的儲存格著交替行顏色

在 Excel 中，強大的功能——條件格式可以幫助您盡快完成此任務，請按照以下步驟操作：

1. 選擇包含要交替著色的合併儲存格的數據區域，然後點擊「Home」>「條件格式」>「新建規則」，見截圖：

click Home > Conditional Formatting > New Rule

2. 在彈出的「新建格式規則」對話框中，進行以下操作：

從「選擇規則類型」列表框中選擇「使用公式確定要設置格式的單元格」選項；
然後在「為符合此公式的值設置格式」文本框中輸入以下公式：=MOD(COUNTA($A$2:$A2),2)=0。
注意：A2 是您數據範圍的第一個單元格。

specify the options in the dialog box

3. 接著，點擊「格式」按鈕進入「設置單元格格式」對話框。在「填充」標籤下，選擇一種您想要用來突出顯示行的顏色，見截圖：

choose one color under the Fill tab

4. 點擊「確定」>「確定」關閉對話框，並且合併儲存格所在的行將填滿您指定的顏色，見截圖：

the rows with the merged cells are filled with the color

5. 繼續點擊「Home」>「條件格式」>「新建規則」打開「 新建格式規則」對話框，進行以下操作：

從「選擇規則類型」列表框中選擇「使用公式確定要設置格式的單元格」選項；
然後在「為符合此公式的值設置格式」文本框中輸入以下公式：=MOD(COUNTA($A$2:$A2),2)=1。
接著，點擊「格式」按鈕選擇另一種您想要用來突出顯示行的顏色。
注意：A2 是您數據範圍的第一個單元格。

specify another options in the dialog box

6. 然後，點擊「確定」>「確定」關閉對話框，現在您可以根據合併的儲存格看到所選數據範圍已交替著上兩種不同顏色，如下截圖所示：

the selected range is shaded with two different colors alternately based on the merged cells

使用 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 鍵運行程式碼。在第一個彈出的對話框中，選擇您要使用的數據範圍，見截圖：

vba code to select the data range