VBA: Eliminare righe vuote

[pic omnic]

per eliminare le righe che, nella 1° colonna, hanno un valore vuoto, ho sempre utilizzato una vecchia macro pubblicata ,qualche decennio fa,da uno dei fondatori del gruppo (credo Mauro Gamberini). Funziona bene se l'elenco è di qualche decina di righe, ma, con un elenco di 7-8 mila righe,nell'attesa che termini, si fa in tempo a prepararsi il caffè. Non l ho cronometrato ma penso occorrano almeno 2-3 minuti. Qualcuno conosce qualche metodo più veloce ?
Grazie
draleo
-----------------------------------------------------
Public Sub m()
Dim nr As Long
Dim l As Long
With ActiveSheet
nr = .Range("A65536").End(xlUp).Row
For l = nr To 1 Step -1
If .Cells(l, 1).Value = "" Then
.Rows(l).Delete Shift:=xlUp
End If
Next l
.Cells(1, 1).Select
End With

[Ammammata]

After serious thinking pic omnic wrote :

> Qualcuno conosce qualche metodo più veloce ?

disabilita l'aggiornamento video all'inizio della macro e riattivalo
alla fine

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........

[Zipper]

Scriveva pic omnic mercoledì,
23/08/2023:<93d9b293-1b8a-4407...@googlegroups.com>

> Public Sub m()
> Dim nr As Long
> Dim l As Long
> With ActiveSheet
> nr = .Range("A65536").End(xlUp).Row
> For l = nr To 1 Step -1
> If .Cells(l, 1).Value = "" Then
> .Rows(l).Delete Shift:=xlUp
> End If
> Next l
> .Cells(1, 1).Select
> End With

Public Sub m()
Dim nr As Long
Dim l As Long

Application.ScreenUpdating = False

With ActiveSheet
nr = .Range("A65536").End(xlUp).Row
For l = nr To 1 Step -1
If .Cells(l, 1).Value = "" Then
.Rows(l).Delete Shift:=xlUp
End If
Next l
.Cells(1, 1).Select
End With

Application.ScreenUpdating = True
End Sub

[pic omnic]

grazie. stasera provo
draleo