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

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

Answer 2

除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