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.

Nenhum comentário:
Postar um comentário