Remova rapidamente Coluna duplicada de uma tabela do Word (3 Métodos)

Ao trabalhar com tabelas no Microsoft Word, poderá reparar que algumas colunas contêm exatamente os mesmos dados. Essas colunas duplicadas tornam a sua tabela mais larga do que o necessário e mais difícil de gerir. Como o Word não oferece uma ferramenta incorporada para remover automaticamente colunas duplicadas, identificá-las e eliminá-las manualmente pode exigir tempo e esforço consideráveis, especialmente em tabelas grandes.

Neste tutorial, vai aprender três métodos eficazes para remover colunas totalmente idênticas em tabelas do Word. Começamos com a solução alternativa no Excel usando transposição, seguimos com a remoção direta de duplicatas no Word com o Kutools e terminamos com uma macro VBA para uma limpeza totalmente automatizada. Escolha o método que melhor se adapta à sua situação.

• Método 1: Remover Coluna duplicada utilizando o Excel
• Método 2: Remover Coluna duplicada com Kutools para Word
• Método 3: Remover Coluna duplicada utilizando VBA

Remover Coluna duplicada utilizando o Excel (solução alternativa com transposição)

Este método é uma opção prática para utilizadores com acesso ao Excel. O Excel permite remover linhas duplicadas através de Dados > Remover Duplicados. Como o Excel remove duplicados por linhas e não por colunas, é necessário primeiro transpor a tabela — transformando colunas em linhas —, eliminar os duplicados e, em seguida, transpor novamente os dados para o formato original:

Office Tab

Navegação por separadores para Word, Excel, PowerPoint e muito mais — tal como num navegador web, com alternância suave numa única janela.

Transferência GratuitaSaber Mais

1. Passe o rato sobre a tabela que contém duplicados para exibir o identificador de movimentação no canto superior esquerdo e, em seguida, clique nele para selecionar toda a tabela.

   

2. Prima Ctrl + C para copiar a tabela.
3. Abra o Excel, clique numa célula vazia e, em seguida, prima Ctrl + V para colar a tabela.
4. Selecione a tabela colada no Excel e, em seguida, prima novamente Ctrl + Cpara a copiar.
   • Copie novamente a tabela, pois o Excel precisa de reconhecê-la como um intervalo nativo da folha de cálculo para que a opção Transpor fique disponível.
5. Clique com o botão direito do rato noutra célula vazia, escolha Colar Especial>Transpor(Pode encontrar a opção)Transporem dois locais, conforme mostrado abaixo).

   

   • Isto transforma as colunas originais em linhas, permitindo que o Excel detete corretamente a coluna duplicada.
6. Selecione os dados transpostos e, em seguida, vá a Dados>Remover duplicatas.

   

7. Na caixa de diálogo, desmarque Incluir títulos, depois clique em OKpara remover Linha duplicada dos dados transpostos.

   

8. Copie os dados limpos (intervalo H1:L4 na imagem abaixo), clique com o botão direito do rato numa célula vazia e utilize novamente Colar Especial>Transporpara restaurar a orientação original.

   

9. Copie o resultado final e cole-o novamente no Word.

   

Remover Coluna duplicada com Kutools para Word

Se tiver o Kutools para Word instalado, esta é a forma mais eficiente e conveniente de remover colunas duplicadas. O Kutools permite-lhe eliminar colunas duplicadas diretamente no Word, quer pretenda processar a tabela atual, tabelas selecionadas ou todas as tabelas do documento ativo. Não é necessário copiar a tabela para o Excel nem recorrer a soluções alternativas, tornando esta a solução mais rápida e prática.

1. Selecione a(s) tabela(s) específica(s) da qual pretende remover a coluna duplicada. Ignore este passo se quiser processar todas as tabelas do documento ativo.
2. Clique em KUTOOLS PLUS>Tabela>Excluir Linhas/Colunas em Branco.

   

3. Na caixa de diálogo:
   1. Defina Procurar empara uma das seguintes opções:
      • Tabela(s) selecionada(s) se pretender processar apenas a(o) Selecionar Tabelas.
      • Todas as tabelas no documento ativo, se pretender processar todas as tabelas do documento.
   2. Selecione a Coluna.
   3. Selecione a Coluna duplicada.
   4. Clique em OKpara remover a coluna duplicada.

      

Todas as colunas totalmente idênticas são removidas da(s) tabela(s) selecionada(s) ou de todas as tabelas do documento ativo, conforme a opção que escolher.

Remover Coluna duplicada utilizando VBA

Se trabalha regularmente com tabelas grandes e precisa remover colunas duplicadas mais do que uma vez, utilizar uma macro VBA pode poupar-lhe tempo. Uma macro pode comparar automaticamente colunas e eliminar aquelas que forem totalmente idênticas, dispensando verificações manuais.

1. Clique dentro da tabela que pretende processar no Word.
2. Prima Alt + F11 para abrir o editor do VBA.
3. Clique em Inserir>Módulo.

   

4. Cole o seguinte código no módulo.

   Sub RemoveDuplicateColumnsInSelectedTable()
       Dim tbl As Table
       Dim c1 As Long, c2 As Long
       Dim r As Long
       Dim isDup As Boolean
   
       If Selection.Information(wdWithInTable) = False Then
           MsgBox "Place the cursor inside the table first."
           Exit Sub
       End If
   
       Set tbl = Selection.Tables(1)
   
       For c1 = tbl.Columns.Count To 2 Step -1
           For c2 = c1 - 1 To 1 Step -1
   
               isDup = True
   
               For r = 1 To tbl.Rows.Count
                   If CleanCellText(tbl.Cell(r, c1).Range.Text) <> CleanCellText(tbl.Cell(r, c2).Range.Text) Then
                       isDup = False
                       Exit For
                   End If
               Next r
   
               If isDup Then
                   tbl.Columns(c1).Delete
                   Exit For
               End If
           Next c2
       Next c1
   
       MsgBox "Done. Duplicate columns removed."
   End Sub
   
   Private Function CleanCellText(ByVal s As String) As String
       s = Replace(s, Chr(13), "")
       s = Replace(s, Chr(7), "")
       CleanCellText = Trim$(s)
   End Function

5. Prima F5 para executar a macro.
6. Aparece uma caixa de diálogo de confirmação com a mensagem Concluído. Coluna duplicada removida. Clique em OK para fechar a mensagem.

   

Todas as colunas totalmente idênticas na tabela selecionada são automaticamente removidas, mantendo apenas colunas únicas na sua tabela do Word.

Qual método funciona melhor para si?