Страницы: 1
RSS
Сравнить тексты и выделить отличающиеся
 
И снова здравствуйте.
Подскажите, пожалуйста, как сравнить 2 ячейки с текстом в разных столбцах и выделить отличающийся текст.
Текст может отличаться как в первой ячейке, так и во второй.
 
Цитата
ZmeyVR6 написал: И снова здравствуйте.
Привет! И снова вас ждут "Приемы" и "Поиск"! Не проходите мимо  вариантов 1 - сравнения и 2 - выделения... ;)
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
Z, честно заходил и туда, и туда. Ничего подходящего не нашел (
 
Цитата
ZmeyVR6 написал: Ничего подходящего не нашел (
OFF Ожидание халявы, однако, требует терпения. Да и для заказа в "Работе" ваше тех задание "пустое" - не тянет - что, куда, для чего, почему?... ;)
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
ОФФ:
Z, а вы, я так погляжу, местный тролль?
Все комментарии либо ни о чем, либо с язвительным намеком?
 
Цитата
ZmeyVR6 написал: так погляжу
OFF
Глядите далее - вы или Кирилл Розенберг - на свое "творение", и прикиньте - у кого появится желание разбираться в этой заморочке, когда нет даже элементарных пояснений ваших "хочух" - на сравнение и выделение. Поясню попутно - одна тема - один вопрос, а комплексный подход (без личного вклада) - решают в "Работе".
Скрин к размышлениям вашим и сведению форумчан.
Изменено: Z - 27.12.2017 17:24:19
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
Z, а что не понятного в фразе "сравнить 2 ячейки с текстом в разных столбцах и выделить отличающийся текст"?

Поясню... требуется сравнить 2 ячейки, которые находятся в одной строке, но находятся в разных столбцах,  столбцы не имеют четкого форматирования и находятся рядом друг с другом. В столбцах указан текст, в частности Полные ФИО, через запятую.
Требуется провести сравнение и выделить текст который отличается в ячейках друг от друга.
В частности в строке 1 будут выделены оба слова OLD и NEW. В строке 2 столбце А должно выделиться Патрикеев Антон Алексеевич и Трунцов Дмитрий Иванович, в столбце В будет выделено Григорьев Константин Николаевич, Курепин Сергей Артурович, Сафонов Андрей Олегович.
Требований к выделению текста нет... это может быть как цвет (любой), так и размер шрифта, так и тип шрифта, желательно цветом, но не обязательно.
Изменено: ZmeyVR6 - 27.12.2017 17:53:30
 
Макрос выделяет в столбце В ФИО красным цветом шрифта, которые есть в столбце А в соответствующей строке.
Далее доделайте сами по аналогии.
Код
Sub iCompare()
Dim i As Long
Dim iLastRow As Long
Dim arr
Dim j As Integer
Dim n As Integer
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
 Range("B2:B" & iLastRow).Font.ColorIndex = 1
  For i = 2 To iLastRow
    arr = Split(Cells(i, 1), ", " & vbCrLf)
    For j = 0 To UBound(arr)
        n = InStr(1, Cells(i, 2), arr(j))
      If n <> 0 Then
       With Cells(i, 2).Characters(Start:=n, Length:=Len(arr(j))).Font
        .ColorIndex = 3 'красный щрифт
       End With
      End If
    Next
  Next
End Sub
 
Попробуйте скопировать свои столбцы в разные документы MS-Word, а затем воспользоваться инструментом Сравнение (закладка Рецензирование).
 
IKor, я это пробовал, но что-то ворд очень чутко относился к форматированию и посчитал, что новая таблица полностью отличается от старой...
Завтра буду пробовать еще раз приведя все к упрощенному форматированию...
 
Kuzmich, спасибо
Страницы: 1
Читают тему
Наверх