人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

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


●質問者: moon-fondu
●カテゴリ:コンピュータ 学習・教育
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● Mook
●300ポイント ベストアンサー

計算式が単純なコピーで期待通りに機能するかは不明ですが、下記で提示されたサンプルを処理して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

a-kuma3さんのコメント
step -2 ?

moon-fonduさんのコメント
うまくいきました!ありがとうございます。

Mookさんのコメント
step -2 ?

Mookさんのコメント
あぁ、なるほど。 よくよんでなかった。 サンプルファイルではわからなかった・・・。
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ