Apagar todas as linhas vazias

O seguinte procedimento apaga todas as linhas vazias na planilha ativa. Esta rotina é
rápida e eficiente, porque ele não verifica todas as linhas. Ele verifica apenas as linhas usadas na
intervalo, o qual é determinado usando a propriedade UsedRange do objecto Worksheet



Inserir um Módulo...

e copiar o seguinte código:


Sub DeletarLinhasVazias()

Dim UltimaLinha As Long
Dim r As Long
Dim Counter As Long

Application.ScreenUpdating = False

UltimaLinha = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Rows(1).Row - 1

For r = UltimaLinha To 1 Step -1
    If Application.WorksheetFunction.CountA(Rows(r)) = 0 Then
        Rows(r).Delete
        Counter = Counter + 1
    End If
Next r

Range("a1").Select

Application.ScreenUpdating = True

MsgBox Counter & " linhas vazias apagada(s).", vbInformation, "Linhas vazias"

End Sub

Neste exemplo podemos ver o código em funcionamento.

Rodando a Macro...

Nosso resultado será...

e temos uma mensagem de quantas linhas foram apagadas.

e pronto...