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

Question

I need the VBA code to do this:

Copy a row

insert the copied row into the next blank row

clear the contents (without deleting the formula or data validation that's in the cells).

I'm currently using this, but it only inserts the row directly underneath the active cell and doesn't clear the contents.

Sub InsertCopyRow()

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

End Sub

Thanks!

Answer 1

Two solutions, pick the one you like:

Use Cut instead of Copy:

Sub InsertCopyRow()

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

End Sub

Or clear the contents of the original row after copying:

Sub InsertCopyRow()

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

End Sub