Ao usar o Microsoft Excel, é fácil copiar apenas valores de células, formatação de células, fórmulas de 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 de copiar apenas as bordas do intervalo selecionado para um novo intervalo no Excel.
Copie apenas as bordas do intervalo selecionado com o código VBA
O código VBA a seguir 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. Faça o seguinte.
1. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Móduloe, em seguida, copie e cole o código VBA abaixo na janela 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. aperte o F5 chave para executar o código. Na primeira aparição Kutools for Excel caixa de diálogo, selecione o intervalo com bordas que você precisa copiar e, em seguida, clique no OK botão.
4. Na segunda Kutools for Excel caixa de diálogo, selecione uma célula para aplicar a borda copiada e clique no OK botão. Veja a imagem:
Em seguida, você pode ver que apenas o estilo de borda do intervalo selecionado é copiado e aplicado a um novo intervalo, como mostrado abaixo na captura de tela.
