Este fórum está sendo desativado

[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.

[Kledison]

Boa tarde,

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

Depois use o TEXTO PARA COLUNAS para separa os dados.

Att

[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.

[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

[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.