VBA 連想配列 データ一括格納

連想配列　 セルのデータを一括格納する

Sub test2()

’　「ツール」→「参照設定」→　「Microsoft Scripting Runtime」にチックをつける必要
' 連想配列　セルのデータを一括格納する

    Dim dic As New Scripting.Dictionary
    Dim data, i As Long, Member
    data = Range("A2:B21")
    For i = 1 To UBound(data)
        dic.Add data(i, 1), data(i, 2)
    Next

    
'    dicのキーをセルに出力
    Range("E2").Resize(dic.Count) = WorksheetFunction.Transpose(dic.Keys)
    'dicのアイテムを入力
    Range("F2").Resize(dic.Count) = WorksheetFunction.Transpose(dic.Items)
 
    Set dic = Nothing
End Sub

実行結果

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事

『VBA　配列とは？』

『VBA　連想配列の基礎』