| |
▼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行をその下に３行分コピー挿入
これらをヒントに
1.D列を順にアクティブに。行数を変数に格納（[行番号])しておく。
2.アクティブセルの値が２以上であれば、コピー
１であれば、＋１行移動して1.へ
3.変数にアクティブセルの値−１を格納（[行数]）
4.1.の[行番号]＋１〜＋3.の[行数]の行を選択
5.挿入
(6.コピーモードをクリア)
7.D列の[行番号]+1〜+[行数]の範囲をクリア
8.アクティブセルを1.の[行番号]＋3.の[行数]のＤ列へ移動
9.アクティブセルが空白または指定の行数まで1.へ戻って繰り返し
ロジックはこんなものでしょうか
|
|
超初心者
- 09/3/6(金) 9:36 -
