Questo esempio illustra la proprietà Fine dell’oggetto Range in Excel VBA. Useremo questa proprietà per selezionare l’intervallo dalla cella attiva per l’ultima voce in una colonna.

Situazione:

Alcuni dati di vendita nella colonna A. Si supponga che vi sarà l’aggiunta di ulteriori dati di vendita nel corso del tempo.

From Active Cell to Last Entry in Excel VBA

Posizionare un pulsante di comando nel foglio di lavoro e aggiungere le righe di codice che segue:

  1. Per selezionare l’ultima voce in una colonna, è sufficiente aggiungere la riga di codice seguente:

Range("A5").End(xlDown).Select

Nota: invece di Range ( “A5”), è anche possibile utilizzare Range ( “A1”), Range ( “A2”), ecc Questa riga di codice equivale a premere END + freccia GIÙ.

Risultato quando si fa clic sul pulsante di comando sul foglio:

Last Entry

  1. Per selezionare l’intervallo da cella A5 fino all’ultima voce nella colonna, aggiungere la seguente riga di codice:

Range(Range("A5"), Range("A5").End(xlDown)).Select

Risultato quando si fa clic sul pulsante di comando sul foglio:

From Cell A5 to Last Entry 3. To select the range from the Active Cell to the last entry in the column, simply replace Range(“A5”) with ActiveCell.

Range(ActiveCell, ActiveCell.End(xlDown)).Select

Risultato quando si seleziona la cella A2 e fare clic sul pulsante di comando sul foglio:

From Active Cell to Last Entry Result

Nota: è possibile utilizzare le costanti xlUp, xlToRight e xlToLeft a muoversi in altre direzioni. In questo modo è possibile selezionare un intervallo dalla cella attiva per l’ultima voce di fila.