Как да сравните две колони и да маркирате несъвпадащите данни в Excel?
Както е показано на екранната снимка по-долу, за сравняване на две колони от съседни клетки и маркиране на несъвпадащите данни можете да опитате методите в статията.
Сравнете две колони и маркирайте несъвпадащите данни с VBA код
Сравнете две колони и маркирайте несравнимите данни с Kutools за Excel
Сравнете две колони и маркирайте несъвпадащите данни с VBA код
Както на екранната снимка по-горе, вие сравнявате данните в колона 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 Sub3. Натисни F5 ключ за изпълнение на кода. В изскачащите Kutools за Excel изберете първата колона, която трябва да сравните, след което щракнете върху OK бутон. Вижте екранна снимка.
4. След това изберете втората колона за сравнение в следващото изскачащо меню Kutools за Excel диалогов прозорец.
5. В диалоговия прозорец, както е показано на екранната снимка по-долу, за маркиране на несъответстващите данни, моля, щракнете върху Не бутон.
Тогава всички несъвпадащи данни между две колони се маркират веднага. Вижте екранна снимка:
Сравнете две колони и маркирайте несравнимите данни с Kutools за Excel
Ако просто искате да разберете и маркирате дали стойностите на клетките в дадена колона съществуват в друга колона или не, например както е показано на екранната снимка по-долу, номер 2 в колона A не съществува в колона B. можете да опитате Сравнете диапазони полезност на Kutools за Excel.
1. кликване Kutools > Поставете > Изберете Същите и различни клетки. Вижте екранна снимка:
2. В Изберете Същите и различни клетки диалогов прозорец, трябва да конфигурирате както следва:
3. След това се появява диалогов прозорец, за да ви каже колко клетки са само в колона A, но не и в колона B, щракнете върху OK бутон и всички съответстващи клетки са избрани в колона A.
Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.
Още по темата:
- Как да сравним два низа за сходство или подчертаване на разликите в Excel?
- Как точно да сравним два низа (чувствителни към малки и главни букви) в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
