KutoolsforOffice — 一套方案,五大工具。事半功倍。三月特賣:20% 折扣

如何在 Excel 中為重複的值或重複的資料列設定醒目提示色彩?

作者修改日期

在 Excel 中處理大型資料集時,經常會遇到重複項目——無論是分散於欄位中的單一重複值,還是橫跨多個欄位、內容完全相同的整列資料。若靠手動辨識並為這些重複項目上色,在複雜的試算表中不僅耗時費力,還容易出錯。透過色彩標示清晰區分重複值或整列資料,能有效簡化資料審閱流程、提升資料驗證效率,並加速後續分析與報表製作。以下提供多種實用方法,從 Excel 內建功能、專業工具到進階自動化技巧,助您輕鬆為重複資料上色。

使用使用條件格式為重複值或列上色

使用 Kutools for Excel 為重複值或列上色好點子3

使用 VBA 巨集自動化為重複值或列上色


藍色右向箭頭氣泡使用使用條件格式為重複值或列上色

Excel 的「條件格式」功能提供了一種直觀的方式,能以視覺化效果標示重複值或整列資料,特別適合快速審閱與驗證那些需特別留意重複資訊的資料集,有助於確保資料完整性。然而,此方法主要適用於可見資料,較適合一次性任務,而不適用於需要持續更新或處理極大動態範圍的情境。

為重複值上色

1. 選取包含欲檢查重複值的資料區域,接著切換至開始選項卡,點選使用條件格式,進入醒目提示儲存格規則,然後選擇重複值。操作畫面請參閱下方截圖:

條件式格式設定下拉式選單中的「重複值」選項

2. 在出現的對話方塊中,從下拉選單選擇您想套用至重複值的醒目提示色彩,即可根據個人偏好與配色方案,直覺地以視覺區分重複項目。請參閱截圖:

重複值對話框

3. 按一下確定以套用格式設定。所有重複值(包含首次出現的項目)現已套用您指定的醒目色彩,方便一眼辨識!

重複值(包含第一筆重複項目)已上色

實用提示:若您希望標示重複項目,但排除首次出現的項目,條件格式無法直接支援此功能。建議您新增輔助欄位並搭配公式,或採用後續章節所介紹的進階解決方案!

在選擇區域中為重複行上色

若您的任務需根據特定欄位中的重複項目為整行上色,請遵循下列步驟:

1. 選取包含欲評估資料列的資料區域。在開始選項卡中,點選條件格式,再選擇新增規則。請參閱截圖:

條件式格式設定下拉式選單中的「新增規則」選項

2. 在新增格式設定規則對話方塊中,選取使用公式決定要格式設定的儲存格,並在提供的方塊中輸入下列公式(請依需求調整範圍與欄位參照):

=COUNTIF($D$2:$D$10,$D2)>1

提示:此公式中,D2:D10 代表用於偵測重複值的目標欄位範圍,而 D2 則為該範圍的起始儲存格。請根據實際資料區域調整這些參照:若資料從第 5 列開始,請將 D2 改為 D5,依此類推。

新增格式設定規則對話框

3. 按一下格式,開啟設定儲存格格式視窗。在填滿頁籤中,選取能與原始資料形成明顯對比的背景顏色來標示重複行,確保清晰易辨。請參閱截圖:

儲存格格式對話框

4. 在確定按鈕上按一下,然後再次於設定儲存格格式對話方塊中按一下確定,即可完成新增格式設定規則對話方塊的操作。現已標示指定欄位中包含重複值的所有列(含各重複項目的首次出現)。

重複的列(包含第一筆重複列)已上色

此技巧無需修改原始資料,即可提供視覺化摘要,方便進行篩選、排序或進一步編輯。請注意:若數據區域或欄位有所變更,您需手動調整公式;此外,僅靠條件格式所能實現的重複邏輯,其複雜度仍有一定限制。

然而,此方法需記憶並手動輸入公式,對部分使用者來說可能不夠便利,尤其在處理動態或經常更新的表格時。若您希望更靈活地標示重複項目(無論是否包含首次出現),或想為整(而不僅是單一儲存格)上色,建議立即嘗試以下進階解決方案!


藍色右向箭頭氣泡 使用 Kutools for Excel 為重複值或列上色

Kutools for Excel 提供高效且使用者友善的工具,不僅能快速定位並為重複值上色,還支援整行標記,並可自訂色彩及精細控制是否包含首次出現的項目。

Kutools for Excel 提供超過 300 項進階功能,簡化複雜作業,提升創造力與效率。整合 AI 功能,Kutools 能精準自動化各項任務,讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊……         免費試用……

安裝免費版 Kutools for Excel 後,請依下列步驟操作:

1. 選取目標清單或數據區域,然後按一下 Kutools> 選取> 選擇重複/唯一儲存格。此功能支援彈性選取與自訂設定,輕鬆滿足多種重複項目辨識需求!請參閱截圖:

功能區 [Kutools] 索引標籤上的「選取重複與唯一儲存格」選項

2. 在選擇重複/唯一儲存格對話方塊中,選取重複值(排除第一個符合的)重複值(包括第一個符合的)選項,接著勾選填充背景顏色,並從下方下拉式選單中挑選您想要的醒目提示色彩。此方法能精準掌控要標示的重複項目,並即時預覽效果!請參閱截圖:

選取重複與唯一儲存格對話框

3. 按一下確定,系統將提示已選取的儲存格數量,只需再按一下確定即可繼續。請參閱截圖:

成功對話框

您指定的重複值已依設定自動選取並標示顏色,讓資料獨特性一目了然,助您快速辨識重複項目。

重複項目已被選取並上色

注意:

若要標示重複行,請先選取完整範圍(包含欲檢視列的所有欄位),再開啟選擇重複/唯一儲存格功能,並確保除了勾選適當的判定條件外,同時勾選選擇整行選項。如此一來,系統將為所有重複行(而不僅是個別重複儲存格)完整上色,效果一目了然!請參閱下方範例:

已勾選「選取整列」選項的「選取重複與唯一儲存格」對話框包含重複項目的整列已上色

點此深入了解如何選取重複或唯一的儲存格。

此方法的優點包括無需記憶公式、提供直覺化的視覺介面讓您輕鬆設定選項,以及高效處理大型表格。然而,此解決方案需安裝 Kutools。若您經常執行此類任務,Kutools 不僅能大幅加速您的工作流程,其功能更遠超 Excel 內建工具。


藍色右向箭頭氣泡 使用 VBA 巨集自動化為重複值或資料列上色

對於需要更高階控制的使用者(例如跨多個工作表批次標示、自訂上色條件,或定期自動更新),可透過 VBA 巨集自動識別並為重複項目上色。此方法特別適合熟悉程式設計的使用者,或是需頻繁偵測重複資料,以及條件格式無法處理複雜規則的情境。

注意事項:執行巨集前,請務必先儲存活頁簿!由於 VBA 操作無法透過復原功能撤銷,若您的資料已套用色彩格式,巨集可能會覆寫受影響區域的現有格式。

自動為選取欄位中的重複值上色

1. 按一下開發人員工具Visual Basic。在開啟的 Microsoft Visual Basic for Applications 視窗中,按一下插入 模組,並將下方程式碼複製貼上至模組視窗中:

Sub HighlightDuplicateValues()
    Dim Rng As Range
    Dim Cell As Range
    Dim dict As Object
    Dim FirstColor As Long
    Dim DupColor As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set dict = CreateObject("Scripting.Dictionary")
    Set Rng = Application.InputBox("Select column to check for duplicates", xTitleId, Type:=8)
    
    If Rng Is Nothing Then Exit Sub
    
    FirstColor = vbYellow ' Color for first occurrence, change as needed
    DupColor = vbRed ' Color for duplicates, change as needed
    
    ' Clear previous coloring in the range
    Rng.Interior.ColorIndex = xlNone
    
    For Each Cell In Rng
        If Not IsEmpty(Cell.Value) Then
            If dict.exists(Cell.Value) Then
                Cell.Interior.Color = DupColor
            Else
                dict.Add Cell.Value, 1
                Cell.Interior.Color = FirstColor
            End If
        End If
    Next
End Sub

2. 按下 F5 或按一下執行按鈕按鈕以執行程式碼。出現提示時,請選取要檢查重複項目的儲存格範圍,然後按一下「確定」。巨集將掃描該欄位,把首次出現的項目標示為黃色(可在程式碼中調整),並將所有重複項目標示為紅色(同樣可自訂)。

根據整行內容自動為重複行上色

此巨集會標示您所選範圍內所有欄位中重複出現的整列。

1. 如前所述,開啟 VBA 編輯器(開發人員工具Visual Basic 插入 模組),然後貼上以下程式碼:

Sub HighlightDuplicateRows()
    Dim Rng As Range
    Dim RowArea As Range
    Dim dict As Object
    Dim i As Long
    Dim rowString As String
    Dim FirstColor As Long
    Dim DupColor As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set dict = CreateObject("Scripting.Dictionary")
    Set Rng = Application.InputBox("Select the range including all columns to evaluate for duplicate rows", xTitleId, Type:=8)
    
    If Rng Is Nothing Then Exit Sub
    
    FirstColor = vbYellow ' Change color as needed
    DupColor = vbRed ' Change color as needed
    
    ' Clear previous coloring
    Rng.EntireRow.Interior.ColorIndex = xlNone
    
    For i = 1 To Rng.Rows.Count
        rowString = ""
        For Each RowArea In Rng.Rows(i).Cells
            rowString = rowString & "|" & CStr(RowArea.Value)
        Next
        
        If dict.exists(rowString) Then
            Rng.Rows(i).Interior.Color = DupColor
        Else
            dict.Add rowString, 1
            Rng.Rows(i).Interior.Color = FirstColor
        End If
    Next
End Sub

2. 按一下執行或按下 F5,然後選取涵蓋所有欲比較欄位的適當範圍。巨集會將每個唯一資料列的首次出現標示為黃色(可自訂),並把所有後續重複的資料列標示為紅色。

參數說明與實務注意事項:

  • 變數 FirstColor 用於設定首次出現項目的填充顏色;DupColor 則用於設定重複值/列的顯示色彩。您可依需求將 vbYellowvbRed 替換為其他色彩常數或 RGB 值,輕鬆打造專屬視覺效果!
  • 此程式碼會將空白儲存格視為唯一值,且不會為其上色。若您的資料中含有需要特殊處理的空儲存格,可據此調整程式碼。
  • 處理極大資料集時,處理時間可能延長;若需處理數千列資料,敬請耐心等候。
  • 若您希望在重新執行巨集前清除先前的格式設定,請務必保持色彩重設程式碼()ColorIndex = xlNone)為啟用狀態。

此 VBA 方法極具彈性,可實現標準 Excel 工具無法達成的複雜自訂設定、批次處理及自動化情境,但需啟用巨集並具備基本的 VBA 操作知識。

疑難排解與摘要建議:若您遇到上色問題,請確認選取區域是否正確、巨集是否已啟用,且未有衝突的「條件格式」正在作用中。首次執行 VBA 前,務必先備份資料。若需定期進行複雜的重複標示作業,建議將已啟用巨集的活頁簿另存為範本,提升效率更安心!


最佳 Office 生產力工具

🤖KUTOOLS AI 助手:基於以下內容徹底革新數據分析:智慧執行     產生程式碼  建立自訂公式    分析資料並產生圖表  呼叫增強函數……
熱門功能尋找、醒目提示或標記重複值     刪除空白行     合併列或儲存格而不遺失資料     不使用公式的四捨五入……
高級 LOOKUP多重條件 VLookup    多重數值 VLookup     跨多個工作表 VLookup      模糊查找……
高級下拉列表快速建立下拉式清單     相依式下拉式清單     多選下拉式清單……
欄位管理員新增指定數量的欄位移動欄位切換隱藏欄位的可見狀態比較範圍與欄位……
精選功能網格聚焦     設計視圖   增強編輯欄    工作簿與工作表管理員     資源庫(自動文字)  日期提取     合併工作表    加密/解密儲存格    依清單傳送電子郵件     超級篩選      特殊篩選(篩選粗體儲存格/斜體/刪除線……) ......
頂尖 15 工具組12 文字工具添加文本刪除特定字符,……)   50+ 圖表 類型甘特圖,……)   40+ 實用公式基於生日計算年齡,……)   19 插入工具插入二維碼從路徑插入圖片,……)   12 轉換工具金額轉大寫匯率轉換,……)   7 合併和拆分工具高級合併行分割儲存格,……)……以及更多
在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言!

運用 Kutools for Excel 強化您的 Excel 技能,體驗前所未有的高效能!Kutools for Excel 提供超過 300 項進階功能,大幅提升生產力並節省寶貴時間。立即點擊,取得您最需要的功能……


Office Tab 為 Office 帶來分頁式介面,讓您的工作更輕鬆自在!

  • 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能,以及 Access、Visio 與 Project。
  • 在同視窗的新分頁中開啟並建立多份文件,而非另開新視窗。
  • 每天為您提升 50% 的工作效率,並省下數百次滑鼠點擊!

所有 Kutools 增益集,一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集,以及 Office Tab Pro,非常適合需要跨多個 Office 應用程式協作的團隊使用!

ExcelWordOutlookTabsPowerPoint
  • 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
  • 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
  • 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
  • 30 天完整功能試用— 無需註冊,無需信用卡
  • 超值之選— 比單獨購買各增益集更省費用