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

VBA

2019.09.02

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

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

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

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

	A	B
1	Key1	Item1
2	Key2	Item2
3	Key3	Item3
4	Key4	Item4
5	Key5	Item5
6	Key6	Item6
7	Key7	Item7
8
…

こちらの記事で書いたように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

SubSample()

DimiAsInteger

DimdictAsNewCollection

'空白行に行き当たるまで繰り返し、dictに格納していく。

DoWhileCells(i,1)<>""

dict.AddItem:=Cells(i,2).Value,Key:=Cells(i,1).Value

i=i+1

Loop

MsgBoxdict.Item("Key3")'Item3が表示される。

EndSub

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

コメント

お知らせ

お知らせ