VBA Excel – Eficiência para deletar milhões de linhas

Termo de Responsabilidade 

Caso necessite deletar aquelas planilhas com milhares de linhas em branco poderá usar a funcionalidade abaixo (método primitivo, mais funcional).

Function EliminateThousandBlankLines(StarLine as Long)

' Author: André Luiz Bernardes.

'    Date: 05.02.2009[/color]

Let nRow = StartLine

    Do While ActiveSheet.Cells(nRow, 1) <> ""

        If ActiveSheet.Cells(nRow, 1).Value <> strUserName Then

            ActiveSheet.Rows(nRow).EntireRow.Delete

        Else

            Let nRow = nRow + 1

        End If

    Loop

End Function

Referências: 

Tags: VBA, Excel, blank, delete, row, line, clean