回答編集履歴
1
コード追記
answer
CHANGED
|
@@ -14,4 +14,16 @@
|
|
|
14
14
|
|
|
15
15
|
これで改善しないなら、Copy と PasteSpecial も重い処理ですので、Valueプロパティでの代入に変更すると改善する可能性があります。
|
|
16
16
|
|
|
17
|
-
[Office TANAKA - VBA高速化テクニック[値貼り付けは遅い]](http://officetanaka.net/excel/vba/speed/s13.htm)
|
|
17
|
+
[Office TANAKA - VBA高速化テクニック[値貼り付けは遅い]](http://officetanaka.net/excel/vba/speed/s13.htm)
|
|
18
|
+
|
|
19
|
+
```vba
|
|
20
|
+
ws2.Range("A" & i, "BA" & i).Copy
|
|
21
|
+
ws1.Range("A" & j).PasteSpecial Paste:=xlPasteValues
|
|
22
|
+
```
|
|
23
|
+
上記の部分を下記に修正してみてください。
|
|
24
|
+
```vba
|
|
25
|
+
with ws2.Range("A" & i, "BA" & i)
|
|
26
|
+
ws1.Range("A" & j).Resize(1, .Columns.Count).Value = .Value
|
|
27
|
+
End with
|
|
28
|
+
```
|
|
29
|
+
他のPasteSpecialも同様に修正してみてください。
|