回答編集履歴

2

追記

2018/10/19 02:37

投稿

ttyp03
ttyp03

スコア16996

test CHANGED
@@ -15,3 +15,13 @@
15
15
  Patn = Mid(Patn, 1, Len(Patn) - 1)
16
16
 
17
17
  ```
18
+
19
+
20
+
21
+ 追記
22
+
23
+ 処理時間がかかるような場合は、DoEventsを適宜入れるようにしてください。
24
+
25
+ Excelが固まるのが防止できますし、途中で中断することも可能になりますので。
26
+
27
+ あまり入れすぎると遅くなる可能性もあるので、1つ目のループの最後あたりに入れるなどでよいかと思います。

1

修正

2018/10/19 02:37

投稿

ttyp03
ttyp03

スコア16996

test CHANGED
@@ -1,4 +1,4 @@
1
- 詳しくは見ていませんが、`Ptn`を初期化せずに使っているので、延々と結合されてしまっているのが原因ではないでしょうか。
1
+ 詳しくは見ていませんが、`Patn`を初期化せずに使っているので、延々と結合されてしまっているのが原因ではないでしょうか。
2
2
 
3
3
  `Patn`編集ループ前に初期化してあげてみてください。
4
4