如何在 Excel 中僅複製單元格區域的格式到另一個區域？

Excel 是一款強大的電子表格程式，提供各種工具來幫助您操作和分析資料。使您的資料易於閱讀和視覺上更具吸引力需要仔細的格式設定。本課程將重點介紹將格式從特定單元格區域複製並應用到另一個區域的任務。當您需要將格式從一個表格複製到另一個表格，或者希望在整個工作表中保持一致的格式時，這樣做可以節省大量時間。

本文將提供詳細的說明和實際示例，幫助您掌握在 Excel 中複製格式的技巧，無論您的 Excel 熟練程度如何。讓我們開始學習如何快速輕鬆地準備您的資料吧！

僅複製單元格區域的格式到另一個區域

在這裡，我們將首先建立一個 VBA 模組，然後選擇單元格區域來完成任務。讓我們來看一個簡單的步驟，學習如何在 Excel 中僅複製一個區域的格式到另一個區域。

步驟 1

考慮一個您已對單元格進行格式設定的 Excel 表格。

首先，右鍵單擊工作表名稱，然後選擇“檢視程式碼”以開啟 VBA 應用程式。

右鍵單擊 > 檢視程式碼。

步驟 2

然後單擊“插入”，選擇“模組”，並將下面的程式碼複製到文字框中。

插入 > 模組 > 複製。

程式碼

Sub CopyFormat()
Dim CopyRng As Range, PasteRng As Range
xTitleId = "Only Copy Formatting"
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