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

[бетон]

в данный момент файл в нерабочем состоянии, после восстановления смогу предъявить

[бетон]

подготовлю и тотчас скину!

[бетон]

IgorGO,
файл с данными

[IgorGO]

Sub UnionNoDblSort()
  Dim a, b$(), r&, c#, i&, tm#, S As String, CL
  a = Selection.Value:  ReDim b(1 To UBound(a, 2))
  For c = 1 To UBound(a, 2)
    Set CL = New Collection
    For r = 1 To UBound(a)
      If (Not IsEmpty(a(r, c))) And a(r, c) <> "" Then
        If a(r, c) <> 0 Then
          If CL.Count = 0 Then
            CL.Add a(r, c)
          Else
            If a(r, c) > CL.Item(CL.Count) Then
              CL.Add a(r, c)
            Else
              For i = 1 To CL.Count
                If a(r, c) < CL.Item(i) Then
                  CL.Add a(r, c), , i: Exit For
                End If
                If a(r, c) = CL.Item(i) Then
                  Exit For
                End If
              Next
            End If
          End If
        End If
      End If
    Next
    For i = 1 To CL.Count: b(c) = b(c) & CL.Item(i): Next
  Next
  Selection.Cells(1).Offset(UBound(a), 0).Resize(1, UBound(a, 2)) = b
End Sub

[бетон]

Уважаемый IgorGO, грешным делом пришла мысль, что тема перестала быть интересной, однако "End If" - впечатляет, неужели столько раз востребовано. применил код, остались некоторые повторы, наверное влияют огрехи при введении текстов в исходные ячейки. можно ли и это преодолеть и расположить построчно. приложил файл

[IgorGO]

если в определенной колонке в ячейках
песок;
арматура АIII;
песок;
то результат будет
арматура АIII; песок;

а если в ячейках
- песок;
- арматура АIII;
- песок;
- арматура АIII;песок;
то результат будет:
- арматура АIII;- арматура АIII;песок;- песок;

[бетон]

а каким образом тире влияет, оно не воспринимается как часть текста?

если в колонке:
в 1 ячейке 2 ячейке 3 ячейке ...... .....
песок; арматура; песок;
арматура; песок; бетон;
можно ли представить конечный результат в итоговой ячейке таковым:
арматура,
бетон;
песок;
....