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

エクセルで質問です。
A列にそれぞれ「あ」「い」「う」の行が入っています。
データの間にコピーした行を一行挿入して「あ」「あ」「い」「い」「う」「う」
の状態にしたいのですが、量が多いため、データの間にコピーした行を挿入するマクロを教えてください。
下記のデータの間に空白行を挿入するマクロまでは何とかたどりつきました。

Sub test()
Dim i As Long
Const myCol = 1 'A
'
For i = Cells(Rows.Count, myCol).End(xlUp).Row To 2 Step -1
Rows(i).Insert
Next i
End Sub

●質問者: st004j
●カテゴリ:コンピュータ
✍キーワード:as const NeXT sub test
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● SALINGER
●35ポイント

そのコードから改良すると

Sub test()
 Dim i As Long
 Const myCol = 1 'A
 For i = Cells(Rows.Count, myCol).End(xlUp).Row To 1 Step -1
 Rows(i + 1).Insert
 Rows(i).Copy (Rows(i + 1))
 Next i
End Sub
◎質問者からの返答

これで出来ました。ありがとうございます!


2 ● Mook
●35ポイント

目的はほとんどご自身で出来ていると思いますすが、

コピーしたいのはA列のデータだけなのでしょうか?行全体なのでしょうか?

Sub test()
 Dim i As Long
 Const myCol = 1 'A
 '
 For i = Cells(Rows.Count, myCol).End(xlUp).Row To 2 Step -1
 Rows(i + 1).Insert
' --- A列のみのコピー
 Cells(i + 1, myCol).Value = Cells(i, myCol).Value
' --- 行全体のコピー
' Rows(i).Copy Destination:=Rows(i + 1)
 Next i
End Sub

後者の場合は、コメントを切り替えてお試しください。

◎質問者からの返答

コピーしたいのはA列のデータのみでした。ありがとうございます!

関連質問


●質問をもっと探す●



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