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

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
















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