Selezionare fino alla fine di una colonna in una macro

Gian ha una macro in cui deve selezionare un intervallo di celle, dalla quinta riga di una colonna all’ultimo valore nella colonna. Potrebbero esserci celle vuote nell’intervallo, ma Gian deve selezionare tutto fino all’ultima cella utilizzata nella colonna.

La selezione dell’ultima cella utilizzata in una colonna è abbastanza semplice: si utilizza il metodo .End per individuare la cella. Ad esempio, puoi utilizzare la seguente singola riga per selezionare l’intervallo desiderato nella colonna A, da A5 (la quinta riga, come indicato da Gian) fino all’ultima cella utilizzata:

Range("A5",Range("A" & Rows.Count).End(xlUp)).Select

La proprietà .Count quando viene utilizzata con la collezione Rows restituisce un valore numerico che rappresenta il numero totale di righe nel foglio di lavoro. Facendo un ulteriore passo avanti e applicando il metodo .End si specifica che l’intervallo restituito dovrebbe essere solo l’ultima cella utilizzata nella colonna. Si noti che la riga della macro presuppone che si desideri selezionare le celle nella colonna A. È molto probabile, ovviamente, che si desideri selezionare le celle in una colonna diversa. Il modo migliore per adattarla è semplicemente assicurarsi che la parte “A” della macro sia una variabile:

sColWanted = "A"
Range(sColWanted & "5",Range(sColWanted & Rows.Count).End(xlUp)).Select

Potresti persino racchiudere le righe in una subroutine che potrebbe quindi essere chiamata da un’altra macro:

Sub SelectCells(sCol As String)
    Range(sCol & "5",Range(sCol & Rows.Count).End(xlUp)).Select
End Sub

L’unico difetto dell’approccio sopra descritto è che esso non selezionerà nulla se l’ultima cella utilizzata è in una riga nascosta (ad esempio perché filtrata).

La seguente macro ovvierà all’inconveniente: