VBA Excel - Excluindo linhas em branco (Delete Blank Cells)

Continuando com as opções quanto customizar as planilhas, retirando delas todos os espaços não usados temos a função abaixo que deletará todas as células em branco que estiverem na coluna D.

Sub DelBlankRows()
        Range("D1:D" & Cells _
        (Rows.Count,2).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub



Tags: Excel, Column, Coluna, Delete, Linha, Plan, Planilhas, Report, Row,  rows,worksheet, lines

André Luiz Bernardes

A&A® - In Any Place.