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

看到图像。 我想要将列转换为图像中的行。 即使在列中的任意一行中有多个逗号，也需要将其视为重复。 我如何制作我使用公式的行？

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 

例如：