如何创建复制单元格的宏，将它们粘贴到第一行可用并清除一些内容

Question

>我正在尝试创建一个复制一系列单元格的 VBA 宏，将它们粘贴到第一个可用行的同一工作表中，然后清除复制单元格的内容，留下公式。

到目前为止，我已经提出了复制/粘贴，但没有清晰的内容。

Range("A1:L5").Copy
Range("A1").End(xlDown).Offset(6).EntireRow.Insert
Range("B2:B4").ClearContents

Answer 1

将所有内容复制到目标，然后使用.SpecialCells(xlCellTypeConstants).Clear清除目标中的所有常量值。

Option Explicit
Public Sub CopyFormattingsAndFormulasOnly()
Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet
Dim Source As Range
Set Source = ws.Range("A1:L5")
Dim Destination As Range
Set Destination = ws.Cells(ws.Rows.Count, "A").End(xlUp).Offset(RowOffset:=1).Resize(Source.Rows.Count, Source.Columns.Count)
Source.Copy
Destination.PasteSpecial xlPasteAll
On Error Resume Next
Destination.SpecialCells(xlCellTypeConstants).ClearContents
On Error Goto 0
End Sub