Как сравнить текст в разных ячейках с выделением отличий.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как сравнить текст в разных ячейках с выделением отличий. (Формулы/Formulas)

flaviy

Дата: Пятница, 20.03.2020, 13:25 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день.

Подскажите пожалуйста макрос, который позволяет сравнить в двух ячейках текст, но с разным количеством букв. Нужно чтобы выделялись красным цветом только различия (файлик во вложении).

К сообщению приложен файл: 7744937.xlsx (12.0 Kb)

Ответить

Nic70y

Дата: Пятница, 20.03.2020, 13:39 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2272 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Sub u_700()
    Application.ScreenUpdating = False
    u_1 = Cells(Rows.Count, "b").End(xlUp).Row
    For Each u In Range("b2:b" & u_1)
        u_2 = Len(u)
        u_3 = Len(u.Offset(0, -1))
        u_4 = u_2 - u_3
        u.Characters(Start:=u_3 + 1, Length:=u_4).Font.Color = -16776961
    Next
    Application.ScreenUpdating = True
End Sub

[/vba]

ЮMoney 41001841029809

Ответить

greenХХ

Дата: Понедельник, 23.03.2020, 11:16 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Nic70y, не совсем понимаю как макрос работает?
Не могли бы пояснить - я зеленный еще

Ответить

Nic70y

Дата: Понедельник, 23.03.2020, 11:30 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2272 ±

Замечаний: 0% ±

Excel 2010

данный макрос будет работать при условии, что текст в столбце b всегда длиннее текста в столбце a.

Цитата Nic70y, 20.03.2020 в 13:39, в сообщении № 2 ()

u_1 = Cells(Rows.Count, "b").End(xlUp).Row

определяем последнюю заполненную строку столба "b"
далее циклом (т.е. сравниваем каждую ячейку) проходим по диапазону

Цитата Nic70y, 20.03.2020 в 13:39, в сообщении № 2 ()

For Each u In Range("b2:b" & u_1)

вычисляем кол-во символов в ячейке b:

Цитата Nic70y, 20.03.2020 в 13:39, в сообщении № 2 ()

u_2 = Len(u)

вычисляем кол-во символов в ячейке a:

Цитата Nic70y, 20.03.2020 в 13:39, в сообщении № 2 ()

u_3 = Len(u.Offset(0, -1))

Offset(0, -1) = смещение от b на -1 столбец (т.е. влево на 1 столбец = a)
далее изменяем цвет шрифта

Цитата Nic70y, 20.03.2020 в 13:39, в сообщении № 2 ()

u.Characters(Start:=u_3 + 1, Length:=u_4).Font.Color = -16776961

начиная символа по счету больше на 1, чем длина текста в ячейке a.
кол-во символов = разности длин текста

ЮMoney 41001841029809

Ответить

greenХХ

Дата: Понедельник, 23.03.2020, 12:25 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Возможно ли сделать так чтобы у меня сравнивалось обозначение из определенного столбца с обозначением в другом (закупочном) и подсвечивались отличия?
Пример прикладываю

К сообщению приложен файл: 0617471.xlsx (10.2 Kb)

Ответить

Nic70y

Дата: Понедельник, 23.03.2020, 12:28 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2272 ±

Замечаний: 0% ±

Excel 2010

greenХХ, ну во-вторых из Вашего файла мало что-то понятно - одна строка примера не показатель,
а в-первых Вы должны создать свою тему (правила у нас тут такие)

ЮMoney 41001841029809

Ответить

flaviy

Дата: Четверг, 09.04.2020, 13:38 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Nic70y, спасибо за помощь.

Ответить

Страница 1 из 1
1