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, linha, range, row


André Luiz Bernardes
A&A® - Work smart, not hard.




Nenhum comentário:

Postar um comentário

diHITT - Notícias