Excel VBAでカンマ区切りの文字を列に一意で表示したい

Question

エクセルVBAにてカンマ区切りの列を一意で別の列に表示したいと考えております。
恐らく、SPLIT関数で配列に入れた後に、重複する行を削除、降順に並び替え、重複する行を削除
すると思うのですが、書き方がどうしても不明です。
何か良い方法をご存じの方がいらっしゃいましたらご教示いただきたく。

Answer 1

私がやるとこんな感じになりました。

Public Sub xxx1()

    Dim sht As Excel.Worksheet
    Set sht = ThisWorkbook.Worksheets("sheet1")

    Dim arr() As String
    Dim list As New Dictionary
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim m As Integer
    
    i = 1
    
    Do Until sht.Cells(i, 1) = ""
        arr = Split(sht.Cells(i, 1), ",")
        For j = 0 To UBound(arr)
            If Not list.Exists(arr(j)) Then
                list.Add arr(j), arr(j)
            End If
        Next
        
        i = i + 1
    Loop

    m = 1
    For k = 0 To list.Count - 1
        sht.Cells(m, 3) = list.Items(k)
        m = m + 1
    Next
    
End Sub

Answer 2

ディクショナリを使うと自分でロジックを書くより簡単に実装できますよ。
https://kazusa-pg.com/vba-delete-element-in-array/

Comments

[KOnaga99]

ありがとうございました。色々試してみます。