VBA Excel - Deletando Linhas vazias no Range - Delete Rows selected in the range

Caros,

Continuando na linha: "Revisitando As primeiras funções que desenvolvi".

Como deletar as linhas que estão vazias num range informado?

Function DelEmptyR(DeleteRange As Range)

' Deleta todas as linhas vazias no Range

' informa o range que a função analisará.

Dim rCount As Long, r As Long

    If DeleteRange Is Nothing Then Exit Sub

    If DeleteRange.Areas.Count > 1 Then Exit Sub

    With DeleteRange

        Let rCount = .Rows.Count

        For r = rCount To 1 Step -1

            If Application.CountA(.Rows(r)) = 0 Then 

                .Rows(r).EntireRow.Delete

            End If

        Next r

    End With

End Function

Tags: Bernardes, MS, Microsoft, Office, Excel, deletar, apagar, excluir, row, lines, linhas, range

André Luiz Bernardes

A&A® - Work smart, not hard.

bernardess@gmail.com

Skype: inanyplace 

LinkedIn
Plaxo