宏复制行，将其插入下一个空白行并清除内容

Question

我需要VBA代码才能执行此操作：

  

复制一行

     

将复制的行插入下一个空白行

     

清除内容（不删除单元格中的公式或数据验证）。

我目前正在使用此功能，但它只会直接在活动单元格下方插入行，并且不会清除内容。

Sub InsertCopyRow()

   ActiveCell.Offset(1,0).EntireRow.Insert
   ActiveCell.EntireRow.Copy ActiveCell.Offset(1,0).EntireRow

End Sub

谢谢！

Answer 1

两种解决方案，选择你喜欢的解决方案：

使用剪切而不是复制：

Sub InsertCopyRow()

 ActiveCell.Offset(1, 0).EntireRow.Insert
 ActiveCell.EntireRow.Cut ActiveCell.Offset(1, 0).EntireRow

End Sub

复制后清除原始行的内容：

Sub InsertCopyRow()

 ActiveCell.Offset(1, 0).EntireRow.Insert
 ActiveCell.EntireRow.Copy ActiveCell.Offset(1, 0).EntireRow
 ActiveCell.EntireRow.ClearContents

End Sub