Maneira mais rápida de excluir linhas + de 40 mil linhas de uma só vez
Existe uma maneira mais rápida de excluir linhas?
Eu só preciso excluir linhas com números de linhas ímpares da linha 3 até a última linha com dados nela
O código abaixo funciona, mas é muito lento:
Dim toDelete As Range
For icount = endRow To 3 Step -2
If toDelete Is Nothing Then
Set toDelete = Rows(icount)
Else
Set toDelete = Union(toDelete, Rows(icount))
End If
Next
toDelete.Delete shift:=xlUp