回答編集履歴
1
説明追記
test
CHANGED
|
@@ -42,7 +42,7 @@
|
|
|
42
42
|
|
|
43
43
|
Dim dict
|
|
44
44
|
|
|
45
|
-
Set dict = SetDict(Range("
|
|
45
|
+
Set dict = SetDict(Range("M2:N8"))
|
|
46
46
|
|
|
47
47
|
|
|
48
48
|
|
|
@@ -63,3 +63,13 @@
|
|
|
63
63
|
End Sub
|
|
64
64
|
|
|
65
65
|
```
|
|
66
|
+
|
|
67
|
+
---
|
|
68
|
+
|
|
69
|
+
|
|
70
|
+
|
|
71
|
+
`dict.Add dar.Cells(1), dar.Cells(2)` とか、`dar.Columns(1), dar.Columns(2)`
|
|
72
|
+
|
|
73
|
+
というように .Value を付けないと、Rangeオプジェクトそのものが格納されます。
|
|
74
|
+
|
|
75
|
+
こうすると、検索とか重複排除などの使い方ができないのであまり意味がないように思います。
|