Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

Histats

Vitrine

+Views

Widgets Mundo Blogger

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


TagsExcel, Column, Coluna, Delete, Linha, Plan, Planilhas, Report, Row,  rows,worksheet, lines



André Luiz Bernardes
A&A® - In Any Place.

Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias