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

回答編集履歴

2

もっと早い方法を考察できたため

2020/05/20 13:56

投稿

ryuno_vanilla
ryuno_vanilla

スコア119

answer CHANGED
@@ -20,9 +20,8 @@
20
20
  If Not dic.Exists(ary(i, j)) Then dic.Add ary(i, j), Null
21
21
  End If
22
22
  Next j
23
- For j = 0 To dic.Count - 1
23
+
24
- Cells(i + 1, j + 1).Value = dic.Keys(j) 'iを1プラスしているのは始まりが2行目だから
24
+ Cells(i + 1, 1).Resize(, dic.Count) = dic.Keys
25
- Next j
26
25
  Set dic = Nothing
27
26
  Next i
28
27
 

1

追記

2020/05/20 13:56

投稿

ryuno_vanilla
ryuno_vanilla

スコア119

answer CHANGED
@@ -1,5 +1,6 @@
1
1
  セル範囲を配列に入れ、セルをクリアします。
2
2
  Dictionaryを利用して重複削除し、セルに戻します。
3
+ Microsoft Scripting Library参照設定してください。
3
4
  (もっと早い方法はあるかもしれません)
4
5
 
5
6
  ```VBA