Excel – VBA复制部分行并在下面插入

我需要一个小的macros帮助，让我复制单元格A：G的ActiveCell行，并将其插入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