Как сравнить два столбца и выделить несовпадающие данные в Excel?
Как показано на скриншоте ниже, для сравнения двух столбцов соседних ячеек и выделения несовпадающих данных вы можете попробовать методы, описанные в этой статье.
Сравнение двух столбцов и выделение несовпадающих данных с помощью кода VBA
Сравнение двух столбцов и выделение несовпадающих данных с помощью Kutools для Excel
Сравнение двух столбцов и выделение несовпадающих данных с помощью кода VBA
Как видно на скриншоте выше, вы сравниваете данные в столбце A и столбце B. Пожалуйста, выполните следующий код VBA, чтобы выделить несовпадающие данные.
1. Нажмите клавиши Alt + F11 одновременно, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль. Затем скопируйте и вставьте следующий код в окно Кода.
Код 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 выберите первый столбец, который нужно сравнить, затем нажмите кнопку ОК. Смотрите скриншот.
4. Затем выберите второй сравниваемый столбец в следующем появившемся диалоговом окне Kutools для Excel.
5. В диалоговом окне, как показано на скриншоте ниже, для выделения несовпадающих данных нажмите кнопку Нет.
Затем все несовпадающие данные между двумя столбцами будут выделены немедленно. Смотрите скриншот:
Сравнение двух столбцов и выделение несовпадающих данных с помощью Kutools для Excel
Если вы просто хотите узнать и выделить, существуют ли значения ячеек в одном столбце в другом столбце или нет, например, как показано на скриншоте ниже, число 2 в столбце A отсутствует в столбце B. Вы можете попробовать утилиту Сравнить диапазоны Kutools для Excel.
1. Нажмите Kutools > Вставить > Выбрать одинаковые и разные ячейки. Смотрите скриншот:
2. В диалоговом окне Выбрать одинаковые и разные ячейки вам нужно настроить следующее:
3. Затем появится диалоговое окно, сообщающее вам, сколько ячеек только в столбце A, но не в столбце B, нажмите кнопку ОК, и все совпадающие ячейки будут выделены в столбце A.
Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас
Связанные статьи:
- Как сравнить две строки на сходство или выделить различия в Excel?
- Как точно сравнить две строки (с учетом регистра) в Excel?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек