Notifications
Clear all

Excluir linhas em branco ou segundo um critério  

  RSS

Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
03/08/2009 7: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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Compartilhar: