如何在 Excel 中僅將格式從一個區域複製到另一個區域？

當您只想複製某個區域的儲存格格式時，該如何快速完成呢？本教程為您介紹一些快捷方法，讓您輕鬆只複製格式。

僅使用 Excel 的格式刷複製格式

僅使用 Kutools for Excel 複製格式

僅使用 VBA 複製格式

僅使用 Excel 的格式刷複製格式

在 Excel 中，您可以僅使用格式刷工具來複製儲存格的格式。

1. 選擇包含要複製格式的儲存格的區域。請參見截圖：

2. 通過點擊「 Home」標籤下的「Format Painter」按鈕來應用格式刷，請參見截圖：

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 天內完全免費無限制，請立即下載並進行免費試用。

相關文章：

• 僅複製不含公式的數字
• 僅將批註從一個儲存格複製到另一個
• 複製儲存格中的值和格式