首页 文章

Excel - VBA复制部分行和插入下面

提问于
浏览 次
1

我需要一个小宏来帮助我复制单元格A：G作为 ActiveCell 行并将其插入 ActiveCell 行下面的新行 . 目前我的代码是：

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

但这最终会插入一个新行并在整个行中复制 Selection ，这不是我想要的 . 有什么想法吗？谢谢！

excel vba excel-vba

2 回答

  • 0

    除了 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
    回复于
  • 0
    With ActiveCell.Offset(1,-ActiveCell.Column+1).Resize(,7)
    .Value = .Offset(-1).Value
End With
    回复于

相关问题