Página 1 de 1

Excluir todas as linhas iguais

Enviado: 01 Abr 2016 às 10:30
por lfgomes
Bom dia amigos...
Estou precisando de ajuda para resolver um pequeno problema. Tenho várias tabelas que são exportadas de um programa para o Excel, onde ele cria as informações em uma única coluna (coluna A). Para eu separar por colunas, gostaria de uma macro que excluísse todas as linhas iguais. As linhas que eu quero que exclua, são todas as que separam uma informação de outra, ou seja, todas que tem +------+ nelas.
Segue o arquivo para melhor esclarecer.

Excluir todas as linhas iguais

Enviado: 01 Abr 2016 às 12:00
por Kledison
Boa tarde,

já tentou usar a opção REMOVER DUPLICATAS ?

Depois use o TEXTO PARA COLUNAS para separa os dados.

Att

Excluir todas as linhas iguais

Enviado: 01 Abr 2016 às 13:03
por lfgomes
Boa tarde Kledison...

Já tentei sim, mas ele só remove as duplicadas, deixando uma ainda para trás. Preciso que ele remova todas, sem deixar nenhuma de fora.

Re: Excluir todas as linhas iguais

Enviado: 01 Abr 2016 às 13:23
por Kledison
Ok,


tente com essa macro abaixo para excluir os repetidos:
Código: Selecionar todos
Sub excluir_linhas()

For linha = 1000 To 1 Step -1

If ThisWorkbook.ActiveSheet.Range("A" & linha) = "+-----------------------------------+---------+-----------+-----------+" Then
ThisWorkbook.ActiveSheet.Rows(linha).Delete

End If

Next linha

End Sub

Excluir todas as linhas iguais

Enviado: 04 Abr 2016 às 09:20
por lfgomes
Bom dia Kledison...

A principio ajudou muito sua macro. Ela realmente exclui todas as linhas, o problema é que descobri, que algumas folhas do meu relatório, mudam o formato que o +------------+ aparece. Mas já me ajudou bastante a ter novas idéias.

Obrigado.