Excluir linhas em branco ou segundo um critério

Tem alguma dica para o uso do Excel? Algum atalho especial? Algum macete? Aqui é o lugar para você compartilhar!

Excluir linhas em branco ou segundo um critério

Mensagempor nasario » Seg Ago 03, 2009 10:15 am

Olá Pessoal,

Quem nunca precisou excluir centenas de linhas em branco? Ou até mesmo aquelas linhas indesejadas que temos que excluir na mão, uma a uma?

O código abaixo exclui as linhas em branco e também qualquer linha que tenha uma célula com o texto "excluir", essa palavra você pode adequar à sua necessidade também, assim como "PLAN1".


Sub tratar()

Sheets("PLAN1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range("a" & ActiveCell.Row + 1).Value = "fim de arquivo"
Range("a2").Select
Do While ActiveCell.Value <> "fim de arquivo"
If ActiveCell.Value = "" or application.worksheetfunction.countif(activecell.entirerow,"excluir")>0Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If

Loop

End Sub


Créditos: Fernando Fernandes - Comunidade Microsoft Excel - ORKUT

nasario
 

{ SO_SELECT }

Voltar para Dicas & Macetes

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 2 visitantes