Como copiar apenas as bordas do intervalo selecionado no Excel?

Ao usar o Microsoft Excel, é fácil copiar apenas os valores das células, a formatação das células, as fórmulas das células e assim por diante de um intervalo com a função Colar Especial. Mas você já tentou copiar apenas o estilo de borda de um intervalo no Excel? Este artigo mostrará o método para copiar apenas as bordas do intervalo selecionado para um novo intervalo no Excel.

Use o código VBA para copiar apenas as bordas do intervalo selecionado

Use o código VBA para copiar apenas as bordas do intervalo selecionado

O seguinte código VBA pode ajudá-lo a copiar apenas o estilo de borda das células selecionadas e, em seguida, aplicar esse estilo de borda a um novo intervalo no Excel. Por favor, siga os passos abaixo.

1. Pressione as teclas "Alt" + "F11" para abrir a janela "Microsoft Visual Basic for Applications".

2. Na janela "Microsoft Visual Basic for Applications", clique em "Inserir" > "Módulo" e depois copie e cole o código VBA abaixo na janela de Código.

Código VBA: Copie apenas as bordas do intervalo selecionado no 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. Pressione a tecla "F5" para executar o código. Na primeira caixa de diálogo "Kutools para Excel" que aparecer, selecione o intervalo com as bordas que você precisa copiar e, em seguida, clique no botão "OK".

4. Na segunda caixa de diálogo "Kutools para Excel", selecione uma célula para aplicar a borda copiada, depois clique no botão "OK". Veja a captura de tela:

Então você poderá ver que apenas o estilo de borda do intervalo selecionado foi copiado e aplicado a um novo intervalo, conforme mostrado na captura de tela abaixo.

Artigos relacionados:

• Como copiar e colar valores ignorando duplicatas no Excel?
• Como copiar dados de células com altura da linha e largura da coluna no Excel?
• Como copiar células como valor de texto e não como fórmula no Excel?
• Como copiar dados para a próxima linha vazia de outra planilha no Excel?