回答編集履歴
2
もっと早い方法を考察できたため
test
CHANGED
|
@@ -42,11 +42,9 @@
|
|
|
42
42
|
|
|
43
43
|
Next j
|
|
44
44
|
|
|
45
|
-
For j = 0 To dic.Count - 1
|
|
46
45
|
|
|
47
|
-
Cells(i + 1, j + 1).Value = dic.Keys(j) 'iを１プラスしているのは始まりが２行目だから
|
|
48
46
|
|
|
49
|
-
|
|
47
|
+
Cells(i + 1, 1).Resize(, dic.Count) = dic.Keys
|
|
50
48
|
|
|
51
49
|
Set dic = Nothing
|
|
52
50
|
|
1
追記
test
CHANGED
|
@@ -1,6 +1,8 @@
|
|
|
1
1
|
セル範囲を配列に入れ、セルをクリアします。
|
|
2
2
|
|
|
3
3
|
Dictionaryを利用して重複削除し、セルに戻します。
|
|
4
|
+
|
|
5
|
+
Microsoft Scripting Library参照設定してください。
|
|
4
6
|
|
|
5
7
|
（もっと早い方法はあるかもしれません）
|
|
6
8
|
|