OS MELHORES VÍDEOS

 

Pesquisar

segunda-feira, 6 de agosto de 2012

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




Nenhum comentário:

Postar um comentário