【エクセルVBA】連想配列にセルの値を格納する繰り返し処理サンプル

連想配列にセルの値を格納する繰り返し処理のサンプルです。

A列をキーにしてB列のデータを連想配列に格納していきます。

エクセルシートはこんな感じで用意します。

※スマホで見にくい場合はPC版で表示してみてください。

こちらの記事で書いたようにDictionaryを使うのは何かと面倒なので、連想配列代わりにCollectionを使っています。

Sub Sample()
	Dim i As Integer
	Dim dict As New Collection

	'空白行に行き当たるまで繰り返し、dictに格納していく。
	Do While Cells( i, 1) <> ""
		dict.Add Item:=Cells( i, 2).Value, Key:=Cells( i, 1).Value
		i = i + 1
	Loop

	MsgBox dict.Item("Key3") 'Item3が表示される。
End Sub