The macro will take names from column A, put each name in column B (each name a separate cell), sort then remove duplicates.
Let me know if this covers your needs.
abousetta
Option Explicit
Sub ConsolidateNames()
Dim s$, n&
s = Join(Application.Transpose(Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)), ",")
n = Len(s) - Len(Replace(s, ",", "")) + 1
Range("B1:B" & n) = Application.Transpose(Split(Replace(s, ",", vbCrLf), vbCrLf))
With ActiveSheet.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("B1:B" & n)
.SetRange Range("B1:B" & n)
.SortMethod = xlPinYin
.Apply
End With
Range("B1:B" & n).RemoveDuplicates Columns:=1, Header:=xlNo
End Sub
Bookmarks