将多个数字或文本从列转换为行而不重复

Question

查看图片。我希望将列转换为图像中的行。即使列中的任何一行中有多个带逗号的文本或数字，也需要将它们视为重复。如何使用公式制作我的行？

Answer 1

尝试这个小的用户定义函数：

Public Function MakeList(rng As Range) As String
    Dim c As Collection, r As Range, s As String
    Set c = New Collection
    For Each r In rng
        ary = Split(r.Value, ",")
        For Each a In ary
            On Error Resume Next
                c.Add a, CStr(a)
            If Err.Number = 0 Then
                MakeList = MakeList & "," & a
            Else
                Err.Number = 0
            End If
            On Error GoTo 0
        Next a
    Next r
    MakeList = Mid(MakeList, 2)
End Function

例如：