Views

Histats

Vitrine

VBA Excel - Eficiência para deletar milhares de linhas (Delete thousand lines).

Talvez precise deletar planilhas com milhares de linhas em branco, poderá usar
a funcionalidade abaixo.

Function DelThousandBlnkRows(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




Vejam outras várias sugestões...
Blog Excel
Blog Access
Blog Office




LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...