Как да сравним два низа за сходство или подчертаване на разликите в Excel?
В някои случаи може да се наложи само да сравните две съседни клетки от низове и да маркирате техните прилики или разлики в Excel. Тази статия предоставя два метода за постигане на това.
Сравнете два низа с формула
Сравнете два низа за сходство или подчертайте разликите с VBA код
Сравнете два низа с формула
Както е показано на екранната снимка по-долу, ако просто искате да знаете дали сравнените низове съвпадат или не, можете да приложите следната формула.
1. Изберете празна клетка C2, въведете формула =ТОЧНО(A2, B2) в лентата с формули и след това натиснете клавиша Enter. Вижте екранна снимка:
Забележка: Във формулата A2 и B2 са клетките, съдържащи низовете за сравнение.
2. Продължете да избирате клетката с резултати, след което плъзнете манипулатора за попълване към клетките, докато получите всички сравнени резултати.
Резултатът FALSE означава, че сравняваните низове са различни, а резултатът TRUE показва, че двата сравнявани низове съвпадат. Вижте екранна снимка:
Сравнете два низа за сходство или подчертайте разликите с VBA код
Ако искате да сравните два низа и да подчертаете приликите или разликите между тях. Следният VBA код може да ви помогне.
1. Натиснете Друг + F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули. След това копирайте и поставете следния код в прозореца на кода.
VBA код: Сравнете два низа от колони за сходство или подчертайте разликите
Sub highlight()
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 selected ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
GoTo lTwo
End If
xDiffs = (MsgBox("Click Yes to highlight similarities, click No to highlight differences ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
Application.ScreenUpdating = False
xRg2.Font.ColorIndex = xlAutomatic
For I = 1 To xRg1.Count
Set xCell1 = xRg1.Cells(I)
Set xCell2 = xRg2.Cells(I)
If xCell1.Value2 = xCell2.Value2 Then
If Not xDiffs Then xCell2.Font.Color = vbRed
Else
xLen = Len(xCell1.Value2)
For J = 1 To xLen
If Not xCell1.Characters(J, 1).Text = xCell2.Characters(J, 1).Text Then Exit For
Next J
If Not xDiffs Then
If J <= Len(xCell2.Value2) And J > 1 Then
xCell2.Characters(1, J - 1).Font.Color = vbRed
End If
Else
If J <= Len(xCell2.Value2) Then
xCell2.Characters(J, Len(xCell2.Value2) - J + 1).Font.Color = vbRed
End If
End If
End If
Next
Application.ScreenUpdating = True
End Sub
3. Натисни F5 ключ за изпълнение на кода. В първия Kutools за Excel изберете първата колона с текстови низове, които трябва да сравните, и след това щракнете върху OK бутон.
4. След това второто Kutools за Excel се появи диалогов прозорец, моля, изберете низовете от втората колона и щракнете върху OK бутон.
5. В последното Kutools за Excel диалогов прозорец, ако искате да сравните низове за сходство, щракнете върху Да бутон. И за да подчертаете разликите на сравняваните низове, щракнете върху Не бутон. Вижте екранна снимка:
След това можете да видите сравнените резултати, както е показано на екранната снимка по-долу.
Още по темата:
- Как да сравните две колони и да маркирате несъвпадащите данни в Excel?
- Как точно да сравним два низа (чувствителни към малки и главни букви) в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!