カーソル行の直下にコピペ

質問

毎月録画する番組をExcelで一覧表にしています。

現在、カーソルがある行の下に行を新規に挿入して
マウスのある行のA-Eまでの列をコピーして
挿入した行の同じ列にペーストするマクロ（コード）を教えてください。

つまり、カーソルがある行の直下に
　同じ内容のセルをコピペしたいのです。

回答No.1

kkkkkm · ベストアンサー

このような感じでしょうか。

Sub Test()
Cells(ActiveCell.Row, "A").Resize(1, 5).Copy
Cells(ActiveCell.Row + 1, "A").Resize(1, 5).Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub

お礼

ありがとうございます。

おかげさまで希望の処理が出来ました。

回答No.2

imogasi

色んな方法（結果として、コードの書き方）があると思うが、
例データ　A列ーE列
1
2
3
4 a d f d
5
6
で、４の行を選択しておいて
ーーー
標準モジュールに
Sub Macro1()
r = Selection.Row
MsgBox r
Range(Cells(r, "A"), Cells(r, "E")).Copy
MsgBox "AA"
Cells(r, "A").Offset(1, 0).Insert Shift:=xlDown
ActiveSheet.Paste
End Sub
で
結果
1
2
3
4 a d f d
4 a d f d
5
6
のようになった。
＝＝＝
https://www.jpita.or.jp/hpv3/ziten/mokutekibetu/ex_32.html
の後半の、「挿入（して）貼り付け」の操作をマクロの記録を取るのも良いかも。

お礼

ありがとうございます。

imogasiさんのコードでも処理ができるのを確認しました。