如何在 Excel 中为合并单元格的交替行着色？

Author: Xiaoyang Last Modified: 2025-05-07

在大数据中使用不同颜色格式化交替行对我们扫描数据非常有帮助，但有时您的数据中可能会有一些合并单元格。为了像下面截图所示那样用不同的颜色突出显示合并单元格的交替行，您如何在 Excel 中解决这个问题呢？

color alternate rows for merged cells example

使用条件格式为合并单元格的交替行着色

使用 VBA 代码为合并单元格的交替行着色

使用条件格式为合并单元格的交替行着色

在 Excel 中，强大的功能 - 条件格式可以帮助您尽可能快地完成此任务，请按照以下步骤操作：

1. 选择包含要交替着色的合并单元格的数据区域，然后点击开始 > 条件格式 > 新建规则，参见截图：

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. 继续点击开始 > 条件格式 > 新建规则 打开 新格式规则 对话框，进行以下操作：

从选择规则类型列表框中选择 使用公式确定要设置格式的单元格 选项；
然后在为此公式为真时设置格式值文本框中输入此公式：=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