如何在 Excel 中為合并單元格的交替行著色?
在大數(shù)據(jù)中用不同顏色格式化交替行對我們掃描數(shù)據(jù)很有幫助,但有時(shí),您的數(shù)據(jù)中可能會有一些合并的單元格。 要使用不同顏色交替突出顯示合并單元格的行,如下圖所示,您如何在 Excel 中解決此問題?
使用條件格式為合并單元格著色交替行
使用 VBA 代碼為合并單元格著色交替行
使用條件格式為合并單元格著色交替行
在 Excel 中,強(qiáng)大的功能 -條件格式 可以幫助您盡快完成此任務(wù),請執(zhí)行以下步驟:
1. 選擇包含要交替著色的合并單元格的數(shù)據(jù)范圍,然后單擊 首頁 > 條件格式 > 新規(guī)則,請參見屏幕截圖:
2。 在彈出 新格式規(guī)則 對話框中,進(jìn)行以下操作:
選擇
使用公式來確定要格式化的單元格 選項(xiàng)從
選擇規(guī)則類型 列表框;
然后
輸入這個(gè)公式:
=MOD(COUNTA($A$2:$A2),2)=0 到
格式化此公式為真的值 文本框。
備注:
A2 是數(shù)據(jù)范圍的第一個(gè)單元格。
3。 然后,點(diǎn)擊 格式 按鈕去 單元格格式 對話框。 在下面 填 選項(xiàng)卡,選擇一種要突出顯示行的顏色,請參見屏幕截圖:
4。 點(diǎn)擊 OK > OK 關(guān)閉對話框,合并單元格的行將填充您指定的顏色,請參見屏幕截圖:
5。 繼續(xù)點(diǎn)擊 首頁 > 條件格式 > 新規(guī)則 打開 新格式規(guī)則 對話框中,進(jìn)行以下操作:
選擇
使用公式來確定要格式化的單元格 選項(xiàng)從
選擇規(guī)則類型 列表框;
然后
輸入這個(gè)公式:
=MOD(COUNTA($A$2:$A2),2)=1到
格式化此公式為真的值 文本框。
然后,單擊
格式 按鈕選擇要突出顯示行的另一種顏色。
備注:
A2 是數(shù)據(jù)范圍的第一個(gè)單元格。
6。 然后,單擊 OK > OK 關(guān)閉對話框,現(xiàn)在,您可以看到所選數(shù)據(jù)范圍已根據(jù)合并的單元格交替使用兩種不同的顏色進(jìn)行著色,如下圖所示:
使用 VBA 代碼為合并單元格著色交替行
除了正常的條件格式,您還可以使用 VBA 代碼輕松地為合并的單元格應(yīng)用替代行顏色。
1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應(yīng)用程序 窗口。

2。 然后,點(diǎn)擊 插頁 > 模塊,然后將以下代碼粘貼到 模塊 窗口。
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 doesnt 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 運(yùn)行此代碼的關(guān)鍵。 在第一個(gè)彈出框中,選擇要使用的數(shù)據(jù)范圍,看截圖:
4. 在第二個(gè)提示框中,選擇合并單元格的列,看截圖:
5。 然后,單擊 OK 按鈕,行會根據(jù)合并的單元格交替著色,如下圖所示:
視頻:合并單元格的顏色交替行
更多相關(guān)文章:
從合并的單元格中過濾所有相關(guān)數(shù)據(jù) 假設(shè)您的數(shù)據(jù)范圍中有一列合并的單元格,現(xiàn)在,您需要用合并的單元格過濾此列以顯示與每個(gè)合并的單元格相關(guān)的所有行,如下面的屏幕快照所示。 在excel中,“篩選器”
功能允許您僅篩選與合并單元格關(guān)聯(lián)的第一項(xiàng),在本文中,我將討論如何從Excel中的合并單元格中篩選所有相關(guān)數(shù)據(jù)?
將合并的單元格復(fù)制并粘貼到單個(gè)單元格
通常,當(dāng)您復(fù)制合并的單元格并將其粘貼到其他單元格中時(shí),將直接粘貼合并的單元格。 但是,您希望將這些合并的單元格粘貼到單個(gè)單元格,如下面的屏幕快照所示,以便您可以根據(jù)需要處理數(shù)據(jù)。 在本文中,我將討論如何將合并的單元格復(fù)制并粘貼到單個(gè)單元格中。
清除多個(gè)合并單元格的內(nèi)容 如果您現(xiàn)在有一個(gè)包含多個(gè)合并單元格的大型工作表,則希望清除合并單元格的所有內(nèi)容,但保留合并單元格。 通常,您可以嘗試先應(yīng)用“查找和替換”功能來選擇所有合并的單元格,然后按Delete鍵刪除該值,但是,您會收到一條警告消息“我們無法對合并的單元格執(zhí)行此操作”。 在這種情況下,如何清除合并單元格中的值,但如何將合并后的單元格快速保留在Excel中?
自動編號合并的單元格
如何在Excel中將序列號填充到不同大小的合并單元格列表中? 我們首先想到的是拖動“自動填充”手柄以填充合并的單元格,但是在這種情況下,我們將收到以下警告消息,并且無法填充合并的單元格。
最佳辦公效率工具
Kutools for Excel解決了您的大多數(shù)問題,并使您的生產(chǎn)率提高了80%
超級公式欄(輕松編輯多行文本和公式);
閱讀視圖 (輕松讀取和編輯大量單元格);
粘貼到過濾范圍...
合并單元格/行/列 和保存數(shù)據(jù); 拆分單元格內(nèi)容;
合并重復(fù)的行和總和/平均值...防止細(xì)胞重復(fù);
比較范圍...
選擇重復(fù)或唯一 行;
選擇空白行 (所有單元格都是空的);
超級查找和模糊查找 在許多工作簿中; 隨機(jī)選擇...
確切的副本 多個(gè)單元格,無需更改公式參考;
自動創(chuàng)建參考 到多張紙;
插入項(xiàng)目符號,復(fù)選框等...
收藏并快速插入公式,范圍,圖表和圖片;
加密單元 帶密碼
創(chuàng)建郵件列表 并發(fā)送電子郵件...
提取文字,添加文本,按位置刪除,
刪除空間; 創(chuàng)建和打印分頁小計(jì);
在單元格內(nèi)容和注釋之間轉(zhuǎn)換...
超級篩選(將過濾方案保存并應(yīng)用于其他工作表);
高級排序 按月/周/日,頻率及更多;
特殊過濾器 用粗體,斜體...
結(jié)合工作簿和工作表; 根據(jù)關(guān)鍵列合并表;
將數(shù)據(jù)分割成多個(gè)工作表;
批量轉(zhuǎn)換xls,xlsx和PDF...
數(shù)據(jù)透視表分組依據(jù) 周號,周幾等
顯示未鎖定的單元格 用不同的顏色
突出顯示具有公式/名稱的單元格...
閱讀更多
功能齊全的30天免費(fèi)試用版... 采購...
Office Tab - 為 Office 帶來選項(xiàng)卡式界面,讓您的工作更加輕松
在Word,Excel,PowerPoint中啟用選項(xiàng)卡式編輯和閱讀,發(fā)布者,Access,Visio和Project。
在同一窗口的新選項(xiàng)卡中而不是在新窗口中打開并創(chuàng)建多個(gè)文檔。
每天將您的工作效率提高50%,并減少數(shù)百次鼠標(biāo)單擊!
閱讀更多
功能齊全的30天免費(fèi)試用版... 采購...