Como impedir que o Excel numere automaticamente o cabeçalho «Coluna duplicada» numa tabela?

No Excel, ao digitar um cabeçalho duplicado numa tabela — por exemplo, «nome», "nome1", "nome2" — é-lhe automaticamente adicionado um número, e esse número não pode ser removido, conforme ilustrado na imagem abaixo. Para evitar essa numeração automática em cabeçalhos duplicados, basta adicionar um espaço à direita nos títulos repetidos. Eis um código VBA que replica o cabeçalho e adiciona automaticamente espaços no final, tornando-os tecnicamente distintos, mas visualmente idênticos.

Adicionar automaticamente Espaços Atrás ao cabeçalho

Nota: os métodos apresentados neste tutorial foram testados no Excel 2021; podem existir ligeiras diferenças noutras versões do Excel.

1. Digite os cabeçalhos que pretende repetir numa coluna e, em seguida, prima as teclas Alt+F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo para criar um novo módulo na janela do Microsoft Visual Basic for Applications, depois copie e cole o código seguinte para o mesmo.

VBA: Repetir e adicionar Espaços Atrás

Sub repeat()
'UpdatebyExtendoffice20220927
    Dim xRg As Range
    Dim saveRg As Range
    Dim xIndex As Integer
    Dim xCount As Integer
    Dim k As Integer
    Dim xStr As String
    Set xRg = Application.InputBox("Select the cells that you want to repeat", "kte", , , , , , 8)
    xIndex = Application.InputBox("Enter the repeat times", "kte")
    Set saveRg = Application.InputBox("Select a cell to output", "kte", , , , , , 8)
    xStr = ""
    xCount = xRg.Cells.Count * xIndex
    Set saveRg = saveRg.Range("a1").Resize(1, xCount)
    k = 0
    For i = 1 To xIndex
        For j = 1 To xRg.Cells.Count
            k = k + 1
            saveRg.Cells(k).Value = xRg.Cells(j).Value + xStr
        Next
        xStr = xStr + " "
    Next
End Sub

3. Clique no botão Executar na Faixa de Opções ou prima a tecla F5 para executar o código. Na primeira caixa de diálogo apresentada, selecione os cabeçalhos que pretende repetir e clique em OK.

4. Na segunda caixa de diálogo apresentada, introduza o número de repetições pretendido e clique em OK.

5. Selecione a célula onde pretende exibir os cabeçalhos repetidos e clique em OK.

Agora, os cabeçalhos foram repetidos e acrescidos de espaços no final.

6. Selecione os cabeçalhos e copie-os ao premir Ctrl+C, depois cole-os na tabela pretendida ao premir Ctrl+V.

Agora pode ver que a tabela apresenta cabeçalhos de coluna duplicados, sem numeração.

Desbloqueie a Magia do Excel com KUTOOLS AI

• Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
• Programação VBA: Escreva e implemente código VBA com facilidade.
• Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
• Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.

Potencie as capacidades do seu Excel com ferramentas alimentadas por IA.Descarregue Agorae experimente uma eficiência como nunca antes!

---

As Melhores Ferramentas de Produtividade para o Office

Kutools para Excel Resolve a Maior Parte dos Seus Problemas e Aumenta a Sua Produtividade em 80 %

• Super Barra de Fórmulas (edite facilmente várias linhas de texto e fórmulas); Disposição de Leitura (leia e edite com facilidade um grande número de células); Colar em Intervalo de Filtro...
• Mesclar Células, Linhas ou Colunas e Manter os Dados; Dividir o Conteúdo das Células; Combinar Linhas Duplicadas e Calcular Soma/Média... Evitar Entradas Duplicadas nas Células; Comparar Intervalos...
• Selecionar linhas duplicadas ou únicas;Selecionar linhas em branco (todas as células vazias);Super Localizar e Pesquisa Aproximada em vários livros; seleção aleatória...
• Cópia Exata de múltiplas células sem alterar a referência da fórmula;Criar Referências Automaticamente para várias folhas;Inserir Marcadores, caixas de seleção e muito mais...
• Fórmulas Favoritas e Inserção Rápida, intervalos, gráficos e imagens; Criptografar Células com palavra-passe; Criar Lista de Correspondência e envie e-mails...
• Extrair Texto, adicionar texto, remover caracteres de uma posição, remover espaços; criar e imprimir estatísticas da página de dados; converter entre conteúdo das células e comentários...
• Super Filtro (guarde e aplique esquemas de filtro noutras folhas); Classificação Avançada por mês, semana, dia, frequência e muito mais; Filtro Especial por negrito, itálico…
• Combinar Livros e Folhas de Cálculo; mesclar tabelas com base numa coluna-chave; dividir dados em várias folhas; conversão automática de xls, xlsx e PDF...
• Agrupamento por Tabela Dinâmica número da semana, dia da semana e muito mais...Mostrar desbloqueadas, bloquear seleção com cores diferentes;Destacar células que contêm fórmula/nome...

Saber Mais...Versão Completa com Teste Gratuito de 30 Dias...Comprar... 

---

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!

Saber Mais...Versão Completa com Teste Gratuito de 30 Dias...Comprar...