Deve eliminare circa 40.000 righe ed è un po lenta.
Grazie
- Codice: Seleziona tutto
Sub eliminarighevuote()
Sheets("foglio1").Activate
With ActiveSheet.UsedRange
alex = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For r = alex To 1 Step -1
If Application.Count(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub