回答編集履歴
2
追記
answer
CHANGED
|
@@ -6,4 +6,9 @@
|
|
|
6
6
|
Patn = Patn + WorksheetFunction.Replace(namePt, t, 1, ".") + "|"
|
|
7
7
|
Next
|
|
8
8
|
Patn = Mid(Patn, 1, Len(Patn) - 1)
|
|
9
|
-
```
|
|
9
|
+
```
|
|
10
|
+
|
|
11
|
+
追記
|
|
12
|
+
処理時間がかかるような場合は、DoEventsを適宜入れるようにしてください。
|
|
13
|
+
Excelが固まるのが防止できますし、途中で中断することも可能になりますので。
|
|
14
|
+
あまり入れすぎると遅くなる可能性もあるので、１つ目のループの最後あたりに入れるなどでよいかと思います。
|
1
修正
answer
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
詳しくは見ていませんが、`
|
|
1
|
+
詳しくは見ていませんが、`Patn`を初期化せずに使っているので、延々と結合されてしまっているのが原因ではないでしょうか。
|
|
2
2
|
`Patn`編集ループ前に初期化してあげてみてください。
|
|
3
3
|
```VBA
|
|
4
4
|
Patn = "" ' ←追加
|