回答編集履歴
1
説明追記
answer
CHANGED
|
@@ -20,7 +20,7 @@
|
|
|
20
20
|
|
|
21
21
|
Sub Main()
|
|
22
22
|
Dim dict
|
|
23
|
-
Set dict = SetDict(Range("
|
|
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
|
+
こうすると、検索とか重複排除などの使い方ができないのであまり意味がないように思います。
|