京寵展信息指南
562
2025-03-31
如何比較兩列并在Excel中突出顯示不匹配的數據？
如何比較兩列并在Excel中突出顯示不匹配的數據？
如下面的屏幕截圖所示，要比較相鄰單元格的兩列并突出顯示不匹配的數據，可以嘗試本文中的方法。
比較兩列，并使用VBA代碼突出顯示不匹配的數據
比較兩列并突出顯示不匹配的數據 Kutools for Excel 比較兩列，并使用VBA代碼突出顯示不匹配的數據
驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！
每天節省50％的時間，并減少數千次鼠標單擊！
如上圖所示，您正在比較A列和B列中的數據。請運行以下VBA代碼以突出顯示不匹配的數據。
1。 按 其他 + F11 同時打開 Microsoft Visual Basic應用程序 窗口。
2.在 Microsoft Visual Basic應用程序 窗口中，單擊 插頁 > 模塊。 然后將以下代碼復制并粘貼到“代碼”窗口中。
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
Copy
3。 按 F5 鍵來運行代碼。 在彈出 Kutools for Excel 對話框中，選擇需要比較的第一列，然后單擊 OK 按鈕。 查看截圖。
4.然后在下一個彈出窗口中選擇第二個比較列 Kutools for Excel 對話框。
5.在下面顯示的屏幕截圖對話框中，要突出顯示不匹配的數據，請單擊 沒有 按鈕。
然后，兩列之間的所有不匹配數據將立即突出顯示。 看截圖：
比較兩列并突出顯示不匹配的數據 Kutools for Excel如果您只是想找出并突出顯示一列中的單元格值是否存在于另一列中，例如，如下面的屏幕截圖所示，則B列中不存在A列中的數字2。 比較范圍 實用程序 Kutools for Excel.
1。 點擊 Kutools > 插頁 > 選擇相同和不同的單元格。 看截圖：
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!
準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數據處理能力：合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力！
?? 高效的批量操作：當你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導入、導出、組合和調整數據。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強大的導航窗格：通過強大的列管理器、工作表管理器和自定義收藏夾獲得優勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數據輸入變得輕而易舉。
?? 用戶友好：對于初學者來說輕而易舉，對于專家來說是一個強大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創建多個文檔。
每天將您的工作效率提高50％，并減少數百次鼠標單擊！
閱讀更多
免費下載... 采購...
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
