teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

説明追記

2021/10/20 04:09

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -20,7 +20,7 @@
20
20
 
21
21
  Sub Main()
22
22
  Dim dict
23
- Set dict = SetDict(Range("D7:E23"))
23
+ Set dict = SetDict(Range("M2:N8"))
24
24
 
25
25
  'KeyとItemを列挙
26
26
  Debug.Print "Key", "Item"
@@ -30,4 +30,9 @@
30
30
  Debug.Print k, dict.Item(k)
31
31
  Next
32
32
  End Sub
33
- ```
33
+ ```
34
+ ---
35
+
36
+ `dict.Add dar.Cells(1), dar.Cells(2)` とか、`dar.Columns(1), dar.Columns(2)`
37
+ というように .Value を付けないと、Rangeオプジェクトそのものが格納されます。
38
+ こうすると、検索とか重複排除などの使い方ができないのであまり意味がないように思います。