如何在Excel中比較兩個(gè)字符串的相似性或突出顯示差異？
在某些情況下，您可能只需要比較兩個(gè)相鄰的字符串單元格并在Excel中標(biāo)記它們的相似性或差異。 本文為您提供了兩種實(shí)現(xiàn)方法。
用公式比較兩個(gè)字符串
比較兩個(gè)字符串的相似性或使用VBA代碼突出顯示差異用公式比較兩個(gè)字符串如下面的屏幕截圖所示，如果您只想知道比較的字符串是否匹配，則可以應(yīng)用以下公式。
1.選擇一個(gè)空白單元格C2，輸入公式 = EXACT（A2，B2） 進(jìn)入公式欄，然后按Enter鍵。 看截圖：
備注：在公式中，A2和B2是包含比較字符串的單元格。
2.繼續(xù)選擇結(jié)果單元格，然后將“填充手柄”拖動(dòng)到單元格，直到獲得所有比較的結(jié)果。
FALSE結(jié)果表示比較的字符串不同，TRUE結(jié)果表示兩個(gè)比較的字符串匹配。 看截圖：
比較兩個(gè)字符串的相似性或使用VBA代碼突出顯示差異如果要比較兩個(gè)字符串并突出顯示它們之間的相似性或差異。 以下VBA代碼可以為您提供幫助。
1。 按 其他 + F11 同時(shí)打開 Microsoft Visual Basic應(yīng)用程序 窗口。
2.在 Microsoft Visual Basic應(yīng)用程序 窗口中，單擊 插頁 > 模塊。 然后將以下代碼復(fù)制并粘貼到“代碼”窗口中。
VBA代碼：比較兩個(gè)列字符串的相似性或突出顯示差異
Sub highlight()Dim xRg1 As RangeDim xRg2 As RangeDim xTxt As StringDim xCell1 As RangeDim xCell2 As RangeDim I As LongDim J As IntegerDim xLen As IntegerDim xDiffs As BooleanOn Error Resume NextIf ActiveWindow.RangeSelection.Count > 1 ThenxTxt = ActiveWindow.RangeSelection.AddressLocalElsexTxt = ActiveSheet.UsedRange.AddressLocalEnd IflOne:Set xRg1 = Application.InputBox("Range A:", "Kutools for Excel", xTxt, , , , , 8)If xRg1 Is Nothing Then Exit SubIf xRg1.Columns.Count > 1 Or xRg1.Areas.Count > 1 ThenMsgBox "Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"GoTo loneEnd IflTwo:Set xRg2 = Application.InputBox("Range B:", "Kutools for Excel", "", , , , , 8)If xRg2 Is Nothing Then Exit SubIf xRg2.Columns.Count > 1 Or xRg2.Areas.Count > 1 ThenMsgBox "Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"GoTo lTwoEnd IfIf xRg1.CountLarge <> xRg2.CountLarge ThenMsgBox "Two selected ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"GoTo lTwoEnd IfxDiffs = (MsgBox("Click Yes to highlight similarities, click No to highlight differences ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)Application.ScreenUpdating = FalsexRg2.Font.ColorIndex = xlAutomaticFor I = 1 To xRg1.CountSet xCell1 = xRg1.Cells(I)Set xCell2 = xRg2.Cells(I)If xCell1.Value2 = xCell2.Value2 ThenIf Not xDiffs Then xCell2.Font.Color = vbRedElsexLen = Len(xCell1.Value2)For J = 1 To xLenIf Not xCell1.Characters(J, 1).Text = xCell2.Characters(J, 1).Text Then Exit ForNext JIf Not xDiffs ThenIf J <= Len(xCell2.Value2) And J > 1 ThenxCell2.Characters(1, J - 1).Font.Color = vbRedEnd IfElseIf J <= Len(xCell2.Value2) ThenxCell2.Characters(J, Len(xCell2.Value2) - J + 1).Font.Color = vbRedEnd IfEnd IfEnd IfNextApplication.ScreenUpdating = TrueEnd SubCopy3。 按 F5 鍵來運(yùn)行代碼。 在第一 Kutools for Excel 對(duì)話框中，選擇要比較的文本字符串的第一列，然后單擊 OK 按鈕。
4.然后第二 Kutools for Excel 彈出對(duì)話框，請(qǐng)選擇第二列字符串，然后單擊 OK 按鈕。
5.最后 Kutools for Excel 對(duì)話框中，如果要比較字符串的相似性，請(qǐng)單擊 是 按鈕。 并突出顯示比較字符串的差異，請(qǐng)單擊 沒有 按鈕。 看截圖：
然后您可以看到比較結(jié)果，如下圖所示。
相關(guān)文章：如何比較兩列并在Excel中突出顯示不匹配的數(shù)據(jù)？如何在Excel中精確比較兩個(gè)字符串（區(qū)分大小寫）？最佳辦公生產(chǎn)力工具
將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡(jiǎn)化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！
為什么需要 Kutools for Excel
