【Excel VBA】連想配列を使ったデータ整理とカウント方法(重複削除)

Sub sample()

    Dim Dict As Object
    Dim keys As Variant

    Dim i, j As Long 'ループ処理用の変数
    
    Dim wData As String
    Dim enRows As Long 'データ範囲の最終行取得
    
    
    '①連想配列の設定と対象データの最終行を取得
    Set Dict = CreateObject("Scripting.Dictionary") 'Dictを連想配列として設定
    
    enRows = Cells(Rows.Count, 2).End(xlUp).Row 'B列の最終行を取得
    
    
    '②連想配列に重複を除いたキーとデータを登録
    For i = 4 To enRows 'セルB4から取得した最終行までをループ処理
    
        wData = Cells(i, 2).Value 'セルの値を変数wDataに取り込み
        
        If Not Dict.Exists(wData) Then '連想配列Dictに取り込んだセルの値が登録がされているか確認
            
            Dict.Add wData, wData '登録が無ければ､セルの値を連想配列Dictにキー , データとして登録
            
        End If
        
    Next i
    
    
    '③取得したデータの総数とデータを指定セルへ表記
    Cells(4, 4) = Dict.Count '連想配列Dictのデータ総数(重複を削除したデータ数)を表記
    
    keys = Dict.keys 'Dictのkey一覧を1次元配列にして取得
    
    For j = LBound(keys) To UBound(keys) '1次元配列keysの添字の最小、最大の要素数を取得してループ
        
        Cells(j + 4, 5) = keys(j) 'jは1次元配列keysの添字
        
    Next j
    
    Set Dict = Nothing
    
End Sub