回答編集履歴
1
加筆修正
answer
CHANGED
|
@@ -6,4 +6,9 @@
|
|
|
6
6
|
Application.Selection.Copy
|
|
7
7
|
Worksheets(2).Range( Worksheets(2).Cells(row1, col1), Worksheets(2).Cells(row2, col2) ).Select
|
|
8
8
|
Application.Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
|
|
9
|
-
```
|
|
9
|
+
```
|
|
10
|
+
|
|
11
|
+
ループの途中で固まる場合は、DoEventsを適度に挟んであげるか、
|
|
12
|
+
コピーするシート上に計算式がいっぱい仕込んであるのだとしたら
|
|
13
|
+
`Application.Calculation = xlCalculationManual`で自動再計算を止めてから処理するか。
|
|
14
|
+
データを転記するたびに自動再計算が走ってしまうと無駄ですので。
|