Macro скопировать строку, вставьте его в следующую пустую строку и очистить содержимому

Question

мне нужно код VBA, чтобы сделать это:

Скопируйте строку

вставить скопированную строку в следующую пустую строку

очистить содержимое (не удаляя формулу или проверку данных, находящуюся в ячейках).

В настоящее время я использую это, но он только вставляет строку непосредственно под активной ячейкой и не очищает содержимое.

Sub InsertCopyRow() 

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

End Sub 

Спасибо!

Answer 1

Два решения, выбрать понравившийся:

Используйте Cut вместо копирования:

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