如何在Excel中僅複製選定範圍的邊框？

使用Microsoft Excel時，使用“選擇性粘貼”功能可以很容易地僅複製範圍中的單元格值，單元格格式，單元格公式等。但是，您是否曾經嘗試過僅複製Excel範圍中的邊框樣式？本文將向您展示在Excel中僅將選定範圍的邊界複製到新範圍的方法。

僅使用VBA代碼複製選定範圍的邊框

僅使用VBA代碼複製選定範圍的邊框

驚人的！在 Excel 中使用高效的選項卡，如 Chrome、Edge、Firefox 和 Safari！
每天節省50％的時間，並減少數千次鼠標單擊！

下面的VBA代碼可以幫助您僅複製所選單元格的邊框樣式，然後將此邊框樣式應用於Excel中的新範圍。請執行以下操作。

1。按其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。在裡面 Microsoft Visual Basic for Applications 窗口中，單擊插入 > 模塊，然後將下面的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 鍵來運行代碼。在第一個彈出 Excel的Kutools 對話框，請選擇需要復制邊框的範圍，然後單擊 OK 按鈕。

4.在第二 Excel的Kutools 對話框，請選擇一個單元格以應用複制的邊框，然後單擊 OK 按鈕。看截圖：

然後，您將僅看到所選範圍的邊框樣式被複製並應用於新範圍，如下面的屏幕截圖所示。

最佳辦公生產力工具

🤖	Kutools 人工智慧助手：基於以下內容徹底改變數據分析：智慧執行 \| 生成代碼 \| 建立自訂公式 \| 分析數據並產生圖表 \| 呼叫 Kutools 函數...
	熱門特色: 尋找、突出顯示或識別重複項 \| 刪除空白行 \| 合併列或儲存格而不遺失數據 \| 沒有公式的回合 ...
	超級查詢: 多條件VLookup \| 多值VLookup \| 跨多個工作表的 VLookup \| 模糊查詢 ....
	高級下拉列表: 快速建立下拉列表 \| 依賴下拉列表 \| 多選下拉列表 ....
	欄目經理: 新增特定數量的列 \| 移動列 \| 切換隱藏列的可見性狀態 \| 比較範圍和列 ...
	特色功能: 網格焦點 \| 設計圖 \| 大方程式酒吧 \| 工作簿和工作表管理器 \| 資源庫（自動文字） \| 日期選擇器 \| 合併工作表 \| 加密/解密單元格 \| 按清單發送電子郵件 \| 超級濾鏡 \| 特殊過濾器（過濾粗體/斜體/刪除線...）...
	前 15 個工具集: 12 文本工具 (添加文本, 刪除字符，...） \| 50+ 圖表類型 (甘特圖，...） \| 40+ 實用公式 (根據生日計算年齡，...） \| 19 插入工具 (插入二維碼, 從路徑插入圖片，...） \| 12 轉化工具 (數字到單詞, 貨幣兌換，...） \| 7 合併與拆分工具 (高級合併行, 分裂細胞，...） \| ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能，體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。點擊此處獲取您最需要的功能...

產品描述

閱讀更多... 免費下載...

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！

閱讀更多... 免費下載...

Comments (6)

No ratings yet. Be the first to rate!

Gustavo Acosta

about 2 years ago

#36354