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

当您只想复制某个区域的单元格格式时，如何快速完成此操作？本教程为您介绍了一些快捷方法，帮助您轻松仅复制格式。

使用Excel中的格式刷仅复制格式

使用Kutools for Excel仅复制格式

使用VBA仅复制格式

使用Excel中的格式刷仅复制格式

在Excel中，您可以使用格式刷工具仅复制单元格的格式。

1. 选择包含要复制格式的单元格的区域。请参见截图：

2. 通过点击“ 开始”选项卡下的格式刷来应用它，请参见截图：

3. 选择一个空白单元格并点击它，仅粘贴单元格的格式。请参见截图：

注意：格式刷还可以仅将格式复制到另一个工作表。

使用Kutools for Excel仅复制格式

安装了Kutools for Excel后，多区域复制功能可以帮助您快速轻松地仅复制单元格的格式。

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

请通过点击Kutools > 多区域复制来应用该功能。请参见截图：

1. 选择要复制格式的单元格。

2. 点击Kutools > 多区域复制，屏幕上会显示一个对话框，在选择性粘贴下勾选格式选项，请参见截图：

3. 点击 确定。另一个对话框会显示出来供您选择一个单元格以粘贴结果。请参见截图：

4. 点击确定，仅格式被粘贴到所选单元格中。请参见截图：

注意：您还可以在两个电子表格之间复制和粘贴单元格的格式。如果您还想复制行高和列宽，可以在 多区域复制对话框中勾选包括行高和包括列宽复选框。

使用Kutools for Excel的多区域复制功能，您还可以仅复制值、公式或批注。

使用VBA仅复制格式

以下宏也可以帮助您仅复制单元格的格式。

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

2. 点击 插入 > 模块，并将VBA代码复制到模块中。

VBA：仅复制单元格格式：

Sub CopyFormat()
'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 xlPasteFormats
Application.CutCopyMode = False
End Sub

3. 点击运行按钮或按 F5运行VBA代码。屏幕上会显示一个对话框，您应选择要复制格式的单元格。请参见截图：

4. 点击确定，另一个对话框会显示出来供您选择一个单元格以粘贴格式。请参见截图：

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

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

提示：如果您想根据颜色统计或求和单元格，请尝试使用Kutools for Excel的按颜色统计 功能，如下图所示。它在30天内完全功能无限制，请立即下载并免费试用。

相关文章：

• 复制单元格中的数字但不复制公式
• 仅将单元格中的批注复制到另一个单元格
• 复制单元格中的值和格式