回答編集履歴

1

加筆修正

2018/03/07 05:10

投稿

退会済みユーザー
test CHANGED
@@ -15,3 +15,13 @@
15
15
  Application.Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
16
16
 
17
17
  ```
18
+
19
+
20
+
21
+ ループの途中で固まる場合は、DoEventsを適度に挟んであげるか、
22
+
23
+ コピーするシート上に計算式がいっぱい仕込んであるのだとしたら
24
+
25
+ `Application.Calculation = xlCalculationManual`で自動再計算を止めてから処理するか。
26
+
27
+ データを転記するたびに自動再計算が走ってしまうと無駄ですので。