Como copiar apenas as bordas de um intervalo selecionado no Excel?
Ao trabalhar no Microsoft Excel, muitas vezes precisa de replicar formatações específicas de um intervalo para outro. As operações habituais de copiar e colar permitem-lhe transferir valores, fórmulas ou até toda a formatação das células através da funcionalidade Colar Especial. Contudo, pode surgir a necessidade de replicar apenas o estilo de bordasde um intervalo selecionado, sem copiar outros formatos, como cores, tipos de letra ou padrões de preenchimento. Por exemplo, pode pretender manter um design de bordas de tabela consistente em várias secções da sua folha de cálculo ou aplicar esquemas de bordas idênticos a novas folhas de modelo. Infelizmente, o Excel não oferece uma opção direta e integrada para copiar e colar apenas as bordas das células. Este tutorial irá guiá-lo passo a passo num método prático para copiar exclusivamente as bordas de qualquer intervalo selecionado e aplicá-las a um novo intervalo no Excel — garantindo consistência na formatação sem afetar quaisquer outras propriedades das células.
Utilizar código VBA para copiar apenas as bordas de Selecionar intervalo
Solução alternativa: Replicar manualmente as bordas com o Pincel de Formatação
Utilizar código VBA para copiar apenas as bordas de Selecionar intervalo
Com uma macro VBA simples, pode copiar eficientemente o estilo exato das bordas de uma célula ou intervalo e aplicá-lo noutra localização da sua folha de cálculo, independentemente do conteúdo ou de outros atributos de formatação. Esta solução é ideal quando necessita de automatizar tarefas repetitivas ou deseja acelerar o seu fluxo de trabalho ao lidar com tabelas e modelos com estilos personalizados. Siga os passos detalhados abaixo para executar com segurança o código VBA e tenha atenção às dicas úteis sobre os parâmetros ao longo do caminho.
1. Prima simultaneamente as teclas Alt+F11 no seu teclado. Isto abrirá a janela do editor Microsoft Visual Basic para Aplicações (VBA). Se não vir o separador Programador no Excel, basta utilizar esta combinação de atalho — abre diretamente o editor VBA em qualquer versão moderna do Excel.
2. No editor do VBA, clique em Inserir na barra de menu e, em seguida, selecione Módulo. Uma nova janela de módulo em branco será aberta. Copie e cole o seguinte código VBA nesta janela.
Código VBA: Copiar apenas as bordas de Selecionar intervalo 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. Após colar o código, pode executar a macro premindo a tecla F5 ou selecionando Executar na barra de ferramentas do editor VBA. Quando surgir a primeira caixa de diálogo «Kutools para Excel», utilize o rato para destacar o intervalo que contém as bordas que pretende replicar e, em seguida, confirme clicando em «OK».
4. Aparecerá uma segunda caixa de diálogo intitulada «Kutools para Excel». Selecione agora a célula superior esquerda do intervalo de destino onde pretende aplicar o estilo de bordas copiado. Assim que tiver escolhido a célula de destino (e, eventualmente, um intervalo), clique em «OK». Veja a ilustração abaixo:
Após concluir estes passos, o desenho das bordas do intervalo original foi agora aplicado à nova localização que selecionou. Apenas a formatação das bordas é transferida; os dados das células, cores e outras características permanecem inalterados. Isto é útil ao criar tabelas uniformes ou ao copiar a estética de uma folha de cálculo. Um resultado de exemplo é apresentado abaixo:
Solução alternativa: Replicar manualmente as bordas com o Pincel de Formatação
Para utilizadores que pretendem uma abordagem sem código para copiar bordas, a ferramenta integrada do Excel Pincel de Formatação oferece uma forma rápida de duplicar a formatação das bordas de um intervalo para outro, juntamente com outros estilos. Eis como a pode utilizar:
- Selecione o intervalo que contém as bordas que pretende copiar.
- No separador Base, no grupo Área de Transferência, clique em Pincel de Formatação (ícone do pincel).
- O seu cursor transforma-se num pincel. Selecione o intervalo de destino onde pretende que as bordas apareçam. Isto aplicará as bordas do intervalo original e alguns outros formatos (como o tipo de letra e Cor de preenchimento) em conjunto.
Vantagens: Simples e integrada no Excel; ideal para tarefas rápidas e visuais de cópia.
Desvantagens: Não permite copiar apenas o estilo das bordas — copia também outros elementos do Formato de Célula, como a cor de preenchimento, alterações ao tipo de letra, entre outros. Por isso, não é a melhor opção se pretender manter inalterados o conteúdo e a formatação da célula de destino, exceto as bordas.
Cada método tem os seus próprios pontos fortes específicos e adapta-se a diferentes necessidades de fluxo de trabalho: o VBA permite uma transferência precisa apenas das bordas, enquanto o Pincel de Formatação facilita a cópia rápida de todos os formatos.
Artigos relacionados:
- Como copiar e colar valores no Excel ignorando os duplicados?
- Como copiar dados de células no Excel, incluindo a altura das linhas e a largura das colunas?
- Como copiar uma célula como valor de texto e não como fórmula no Excel?
- Como copiar dados para a próxima linha vazia de outra folha de cálculo no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos