Excel - VBA部分行をコピーして下に挿入

Question

ActiveCell行のセルA：GをコピーしてActiveCell行の新しい行に挿入する小さなマクロが必要になります。

ActiveSheet.Range(Cells(ActiveCell.Row,1),Cells(Active.Row,7)).Select 
Selection.Copy 
ActiveCell.Offset(1).EntireRow.Insert 

しかし、これは新しい行を挿入し、私が欲しいものではありません、行全体Selectionをコピーし終わる：現在、私が持っているコードです。何かご意見は？ありがとう！

Answer 1

あなたのコードは、Active.Rowタイプミスを除いて動作します。データをコピーする前に行全体を挿入しようとしているようです。その場合は、メソッドを保存することができます。

ActiveCell.Offset(1).EntireRow.Insert 
ActiveSheet.Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 7)).Select 
Selection.Copy 
ActiveCell.Offset(1).Select 
ActiveSheet.Paste 

Answer 2

With ActiveCell.Offset(1,-ActiveCell.Column+1).Resize(,7) 
    .Value = .Offset(-1).Value 
End With