如何在 Excel 中将一个区域的值和格式复制到另一个区域？

当您只想复制某个单元格区域的值和格式，而不复制单元格中的公式时，如何快速完成此操作呢？以下技巧将告诉您如何实现。

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

使用 VBA 复制值和所有格式

使用 Kutools for Excel 复制数据

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

在 Excel 中，仅复制值和格式可以按以下步骤操作：

1. 选择要复制的区域；

2. 点击 编辑 > 复制，或者右键单击并选择 复制；

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

4. 选择 编辑 > 选择性粘贴 或右键单击并选择 选择性粘贴，然后点击 值和源格式，参见截图：

5. 然后只有值和单元格格式被粘贴到选定的单元格中。

使用 VBA 复制值和所有格式

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

1. 按住 ALT 键并在键盘上按 F11 打开 Microsoft Visual Basic for Applications 窗口。

2. 点击 插入 > 模块，并将 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. 点击 确定，另一个对话框会弹出供您选择一个单元格来粘贴结果。参见截图：

6. 点击 确定，然后单元格的值和格式会被粘贴到选定的单元格中。参见截图：

注意：通过此 VBA 代码，您还可以将值和格式粘贴到其他工作表中。

使用 Kutools for Excel 复制数据

如果您只想复制值、仅格式或值和数字格式，您可以使用 Kutools for Excel 的 多区域复制 功能。

免费安装 Kutools for Excel 后，请按照以下步骤操作：

1. 选择数据，并点击 Kutools > 多区域复制，然后选择您需要的选项。
 

2. 然后点击 确定，并选择一个单元格来粘贴数据。

粘贴批注

注意：如果您想保持行高或列宽，只需勾选 包括行高 或 包括列宽。

演示：复制区域 - 使用多种选项复制值

相关文章：

• 复制公式而不更改其单元格引用
• 复制不含公式的数字