回答編集履歴
1
修正
test
CHANGED
@@ -1,6 +1,6 @@
|
|
1
|
-
今のコードでは、"〇" が見つかる都度、毎回 For k = 1 To a.Cells.Count と
|
1
|
+
今のコードでは、"〇" が見つかる都度、毎回 For k = 1 To a.Cells.Count とやって2~4行目に書き出しています。
|
2
2
|
|
3
|
-
毎回同じ場所に上書きするので、処理後は最後の結果だけが残るのです。
|
3
|
+
毎回同じ場所に上書きすることになるので、処理後は最後の結果だけが残るのです。
|
4
4
|
|
5
5
|
|
6
6
|
|