Vba：如何粘贴值并保留格式

您可以在 VBA 中使用以下语法复制一系列单元格并将值和源格式粘贴到新位置：

 Sub PasteWithFormatting()

Range(" A1:C11 ").Copy
Range(" A13 ").PasteSpecial Paste:=xlPasteAllUsingSourceTheme
Application.CutCopyMode = False

End Sub

这个特定的宏将复制范围A1:C11中的单元格，并将单元格值及其格式粘贴到从单元格A13开始的范围中。

注意： Application.CutCopyMode = False行指定在运行宏后应禁用剪切和复制模式。

以下示例展示了如何在实践中使用此语法。

示例：使用 VBA 粘贴值并保持格式

假设我们在 Excel 中有以下数据集，其中包含有关各种篮球运动员的信息：

假设我们要将A1:C11范围内的所有值复制并粘贴到新位置并保留格式。

我们可以创建以下宏来执行此操作：

 Sub PasteWithFormatting()

Range(" A1:C11 ").Copy
Range(" A13 ").PasteSpecial Paste:=xlPasteAllUsingSourceTheme
Application.CutCopyMode = False

End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，原始单元格值已以其格式粘贴到从单元格A13开始的单元格范围中。

注意：您可以在此处找到 VBA PasteSpecial方法的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何仅粘贴值而不格式化
VBA：如何将可见线复制到另一张纸
VBA：根据条件将行复制到另一张纸