如何复制和粘贴值和格式

Question

我有以下代码，它将我的数据复制到空白行。但是，我不知道如何复制值和格式。

Sub PasteValues()

  Worksheets("Summary").Range("A1:P12").Copy
  Worksheets("Summary").Cells(Rows.Count, 1).End(xlUp).Offset(2, 0).PasteSpecial xlPasteValuesAndNumberFormats

  Application.CutCopyMode = False

End Sub

Answer 1

您需要分别粘贴值和格式，如下所示：

Sub PasteValues()

Worksheets("Sheet1").Range("A1").Copy
Worksheets("Sheet1").Range("A2").PasteSpecial xlValues
Worksheets("Sheet1").Range("A2").PasteSpecial xlFormats

Application.CutCopyMode = False

End Sub

您显然需要适应您自己的代码，但这显示了原理。