連想配列にセルの値を格納する繰り返し処理のサンプルです。
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 | 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 |
コメント