回答編集履歴
1
加筆修正
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
|
+
データを転記するたびに自動再計算が走ってしまうと無駄ですので。
|