MS Excel - Deletando múltiplas linhas em branco - 02.

Ampliando o tema:

A primeira executa o Loop decrescente o que é útil quando há muitas linhas vazias em sequência

Dim i As Integer

With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
For i = Cells(Rows.Count,3).End(xlUp).Row To 11 Step -1
If Isempty(Cells(i,3)) Then Rows(i).Delete
Next i

.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub

Esta 2ª versão não utiliza Loop sendo útil para arquivos que não sejam muito pesados.

Sub DeletLinhasVazias()
Range("C11:C" & Cells(Rows.Count, 3).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.