指定の行範囲をコピーして、行と行の間に挿入していくマクロを教えてください。


今、J73からR660までデータが入ってます。
この状態から、関数を含んだ別データが入っている50行目から72行目をコピーして、73行目と74行目の間、75行目と76行目の間・・・659行目と660行目の間と、73行目から660行目の間1行置きに、50行目から72行目のデータをコピーしていきたいのです。

50行目から72行目をコピー→73行目と74行目に挿入、またコピー→挿入・・・を繰り返せば終わる作業ではあるのですが、量が多くて時間がかかりまして・・・効率的な方法をお教えいただけないでしょうか。
サンプルのファイルはこちら http://xfs.jp/6hPI7v に置きました。
よろしくお願い致します。

回答の条件
  • 1人5回まで
  • 登録:2014/11/08 10:17:07
  • 終了:2014/11/09 00:09:33

ベストアンサー

id:Mook No.1

Mook回答回数1312ベストアンサー獲得回数3912014/11/08 18:28:06

ポイント300pt

計算式が単純なコピーで期待通りに機能するかは不明ですが、下記で提示されたサンプルを処理して4秒でした。

 Sub Sample()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    For r = 661 To 74 Step -1
        Rows("50:72").Copy
        Rows(r).Insert Shift:=xlDown
    Next
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
 End Sub
他2件のコメントを見る
id:Mook

step -2 ?

2014/11/09 00:54:56
id:Mook

あぁ、なるほど。
よくよんでなかった。

サンプルファイルではわからなかった・・・。

2014/11/09 00:57:53

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません