回答編集履歴
1
説明の改善
test
CHANGED
|
@@ -44,9 +44,11 @@
|
|
|
44
44
|
|
|
45
45
|
`buf.Cells(cnt, n).Value = buf.Cells(i, n).Value`の省略形です。
|
|
46
46
|
|
|
47
|
+
つまりSheets("data")のセルへの上書きになります。
|
|
47
48
|
|
|
48
49
|
|
|
50
|
+
|
|
49
|
-
buf
|
|
51
|
+
bufへ配列として格納するコードは下記になります。
|
|
50
52
|
|
|
51
53
|
|
|
52
54
|
|
|
@@ -56,6 +58,12 @@
|
|
|
56
58
|
|
|
57
59
|
```
|
|
58
60
|
|
|
61
|
+
Setは使用しない。
|
|
62
|
+
|
|
63
|
+
.Valueを付ける。
|
|
64
|
+
|
|
65
|
+
|
|
66
|
+
|
|
59
67
|
|
|
60
68
|
|
|
61
69
|
最初のコードをこれに変更すると重複せずに抽出できると思います。
|