Excel 中逗号分隔列的唯一值

Question

给定一张看起来像这样的表格，其中一列是逗号分隔值：

第 1 列

"a,b,c"
"c,b,a"
"a,b"
"b,a"
"b,a"
"x,y,z"

我希望能够列出该数据列中的所有唯一值。我应该看到 a,b,c,x,y,z

有没有办法在 Excel 2010 中做到这一点？

Answer 1

考虑：

Sub Uniqquuee()
    Dim N As Long, i As Long, C As Collection
    Dim dq As String

    dq = Chr(34)
    Set C = New Collection
    N = Cells(Rows.Count, "A").End(xlUp).Row

    For i = 1 To N
        ary = Split(Replace(Cells(i, 1).Text, dq, ""), ",")
        For Each a In ary
            On Error Resume Next
                C.Add a, CStr(a)
            On Error GoTo 0
        Next a
    Next i

    For i = 1 To C.Count
        st = st & "," & C.Item(i)
    Next i
    MsgBox Mid(st, 2)
End Sub