приспособить код

[бетон]

неужели?
И три за глаза хватает - вручную 2 дня

[бетон]

IgorGO,
Спасибо, все воплощено великолепно.

[IgorGO]

Sub obedinenie_teksta()
  Dim a, b$(), r&, c#, tm#, S As String
  a = Selection.Value:  ReDim b(1 To UBound(a, 2)): tm = Timer
  For c = 1 To UBound(a, 2)
    For r = 1 To UBound(a)
      If Not IsEmpty(a(r, c)) Then If a(r, c) <> 0 Then b(c) = b(c) & a(r, c)
    Next
  Next
  Selection.Cells(1).Offset(UBound(a), 0).Resize(1, UBound(a, 2)) = b
  MsgBox Timer - tm & " сек."
End Sub

не 1/100, но у меня в сообщении написано 0.014 сек))
понятно, что время зависит от размеров выделенного диапазона и в каждом случае будет другим

[бетон]

IgorGO,
четыре тысячных - все равно проходит )))
еще осмелюсь спросить:
чтобы отсортировать и удалить дубликаты - это получится?

[бетон]

за 0,207 nae

[бетон]

таблицу выделял гораздо дольше

[IgorGO]

если понимать принцип сортировки...
и даже что считать дубликатами тоже нужно обьяснять
исключить дубликаты в рамках столбца или дубликат - это все что уже попало в отчет?

[бетон]

сейчас скину

[бетон]

вот скрин

[бетон]

дубликаты - одинаковые слова (***) между разделителями ";_ ***;_" в столбце,
разделитель не дубликат.
желательно предусмотреть возможность делать исключения для слов "сертификат соответствия, "паспорт качества" и тп. (что бы сохранялось сочетание - *** сертификат соответствия №...;
*** паспорт качества № ... от ...)