Поочередное сравнение всех букв между ячейками и вывод отличающихся букв

Пользователь

Сообщений: 237 Регистрация: 17.02.2020

30.12.2020 13:08:56

Добрый день, друзья! Помогите написать пользовательскую функцию (или формулу), которая сравнивала бы текст в двух ячейках и возвращала результат, в виде букв отличий между этими ячейками. Количество букв в каждой ячейки одинаковое. Например MFVFLVLLPLVSSQCVNL и MFVFLVLLPLVSSQCVNF имеют в 17 позиции разные буквы: результат должен быть такой: L17F. Реальный пример прикрепляю.

Прикрепленные файлы

Пример.xlsx (11.12 КБ)

buchlotnik Пользователь Сообщений: 3863 Регистрация: 31.10.2014 Excel 365 Бета-канал	#2 30.12.2020 13:18:25 del Изменено: buchlotnik - 23.08.2021 15:26:23 Соблюдение правил форума не освобождает от модераторского произвола

Ігор Гончаренко

Пользователь

Сообщений: 14576 Регистрация: 01.01.1970

30.12.2020 13:23:09

см.вложение

Код
Function Differ(a$, b$) Dim s$, i& For i = 1 To Len(a) If Mid(a, i, 1) <> Mid(b, i, 1) Then s = s & " " & Mid(a, i, 1) & i & Mid(b, i, 1) Next Differ = Right(s, Len(s) - 1) End Function

Прикрепленные файлы

Пример - 2020-12-30T121245.606.xlsm (16.76 КБ)

Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

RAN

Пользователь

Сообщений: 7207 Регистрация: 21.12.2012

30.12.2020 13:24:55

Код

Function Мяу$(s1$, s2$)
    Dim i&
    If Len(s1) = Len(s2) Then
        For i = 1 To Len(s1)
            If Mid$(s1, i, 1) <> Mid$(s2, i, 1) Then
                Мяу = Мяу & Mid$(s1, i, 1) & i & Mid$(s2, i, 1)
            End If
        Next
    End If
End Function

dim284 Пользователь Сообщений: 237 Регистрация: 17.02.2020	#5 30.12.2020 13:32:22 ОГОНЬ !!! Спасибо всем, все работает. Вот это Вы мне подарочек на новый год сделали. Преогромнейшее СПАСИБО!