連想配列にセルの値を格納する繰り返し処理のサンプルです。
A列をキーにしてB列のデータを連想配列に格納していきます。
エクセルシートはこんな感じで用意します。
※スマホで見にくい場合はPC版で表示してみてください。
A | B | C | |
---|---|---|---|
1 | Key1 | Item1 | |
2 | Key2 | Item2 | |
3 | Key3 | Item3 | |
4 | Key4 | Item4 | |
5 | Key5 | Item5 | |
6 | Key6 | Item6 | |
7 | Key7 | Item7 | |
8 | |||
… |
こちらの記事で書いたようにDictionaryを使うのは何かと面倒なので、連想配列代わりにCollectionを使っています。
1 2 3 4 5 6 7 8 9 10 11 12 |
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 |
コメント