如何在Excel中将值和格式从一个范围复制到另一个范围？

如果只想复制一定范围的单元格值和格式，而又不想在单元格中复制公式，如何快速复制呢？ 以下技巧告诉您如何完成它。

使用Excel中的选择性粘贴复制值和所有格式

使用VBA复制值和所有格式

使用 Kutools for Excel 复制数据

使用Excel中的选择性粘贴复制值和所有格式

在Excel中，仅复制值和格式可以执行以下操作：

1.选择要复制的范围；

2。 点击 编辑 > 复制，或右键单击并选择 复制;

3.选择要粘贴值和格式的单元格或范围；

4。 选择 编辑, 选择性粘贴 或右键单击并选择 选择性粘贴和点击 值和源格式，请参见屏幕截图：

5.然后，仅将值和单元格格式粘贴到所选单元格中。

使用VBA复制值和所有格式

运行VBA可以快速复制值和格式。

1.按住ALT键并按 F11 在键盘上打开一个 Microsoft Visual Basic应用程序 窗口。

2。 点击 Insert> 模块，然后将VBA复制到模块中。

VBA：复制值和所有格式

Sub CopyValuesAndNumberFormats()
'Update 20130815
Dim CopyRng As Range, PasteRng As Range
xTitleId = "KutoolsforExcel"
Set CopyRng = Application.Selection
Set CopyRng = Application.InputBox("Ranges to be copied :", xTitleId, CopyRng.Address, Type:=8)
Set PasteRng = Application.InputBox("Paste to (single cell):", xTitleId, Type:=8)
CopyRng.Copy
PasteRng.Parent.Activate
PasteRng.PasteSpecial xlPasteValuesAndNumberFormats
PasteRng.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End Sub

3。 点击 运行 按钮或按下 F5 运行VBA。 屏幕上会显示一个对话框，您应该选择要复制值和格式的范围单元格。 看截图：

5。 点击 Ok 此时将显示另一个对话框，供您选择要粘贴结果的单元格。 看截图：

6。 点击 Ok，然后将单元格的值和格式粘贴到所选单元格中。 看截图： 

请注意： 使用此VBA代码，您还可以将值和格式粘贴到所需的其他工作表中。

使用 Kutools for Excel 复制数据

如果您只想复制值，仅格式化或仅格式化值和数字，则可以使用 Kutools for Excel“ 复制范围.

后 免费安装 Kutools for Excel，请执行以下操作：

1.选择数据，然后单击 库工具 > 复制范围。 然后选择所需的选项。
 

2。 然后点击 Ok，然后选择一个单元格以粘贴数据。

粘贴评论

请注意： 如果要保留行高或列宽，只需选中I包括行高 or 包括列宽.

  复制范围-复制具有多个选项的值