Excel VBA – Solução eficiente para deletar milhares de linhas


Termo de Responsabilidade










Caso necessite deletar aquelas planilhas com milhares de linhas em branco poderá usar a funcionalidade abaixo.
Function EliminateThousandBlankLines (StarLine as Long)
' Author: André Luiz Bernardes.
' Date: 05.02.2009
  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



Tags: VBA, Excel, row, line, delete

Inline image 1
















Nenhum comentário:

Postar um comentário

diHITT - Notícias