Q&A
コードは「コードの挿入」で記入してください。
> B3:H3の範囲を1行おきに
> B5:H5の範囲を1行おきに
元の範囲が1行ですがどういうことでしょうか？
B3:H3の範囲を1行おきにコピーしてそれをJ2に貼り付けたい。
B5:H5の範囲を1行おきにコピーしてそれをJ4に貼り付けたい。
この操作を200行までループしたい。
イメージが下記の状態です(少し違いますが)
A B C D E F G H I J
1 品名 12/1 12/2 12/3 12/4 12/5 12/6
2 みかん 10 10 10 10
3 10 10 10 10
4 りんご 1 2 3
5 1 2 3
6 いちご
For文にて宣言を行うも
貼り付けた際に空白行がつぶれてしまったり、実行時にフリーズしてしまったりでうまく行きません。
=====試したコード=====
For i = 2 To 200 Step 2
Range(Cells(i, 2), Cells(i, 7)).Select
Selection.Copy
Cells(i -1, 10).Select
ActiveSheet.Paste
Next i
恐れ入りますが、ご教示いただけますと幸いです。
よろしくお願いいたします。
回答1件
0
ベストアンサー
提示されたコードはクリップボードを経由してコピーするものですが、クリップボードのアクセスはコストが比較的高い処理です。
クリップボードを経由せず、直接コピーするといいと思います。
VBA
1 Application.ScreenUpdating = False 2 For i = 2 To 200 Step 2 3 Range(Cells(i, 2), Cells(i, 7)).Copy Cells(i - 1, 10) 4 Next i 5 Application.ScreenUpdating = True
投稿2022/05/17 16:27
総合スコア2626
回答頂きありがとうございます。
こちらでうまく出来ました。
もう1点質問させてください。
こういった繰り返し処理の動作が重くなってしまうのは仕方ない事なのでしょうか？
頂いたコードでも20～30秒程、コピーペーストに時間がかかってしまい、もう少し早く出来たらと思っています。
贅沢を申し上げて申し訳ございません。
セルの情報をすべてコピーしているので値のみコピーするならもう少し速くできるとは思いますが、この処理で 20～30 秒はかかりすぎです。
PCのスペックを見直したほうがいいのでは。
お返事ありがとうございます。
なるほどです。PCスペックは問題無いので他のコードの問題かもしれません。
回答頂きましてありがとうございます。
計算式が原因であれば、自動計算をいったん停止すると高速化が期待できるかもしれません。
https://officedic.com/excel-vba-app-calculation/
あなたの回答
tips
プレビュー
