|
▼Excel VBA 初心者です さん:
手動でコピーする動作をマクロの自動記録を使用し記録してみました。
'--------------------------------------
Rows("18:18").Select
Selection.Copy
Rows("19:19").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Rows("23:23").Select
Selection.Copy
Rows("24:26").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
'--------------------------------------
18行をその下にコピー挿入
23行をその下に3行分コピー挿入
これらをヒントに
1.D列を順にアクティブに。行数を変数に格納([行番号])しておく。
2.アクティブセルの値が2以上であれば、コピー
1であれば、+1行移動して1.へ
3.変数にアクティブセルの値−1を格納([行数])
4.1.の[行番号]+1〜+3.の[行数]の行を選択
5.挿入
(6.コピーモードをクリア)
7.D列の[行番号]+1〜+[行数]の範囲をクリア
8.アクティブセルを1.の[行番号]+3.の[行数]のD列へ移動
9.アクティブセルが空白または指定の行数まで1.へ戻って繰り返し
ロジックはこんなものでしょうか
|
|