Excel (VBA): trovare l’ultima riga avvalorata

Capita spesso di dover creare cicli in VBA che coinvolgono tutte le righe avvalorate in un determinato foglio di lavoro.
Ma se il numero di righe è variabile, a priori non è possibile conoscere il numero l’ultima riga avvalorata.

Una delle possibili soluzioni a questo problema è quella di salire (dal basso verso l’alto) fino alla prima riga vuota disponibile (in Excel 2003, e versioni precedenti, il nostro foglio non può avere più di 65.000 righe). In pratica:

UltimaRiga = Sheets("Foglio1").Range("A65000").End(XlUp).Row

Quindi il nostro ciclo sarà qualcosa del genere:

Sub prova()
UltimaRiga = Sheets("Foglio1").Range("A65000").End(XlUp).Row
For i = 1 to UltimaRiga
   ...
Next
End Sub

N.B.: in Excel 2007 e 2010 il numero massimo di righe è stato aumentato a 1.048.576.

2 risposte a Excel (VBA): trovare l’ultima riga avvalorata

  1. david scrive:

    per trovare l’ultima riga indipendentemente dalla versione utilizzata è possibile usare il seguente codice:

    ultimariga = Cells(Rows.Count, 1).End(xlUp).Row

    Complimenti per il blog molto interessante.
    Saluti

  2. hypnosis scrive:

    Howdy! I know this is kind of off topic but I was wondering if you knew where I could find a captcha plugin for my comment
    form? I’m using the same blog platform as yours and I’m having trouble finding one?
    Thanks a lot!

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...

%d blogger cliccano Mi Piace per questo: