时间戳

首页 > 解决方案 > 如何复制和粘贴值和格式

excel - 如何复制和粘贴值和格式

问题描述

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

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

标签： excelformattingpaste

解决方案

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

Sub PasteValues()

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

Application.CutCopyMode = False

End Sub

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

推荐阅读