Як порівняти два стовпці та виділити неперевершені дані в Excel?
Як показано на знімку екрана, для порівняння двох стовпців сусідніх комірок та виділення неперевершених даних ви можете спробувати методи в статті.
Порівняйте два стовпці та виділіть неперевершені дані за допомогою коду VBA
Порівняйте два стовпці та виділіть невідповідні дані за допомогою Kutools для Excel
Порівняйте два стовпці та виділіть неперевершені дані за допомогою коду VBA
Як і на скріншоті вище, ви порівнюєте дані у стовпці A та стовпці B. Будь ласка, запустіть такий код VBA, щоб виділити неперевершені дані.
1. прес інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте наступний код у вікно коду.
Код 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 клавіша для запуску коду. У спливаючому Kutools для Excel діалоговому вікні, виберіть перший стовпець, який потрібно порівняти, а потім клацніть на OK кнопку. Дивіться знімок екрана.
4. Потім виберіть другий порівнюваний стовпець у наступному спливаючому вікні Kutools для Excel діалогове вікно.
5. У діалоговому вікні, як показано на знімку екрана, щоб виділити неперевершені дані, натисніть на Немає кнопки.
Потім усі неперевершені дані між двома стовпцями відразу виділяються. Дивіться знімок екрана:
Порівняйте два стовпці та виділіть невідповідні дані за допомогою Kutools для Excel
Якщо ви просто хочете з'ясувати та виділити, чи існують значення комірок у стовпці в іншому стовпці чи ні, наприклад, як показано на знімку екрана, номер 2 у стовпці A не існує у стовпці B., ви можете спробувати Порівняйте діапазони корисність Kutools для Excel.
1. клацання Кутулс > Insert > Виберіть однакові та різні клітини. Дивіться знімок екрана:
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% та зменшує сотні клацань миші для вас щодня!