ベストアンサー

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

2020/04/26 19:44

毎月録画する番組をExcelで一覧表にしています。現在、カーソルがある行の下に行を新規に挿入してマウスのある行のA-Eまでの列をコピーして挿入した行の同じ列にペーストするマクロ（コード）を教えてください。つまり、カーソルがある行の直下に　同じ内容のセルをコピペしたいのです。　

NuboChan
お礼率65% (1342/2037)

Excel（エクセル）
回答数2
ありがとう数2

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

kkkkkm
ベストアンサー率66% (1769/2651)

2020/04/26 20:43 回答No.1

このような感じでしょうか。 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

質問者

お礼 2020/04/27 05:02

ありがとうございます。おかげさまで希望の処理が出来ました。

ログインすると、全ての回答が全文表示されます。

その他の回答 (1)

imogasi
ベストアンサー率27% (4737/17070)

2020/04/26 21:05 回答No.2

色んな方法（結果として、コードの書き方）があると思うが、例データ　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 の後半の、「挿入（して）貼り付け」の操作をマクロの記録を取るのも良いかも。

質問者