Como remover linhas duplicadas no Excel 2013 quando há muitas colunas?

0

Neste momento, estou tentando filtrar a planilha do Excel para que as colunas removam todas as instâncias de dados duplicados.

Isso normalmente não seria um problema, exceto que a planilha do Excel com a qual estou lidando tem 400 colunas com 2.000 linhas cada e, ao clicar uma vez em Remover Duplicatas , é incrivelmente tedioso.

Tentei destacar todos os dados e clique em Remover duplicatas , mas não funcionou como esperado. O que eu esperava era que cada coluna agora mostrasse apenas linhas exclusivas para essa coluna em particular. Em vez disso, ele retornaria uma mensagem informando que nenhuma linha duplicada foi encontrada ou filtraria as linhas exclusivas em todas as colunas. Como só aconteceu:

SELECT DISTINCT *
FROM table

Existe uma maneira de filtrar todas as colunas e filtrá-las apenas para todas as linhas duplicadas dessa coluna específica? Algo parecido com isto:

SELECT DISTINCT col1
FROM table

SELECT DISTINCT col2
FROM table

...

SELECT DISTINCT coln
FROM table

Realmente não achava que isso fosse necessário, mas aqui está:

ANTES

+-------+---------------+--------------------+
| Name  |     City      |      Position      |
+-------+---------------+--------------------+
| John  | Philadelphia  | Software Developer |
| John  | New York City | Software Engineer  |
| John  | Washington DC | Accountant         |
| Henry | Philadelphia  | Janitor            |
| Jeff  | Philadelphia  | Project Manager    |
| Paul  | Philadelphia  | Software Engineer  |
| Dave  | Boston        | Accountant         |
+-------+---------------+--------------------+

DEPOIS

+-------+---------------+--------------------+
| Name  |     City      |      Position      |
+-------+---------------+--------------------+
| John  | Philadelphia  | Software Developer |
| Henry | New York City | Software Engineer  |
| Jeff  | Washington DC | Accountant         |
| Paul  | Boston        | Janitor            |
| Dave  |               | Project Manager    |
+-------+---------------+--------------------+
    
por Lee 04.04.2016 / 17:33

1 resposta

1

Com o VBA:

Dim i As Integer

For i = 1 To 400
    Columns(i).EntireColumn.RemoveDuplicates Columns:=1, Header:=xlYes
Next i
    
por 04.04.2016 / 19:28