唯一值在Excel

Question

分離柱既然是這樣，一個列滿逗號分隔值的表：

西1

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

我希望能夠列出所有該列數據中的唯一值。我應該提出一個，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