Excelで行追加

質問

今、選択されてるセルの下に、
10行分を今のセル行の内容（演算式）をコピー挿入したいのですが、どのようにすれば。。。

なお、行全体ではなく、A～G列のみの処理にしたいのです。

よろしくお願いいたします。

回答No.4

taka451213

こんにちは。

やりたい事がちょっとわかりにくいのですが・・・、
例えば、
Sub 下にコピー()
ActiveCell.Copy
Range(Cells(ActiveCell.Row + 1,ActiveCell.Column), Cells(ActiveCell.Row + 10, ActiveCell.Column + 6)).Select
ActiveSheet.Paste
End Sub

でいいですか？
(^^ゞ

お礼

だいぶ内容がちがいますが、できそうな気が。。。

参考にして試したらできました。

感謝です。

回答No.3

imogasi

>Excelの操作方法でなく、
であれば、ご回答をみて、その操作をしてみて、マクロの記録を取れば良いのです。
Sub Macro1()
Range("A1:G10").Copy
Range("A11").Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub

補足

折角回答いただいたのですが、
やりたいのは固定のセルでなく、
今あるセルからという方式です。

回答No.2

BLUEPIXY

Ａ～Ｇの１０行分を選択し、（右クリックから）コピーします。
挿入したい部分を選んで、右クリックからコピーしたセルの挿入を選んで挿入します。

補足

すみません。
Excelの操作方法でなく、VBで行う方法が知りたいのです。

回答No.1

Ree_232

入れたいところのA～G列を選択して、右クリックで挿入→下にシフト。

補足

すみません。
Excelの操作方法でなく、VBで行う方法が知りたいのです。