Сравнение части ячейки с диапозоном ячеек и удаление совпадений

[temson2]

Добрый день. Помогите пожалуйста со скриптом. Есть файл с 5-ю ячейками. В первой содержится полное наименование товара, в четырех следующих содержатся части наименования из первой ячейки. Задача сравнение 1-й ячейки с 4-мя последующими и удаление из 1-й ячейки той части текста которая уже есть в следующих четырех. Т.е. чтоб в первой ячейки осталась только инфа которой нет в след. 4-х ячейках. Или как вариант данные которые есть в первой ячейке, но нет в след. 4-х, переносить в отдельную ячейку.
Пример:
Ячейка 1:Аеолус 14 H 82 AH01
Ячейка 2: Аеолус
Ячейка 3: 14
Ячейка 4: H
Ячейка 5: AH01
Соответственно неповторяется H. Вот только эта "H" и должна после выполнения скрипта в Ячейке 1. Или Эта "H" выносится в ячейку 6

[kuklp]

Вы сами-то поняли, что пишете?

Ячейка 4: H
...Соответственно неповторяется H...

И не надо на пальцах. Выкладывайте пример в файле Эксель. И не "Есть файл с 5-ю ячейками". С 5 ячейками можно и вручную.

[temson2]

Естественно ошибся Соответственно не повторяется 82

[temson2]

,,,,,,,,,,,,,,,,,,,,

[temson2]

Файл во вложении. Неповторяющаяся часть может быть расположена произвольно, т.ч. разбиение по столбцам не подходит

[Казанский]

..........

[kuklp]

Public Sub www()
    Dim a, i&, j&
    a = [a1].CurrentRegion
    For i = 2 To UBound(a)
        For j = 2 To UBound(a, 2)
            a(i, 1) = Replace(a(i, 1), a(i, j), "")
        Next
        Cells(i, 1) = Trim$(a(i, 1))
    Next
End Sub

[temson2]

Спасибо большое все работает

[temson2]

Возможно ли указать конкретный диапозон столбцов например со столбца D по Н сравнение идет а не по всей строке

[ALEX155]

Добрый день! Помогите кто чем может. Есть файл реестр получателей денежных средств. В нём один и тот же человек может повторятся несколько раз, при чём и номер счёта и сумма к зачислению одинаковые. Но общая сумма реестра соответствует сумме всех строк. Проблема в следующем, нужно удалить повторяющиеся строки с фамилиями и номерами счетов(оставив одну) а сумму по удалённым строкам прибавить к оставшейся.пример файла