Как сравнить две строки на схожесть или визуально выделить различия в Excel?
Иногда вам нужно сравнить всего две соседние ячейки со строками и выделить их сходства или различия в Excel. В этой статье описаны два простых способа решить эту задачу.
Сравнение двух строк с помощью формулы
Сравнение двух строк на схожесть или выделение различий с помощью кода VBA
Сравнение двух строк с помощью формулы
Как показано на снимке экрана ниже, если вам нужно просто определить, совпадают ли сравниваемые строки, используйте следующую формулу.
1. Выберите пустую ячейку C2, введите формулу =EXACT(A2, B2) в строку формул и нажмите клавишу Enter. См. снимок экрана:
Примечание: в формуле A2 и B2 — это ячейки, содержащие строки для сравнения.
2. Оставаясь в ячейке с результатом, перетащите маркер заполнения, пока не получите все результаты сравнения.
Результат «ЛОЖЬ» означает, что сравниваемые строки различаются, а «ИСТИНА» — что они совпадают. См. снимок экрана:
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Сравнение двух строк на схожесть или выделение различий с помощью кода VBA
Если вы хотите сравнить две строки и наглядно выделить их сходства или различия, следующий код VBA отлично вам в этом поможет.
1. Нажмите одновременно клавиши Alt+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 Sub3. Нажмите клавишу F5, чтобы запустить код. В первом диалоговом окне Kutools для Excel выберите первый столбец текстовых строк, которые необходимо сравнить, и нажмите кнопку ОК.
4. Затем появится второе диалоговое окно Kutools для Excel. Пожалуйста, выберите строки во втором столбце и нажмите кнопку ОК.
5. В последнем диалоговом окне Kutools для Excel, если вы хотите сравнить строки на схожесть, нажмите кнопку Да. Чтобы выделить различия между сравниваемыми строками, нажмите кнопку Нет. См. снимок экрана:
Затем вы увидите результаты сравнения, как показано на снимке экрана ниже.
Связанные статьи:
- Как сравнить два столбца и выделить несовпадающие значения в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек