Note: The other languages of the website are Google-translated. Back to English

如何比較兩列並在Excel中突出顯示不匹配的數據?

如下面的屏幕截圖所示,要比較相鄰單元格的兩列並突出顯示不匹配的數據,可以嘗試本文中的方法。

比較兩列,並使用VBA代碼突出顯示不匹配的數據
比較兩列並使用Kutools for Excel突出顯示不匹配的數據


比較兩列,並使用VBA代碼突出顯示不匹配的數據

如上圖所示,您正在比較A列和B列中的數據。請運行以下VBA代碼以突出顯示不匹配的數據。

1。 按 其他 + 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 鍵來運行代碼。 在彈出 Excel的Kutools 對話框中,選擇需要比較的第一列,然後單擊 OK 按鈕。 查看截圖。

4.然後在下一個彈出窗口中選擇第二個比較列 Excel的Kutools 對話框。

5.在下面顯示的屏幕截圖對話框中,要突出顯示不匹配的數據,請單擊 沒有 按鈕。

然後,兩列之間的所有不匹配數據將立即突出顯示。 看截圖:


比較兩列並使用Kutools for Excel突出顯示不匹配的數據

如果您只想找出並突出顯示一列中的單元格值是否存在於另一列中,例如,如下所示的屏幕截圖,則A列中的數字2在B列中不存在。您可以嘗試 比較範圍 的效用 Excel的Kutools.

1。 點擊 庫工具 > 插入選擇相同和不同的單元格。 看截圖:

2。 在裡面 選擇相同和不同的單元格 對話框,您需要配置如下:

2.1選擇包含未匹配單元格的第一列,您將在其中突出顯示 尋找價值 在盒子裡
2.2在列表中選擇要比較的第二列 根據 框;
2.3在 基於 setcion,選擇 單細胞 選項;
2.3選擇 不同的價值觀 在選項 發現 部分;
2.4在 結果處理 部分,檢查 填充背景色 框,然後從下拉列表中指定背景色;
2.5點擊 OK 按鈕。 看截圖:

3.然後彈出一個對話框,告訴您僅在A列而不是B列中有多少個單元格,單擊OK按鈕,然後在A列中選擇了所有匹配的單元格。

  如果您想免費試用(30-day) 這個實用程序, 請點擊下載,然後按照上述步驟進行操作。


相關文章:


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (5)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
hi
我對vba有些懷疑
網站主持人對此評論進行了最小化
嗨,
請讓我知道你的疑問。
網站主持人對此評論進行了最小化
嗨,它很棒,非常有用!!!!!!!!!!

另外,我對此有疑問。 在'A1'中,我的文字為'Hi 人”,在“B1”中,我的文字為“H”a 男人'。 因此,當我運行 Macron 時,我需要 B1 'H 中的結果a 男人'(“a" 僅應突出顯示,其他文本應正常)。

請大哥解決這個問題!!!
網站主持人對此評論進行了最小化
美好的一天,
下面文章中的 VBA 代碼可以幫你一個忙。 請點擊鏈接。
如何在 Excel 中比較兩個字符串的相似性或突出差異?
https://www.extendoffice.com/documents/excel/3716-excel-compare-two-strings-highlight-differences-for-similarity.html#a2
網站主持人對此評論進行了最小化
嗨,兄弟,
謝謝你的回复
我檢查了這個鏈接,我沒有看到我在期待什麼.. 如果在 A1 clm 我們有“Man”和 A2 作為“Mon”。 在那,'o'只有不同。 所以,我需要像'o'應該突出顯示。 其他文本應顯示為普通文本。
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護