Benzersiz değerler, böyle virgülle ayrılmış değerler bir sütun dolu görünen bir tabaka Verilen Excel

Question

sütununu ayrılmış Bu veri sütununda benzersiz değerler. Bir, b, c, x, y, z

ile sunulması gerekir Bunu Excel 2010'da yapmanın bir yolu var mı?

Answer 1

düşünün: harikaydı

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