如何在 Excel 中比較兩欄資料，並標示出不相符的項目？

作者Siluvia修改日期2024-11-11

如下圖所示，若要比較相鄰儲存格中的兩欄資料並標示出不相符的內容，可試用本文介紹的方法。

顯示 Excel 欄位中已標示不相符資料的螢幕截圖

使用 VBA 程式碼比較兩欄並標示不相符的資料
 使用 Kutools for Excel 比較兩欄並標示不相符的資料

使用 VBA 程式碼比較兩欄並標示不相符的資料

如上圖所示，您正在比對 A 欄與 B 欄的資料。請執行下列 VBA 程式碼，以標示出不相符的項目。

1. 同時按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

2. 在 Microsoft Visual Basic for Applications 視窗中，點選插入＞模組，然後將下列程式碼複製並貼上至程式碼視窗中。

VBA 程式碼：比較兩欄並標示不相符的資料

Sub Dyeware()
    Dim xRg1 As Range
    Dim xRg2 As Range
    Dim xTxt As String
    Dim xCell1 As Range
    Dim xCell2 As Range
    Dim I As Long
    Dim J As Integer
    Dim xLen As Integer
    Dim xDiffs As Boolean
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg1 = Application.InputBox("Range A:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg1 Is Nothing Then Exit Sub
    If xRg1.Columns.Count > 1 Or xRg1.Areas.Count > 1 Then
        MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
lTwo:
    Set xRg2 = Application.InputBox("Range B:", "Kutools for Excel", "", , , , , 8)
    If xRg2 Is Nothing Then Exit Sub
    If xRg2.Columns.Count > 1 Or xRg2.Areas.Count > 1 Then
        MsgBox "Multiple ranges or columns have been selected", vbInformation, "Kutools for Excel"
        GoTo lTwo
    End If
    If xRg1.CountLarge <> xRg2.CountLarge Then
       MsgBox "Two ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
       GoTo lTwo
    End If
    xDiffs = (MsgBox("Click Yes to highlight matched data, click No to highlight unmatched data ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
    Application.ScreenUpdating = False
    xRg2.Interior.ColorIndex = xlNo
    xRg1.Interior.ColorIndex = xlNo
    For I = 1 To xRg1.Count
        Set xCell1 = xRg1.Cells(I)
        Set xCell2 = xRg2.Cells(I)
        If xCell1.Value = xCell2.Value Then
            If Not xDiffs Then
                xCell1.Interior.Color = vbRed
                xCell2.Interior.Color = vbRed
            End If
        Else
            If xDiffs Then
                xCell1.Interior.Color = vbRed
                xCell2.Interior.Color = vbRed
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. 按下 F5 鍵以執行程式碼。在彈出的 Kutools for Excel 對話方塊中，選取您要比較的第一欄，然後按一下確定按鈕。請參閱截圖。

Kutools 選取第一個比較欄位的對話框螢幕截圖

4. 接著，在下一個彈出的 Kutools for Excel 對話方塊中，選取第二個要比較的欄位。

Kutools 選取第二個比較欄位的對話框螢幕截圖

5. 在如下圖所示的對話方塊中，若要標示不相符的資料，請點選否按鈕。

提示標示相符或不相符資料的對話框螢幕截圖

接著，兩欄之間所有不相符的資料將立即被標示出來。請參閱截圖：

顯示已標示不相符資料的螢幕截圖

使用 Kutools for Excel 比較兩欄並標示不相符的資料

如果您只想快速找出並標示某一欄中的儲存格值是否出現在另一欄中（例如下圖所示：A 欄的數字 2 在 B 欄中不存在），不妨試試比較範圍功能——此功能內建於 Kutools for Excel，讓您輕鬆完成比對！

顯示欄位資料的螢幕截圖，其中 A 欄包含一個不相符儲存格範例

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

1. 點選 Kutools > 插入 > 選擇相同/不同單元格。請參閱截圖：

Excel 中 Kutools「選取相同與不同儲存格」功能的螢幕截圖

2. 在選擇相同/不同單元格對話方塊中，您需進行以下設定：

2.1 在尋找值方塊中，選取您要標示不相符儲存格的第一欄；

2.2 在依據方塊中，選取您要據此比較的第二欄；

2.3 在比對基準區段中，選取單一儲存格選項；

2.3 在不同值選項中，選取尋找區段；

2.4 在對選中結果的處理區段中，勾選填充背景顏色核取方塊，並從下拉列表中指定一個背景顏色；

2.5 按一下確定按鈕。請參閱截圖：

「選取相同與不同儲存格」對話框的螢幕截圖

3. 接著會彈出一個對話方塊，顯示有多少個儲存格僅存在於 A 欄而不在 B 欄；點擊「確定」後，A 欄中所有符合條件的儲存格將自動被選取。

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

最佳 Office 生產力工具

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