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 LongIf DeleteRange Is Nothing Then Exit SubIf DeleteRange.Areas.Count > 1 Then Exit SubWith DeleteRangeLet rCount = .Rows.Count
For r = rCount To 1 Step -1If Application.CountA(.Rows(r)) = 0 Then.Rows(r).EntireRow.DeleteEnd IfNext rEnd WithEnd Function
Tags: Bernardes, MS, Microsoft, Office, Excel, deletar, apagar, excluir, row, lines, linha, range, row
Nenhum comentário:
Postar um comentário