Como evitar a numeração automática no cabeçalho de coluna duplicado na tabela do Excel?

No Excel, ao digitar o cabeçalho de coluna duplicado em uma tabela, ele será automaticamente numerado como nome, nome1, nome2, e o número não pode ser removido, conforme mostra a captura de tela abaixo. Para evitar a numeração automática no cabeçalho de coluna duplicado na tabela, você pode adicionar espaços atrás ao cabeçalho duplicado. Aqui está um código VBA que pode ajudá-lo a repetir o cabeçalho e adicionar automaticamente espaços atrás para torná-los diferentes, mas com aparência idêntica.

Adicionar automaticamente espaços atrás ao cabeçalho

Observação: os métodos fornecidos neste tutorial foram testados no Excel 2021; pode haver algumas diferenças em versões diferentes do Excel.

1. Digite os cabeçalhos que deseja repetir em uma coluna, depois pressione as teclas Alt + F11 para habilitar a janela Microsoft Visual Basic for Applications.

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

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 Executar  no botão da faixa de opções ou pressione F5 para ativar o código, no primeiro diálogo que aparece, selecione os cabeçalhos que deseja repetir. Clique OK.

4. No segundo diálogo que aparece, digite o número de vezes que deseja repetir. Clique OK.

5. Selecione uma célula onde deseja exibir os cabeçalhos repetidos. Clique OK.

Agora, os cabeçalhos foram repetidos e adicionados com espaços atrás.

6. Selecione os cabeçalhos e copie-os pressionando Ctrl + C, e cole-os de volta na tabela que precisa pressionando Ctrl + V.

Agora você pode ver que a tabela possui cabeçalhos de coluna duplicados sem numeração.

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

---

As Melhores Ferramentas de Produtividade para o Office

Kutools para Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

• Barra de Fórmulas Super (edite facilmente várias linhas de texto e fórmulas); Layout de Leitura (leia e edite facilmente um grande número de células); Cole em Intervalo Filtrado...
• Mesclar Células/Linhas/Colunas mantendo os dados; Dividir conteúdo de células; Combinar Linhas Duplicadas e Somar/Média... Prevenir Células Duplicadas; Comparar Intervalos...
• Selecionar Linhas Duplicadas ou Únicas; Selecionar Linhas em Branco (todas as células estão vazias); Super Localizar e Localização Difusa em Muitas Pastas de Trabalho; Seleção Aleatória...
• Cópia Exata de Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias planilhas; Inserir Marcadores, Caixas de Seleção e mais...
• Favoritar e Inserir rapidamente Fórmulas, Intervalos, Gráficos e Imagens; Criptografar Células com senha; Criar Lista de Correspondência e enviar emails...
• Extrair Texto, Adicionar Texto, Remover por Posição, Remover Espaço; Criar e Imprimir Estatísticas da Página de Dados; Converter entre o Conteúdo das Células e Comentários...
• Super Filtro (salvar e aplicar esquemas de filtro em outras planilhas); Classificação Avançada por mês/semana/dia, frequência e mais; Filtro Especial por negrito, itálico...
• Consolidar Pastas de Trabalho e Planilhas; Mesclar Tabelas com base em colunas-chave; Dividir Dados em Múltiplas Planilhas; Conversão em Lote de xls, xlsx e PDF...
• Agrupamento de Tabela Dinâmica por número da semana, dia da semana e mais... Mostrar Células Desbloqueadas, Bloqueadas por cores diferentes; Destacar Células Que Contêm Fórmula/Nome...

Leia Mais... Teste Gratuito de 30 Dias com Todos os Recursos... Comprar... 

---

Office Tab - traz a interface com guias para o Office e torna seu trabalho muito mais fácil

• Habilite a edição e leitura com guias no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Abra e crie vários documentos em novas abas da mesma janela, em vez de em novas janelas.
• Aumenta sua produtividade em 50% e reduz centenas de cliques de mouse para você todos os dias!

Leia Mais... Teste Gratuito de 30 Dias com Todos os Recursos... Comprar...