跳到主要內容

如何在 Excel 中為合併單元格的交替行著色?

在大數據中用不同顏色格式化交替行對我們掃描數據很有幫助,但有時,您的數據中可能會有一些合併的單元格。 要使用不同顏色交替突出顯示合併單元格的行,如下圖所示,您如何在 Excel 中解決此問題?

使用條件格式為合併單元格著色交替行

使用 VBA 代碼為合併單元格著色交替行


使用條件格式為合併單元格著色交替行

在 Excel 中,強大的功能 -條件格式 可以幫助您盡快完成此任務,請執行以下步驟:

1. 選擇包含要交替著色的合併單元格的數據范圍,然後單擊 首頁 > 條件格式 > 新規則,請參見屏幕截圖:

2。 在彈出 新格式規則 對話框中,進行以下操作:

  • 選擇 使用公式來確定要格式化的單元格 選項從 選擇規則類型 列錶框;
  • 然後輸入這個公式: =MOD(COUNTA($A$2:$A2),2)=0格式化此公式為真的值 文本框。
  • 備註: A2 是數據范圍的第一個單元格。

3。 然後,點擊 格式 按鈕去 單元格格式 對話框。 在下面 選項卡,選擇一種要突出顯示行的顏色,請參見屏幕截圖:

4。 點擊 OK > OK 關閉對話框,合併單元格的行將填充您指定的顏色,請參見屏幕截圖:

5。 繼續點擊 首頁 > 條件格式 > 新規則 打開 新格式規則 對話框中,進行以下操作:

  • 選擇 使用公式來確定要格式化的單元格 選項從 選擇規則類型 列錶框;
  • 然後輸入這個公式: =MOD(COUNTA($A$2:$A2),2)=1格式化此公式為真的值 文本框。
  • 然後,單擊 格式 按鈕選擇要突出顯示行的另一種顏色。
  • 備註: A2 是數據范圍的第一個單元格。

6。 然後,單擊 OK > OK 關閉對話框,現在,您可以看到所選數據范圍已根據合併的單元格交替使用兩種不同的顏色進行著色,如下圖所示:


使用 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. 在第二個提示框中,選擇合併單元格的列,看截圖:

5。 然後,單擊 OK 按鈕,行會根據合併的單元格交替著色,如下圖所示:


視頻:合併單元格的顏色交替行


更多相關文章:

  • 從合併的單元格中過濾所有相關數據
  • 假設您的數據范圍中有一列合併的單元格,現在,您需要用合併的單元格過濾此列,以顯示與每個合併的單元格相關的所有行,如下面的屏幕快照所示。 在excel中,“篩選器”功能允許您僅篩選與合併單元格關聯的第一項,在本文中,我將討論如何從Excel中的合併單元格中篩選所有相關數據?
  • 將合併的單元格複製並粘貼到單個單元格
  • 通常,當您複製合併的單元格並將其粘貼到其他單元格中時,將直接粘貼合併的單元格。 但是,您希望將這些合併的單元格粘貼到單個單元格,如下面的屏幕快照所示,以便您可以根據需要處理數據。 在本文中,我將討論如何將合併的單元格複製並粘貼到單個單元格中。
  • 清除多個合併單元格的內容
  • 如果您現在有一個包含多個合併單元格的大型工作表,則希望清除合併單元格的所有內容,但保留合併單元格。 通常,您可以嘗試先應用“查找和替換”功能來選擇所有合併的單元格,然後按Delete鍵刪除該值,但是,您會收到一條警告消息“我們無法對合併的單元格執行此操作”。 在這種情況下,如何清除合併單元格中的值,但如何將合併後的單元格快速保留在Excel中?
  • 自動編號合併的單元格
  • 如何在Excel中將序列號填充到不同大小的合併單元格列表中? 我們首先想到的是拖動“自動填充”手柄以填充合併的單元格,但是在這種情況下,我們將收到以下警告消息,並且無法填充合併的單元格。

  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 和保存數據; 拆分單元格內容; 合併重複的行和總和/平均值...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 收藏并快速插入公式,範圍,圖表和圖片; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 數據透視表分組依據 週號,週幾等 顯示未鎖定的單元格 用不同的顏色 突出顯示具有公式/名稱的單元格...
kte選項卡201905
  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
А еще у вас неверная формула:)
Ну нет такой формулы - СЧЕТЧИК
Правильнее СЧЕТЗ =)
This comment was minimized by the moderator on the site
Hello, Влад
The formulas in this article have been translated, so you can try the below formulas in English:
=MOD(COUNTA($A$2:$A2),2)=0
=MOD(COUNTA($A$2:$A2),2)=1
Please try, hope it can help you!
This comment was minimized by the moderator on the site
Здравствуйте!
Спасибо за статью

У меня есть некоторое замечание
= ОСТАТ (СЧЕТЧИК ($ A $ 2: $ A 2), 2) = 0
правильно , сменить на ;
= ОСТАТ (СЧЕТЧИК ($ A $ 2: $ A 2); 2) = 0

но даже после этого не работает
This comment was minimized by the moderator on the site
Hello, Vlad
The formulas in this article have been translated, so you can try the below formulas in English:
=MOD(COUNTA($A$2:$A2),2)=0
=MOD(COUNTA($A$2:$A2),2)=1

Please try, hope it can help you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations