如何在 Excel 中只複製所選區域的邊框？

作者Siluvia修改日期2025-10-30

當您在 Microsoft Excel 中作業時，經常需要將特定格式從一個範圍複製到另一個範圍。標準的複製貼上功能可讓您複製儲存格的值、公式，甚至透過「選擇性貼上」功能複製完整的儲存格格式。然而，有時您可能只想複製所選區域的邊框樣式，而不影響顏色、字型或填滿圖案等其他格式。例如，您可能希望在工作表的多個區段維持一致的表格邊框設計，或在新模板工作表中完美重現既有邊框配置。可惜的是，Excel 並未內建直接僅複製與貼上儲存格邊框的功能。本教學將逐步說明一種實用技巧，協助您輕鬆複製任意選取區域的邊框，並精準套用至 Excel 中的新範圍——確保格式一致性，同時完全保留其他儲存格屬性不受干擾！

使用 VBA 程式碼僅複製選擇區域的邊框

替代方案：使用複製格式手動複製邊框

使用 VBA 程式碼僅複製選擇區域的邊框

透過簡易的 VBA 巨集，您即可高效地將特定儲存格或範圍的精確邊框樣式複製並套用至工作表中的其他位置，完全不受內容或其他格式屬性的干擾。當您需要自動化重複性作業，或希望在處理自訂樣式表格與模板時大幅提升工作效率，此解決方案堪稱理想之選。請依照以下詳細步驟安全執行 VBA 程式碼，並留意過程中提供的實用參數提示。

1. 同時按下鍵盤上的 Alt＋F11 鍵，即可立即開啟 Microsoft Visual Basic for Applications（VBA）編輯器視窗！即使您在 Excel 中未看到「開發人員」索引標籤，也能直接使用此快速鍵組合——因為它適用於所有現代版 Excel，一鍵直達 VBA 編輯器，提升您的操作效率！

2. 在 VBA 編輯器中，點選功能表列上的插入，再選擇模組，系統將開啟一個新的空白模組視窗。請立即將下列 VBA 程式碼複製並貼上至該視窗中！

VBA 程式碼：在 Excel 中僅複製選擇區域的邊框

Sub CopyBorders()
'Updated by Extendoffice 20211203
    Dim xRg, yRg As Range
    On Error Resume Next
    
    Set xRg = Application.InputBox("Select Range with Borders to Copy...", "Kutools For Excel", , , , , , 8)
    Set yRg = Application.InputBox("Select Cell to Apply Borders to range..", "Kutools For Excel", , , , , , 8)
    
    
    With yRg.Borders(xlEdgeLeft)
        .LineStyle = xRg.Borders(xlEdgeLeft).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeLeft).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeLeft).TintAndShade
        .Weight = xRg.Borders(xlEdgeLeft).Weight

    End With
    With yRg.Borders(xlEdgeTop)
        .LineStyle = xRg.Borders(xlEdgeTop).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeTop).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeTop).TintAndShade
        .Weight = xRg.Borders(xlEdgeTop).Weight
    End With
    With yRg.Borders(xlEdgeBottom)
        .LineStyle = xRg.Borders(xlEdgeBottom).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeBottom).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeBottom).TintAndShade
        .Weight = xRg.Borders(xlEdgeBottom).Weight
    End With
    With yRg.Borders(xlEdgeRight)
        .LineStyle = xRg.Borders(xlEdgeRight).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeRight).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeRight).TintAndShade
        .Weight = xRg.Borders(xlEdgeRight).Weight
    End With

    With yRg.Borders(xlInsideHorizontal)
        .LineStyle = xRg.Borders(xlInsideHorizontal).LineStyle
        .ColorIndex = xRg.Borders(xlInsideHorizontal).ColorIndex
        .TintAndShade = xRg.Borders(xlInsideHorizontal).TintAndShade
        .Weight = xRg.Borders(xlInsideHorizontal).Weight
    End With
    With yRg.Borders(xlInsideVertical)
        .LineStyle = xRg.Borders(xlInsideVertical).LineStyle
        .ColorIndex = xRg.Borders(xlInsideVertical).ColorIndex
        .TintAndShade = xRg.Borders(xlInsideVertical).TintAndShade
        .Weight = xRg.Borders(xlInsideVertical).Weight
    End With
End Sub

3. 貼上程式碼後，您可以按下 F5 鍵，或從 VBA 編輯器工具列選擇執行來啟動巨集。當第一個「Kutools for Excel」對話方塊出現時，請用滑鼠選取包含您要複製邊框的儲存格範圍，再點擊「確定」完成確認。

顯示在 Excel 中使用 VBA 程式碼選取要複製框線之儲存格範圍的螢幕截圖

4. 接著會出現標題為「Kutools for Excel」的第二個對話方塊。請選取目標範圍左上角左側的儲存格，以套用已複製的邊框樣式；選取完畢後，按一下「確定」。如下圖所示：

顯示在 Excel 中選取要套用已複製框線之儲存格的螢幕截圖

完成上述步驟後，原始範圍的邊框樣式將套用至您選取的新位置。僅邊框格式會被複製；儲存格內容、色彩及其他屬性皆不受影響。此方法非常適合用來建立格式統一的表格，或快速複製工作表的美學風格。下方為範例結果：

顯示已套用框線樣式至新儲存格範圍的螢幕截圖

替代方案：使用複製格式手動複製邊框

對於想以無程式碼方式快速複製邊框的使用者，Excel 內建的複製格式工具提供了一種高效做法，能將邊框格式（連同部分其他樣式）從一個範圍輕鬆套用至另一個範圍。操作步驟如下：

選取包含您欲複製邊框的儲存格範圍。
在 Home 索引標籤的剪貼簿群組中，點選複製格式（油漆桶圖示）。
游標將變為油漆桶圖示，請選取您希望套用邊框的目標範圍。此操作會一併套用原始範圍的邊框及其他格式（例如字型與填滿色彩）。

優點：操作簡易，且為 Excel 內建功能，適合快速完成視覺化複製任務。
缺點：無法僅複製邊框樣式（同時也會一併複製其他單元格格式，如填滿色彩、字型變更等）。若您希望目標儲存格的內容與既有格式（邊框除外）保持不變，此方法便非理想選擇。

每種方法皆有其獨特優勢，可針對不同的工作流程需求靈活運用：VBA 能精準僅轉移邊框，而複製格式則能快速套用所有格式設定。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多