如何在 Excel 中仅复制选定区域的边框？

在使用 Microsoft Excel 时，通过“选择性粘贴”功能，可以轻松从一个区域中仅复制单元格的值、格式、公式等内容。但您是否尝试过在 Excel 中仅复制某个区域的边框样式呢？本文将向您展示如何在 Excel 中将选定区域的边框复制到新的区域的方法。

使用 VBA 代码仅复制选定区域的边框

使用 VBA 代码仅复制选定区域的边框

以下 VBA 代码可以帮助您仅复制选定单元格的边框样式，并将其应用到 Excel 中的新区域。请按照以下步骤操作：

1. 按下“Alt” + “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”键运行代码。在弹出的第一个“Kutools for Excel”对话框中，请选择需要复制边框的区域，然后点击“确定”按钮。

4. 在第二个“Kutools for Excel”对话框中，请选择一个单元格以应用复制的边框，然后点击“确定”按钮。请参见截图：

然后，您可以发现选定区域的边框样式已被复制并应用到新区域，如下图所示。

相关文章：

• 如何在 Excel 中复制并粘贴值时跳过重复项？
• 如何在 Excel 中复制单元格数据的同时保留行高和列宽？
• 如何在 Excel 中将单元格作为文本值而不是公式进行复制？
• 如何在 Excel 中将数据复制到另一个工作表的下一个空白行？