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.

This entry was posted on giovedì, 22 aprile 2010 at 18:59 and is filed under Excel, Programmazione. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

1 Responses to Excel (VBA): trovare l’ultima riga avvalorata

  1. david ha detto:
    17 marzo 2011 alle 12:56

    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

    Rispondi

Lascia un commento