Seleziona un'intera colonna meno la riga di intestazione in una macro di Excel

8

Come potrei accedere a un intervallo che corrisponde a un'intera colonna a partire dalla riga 2 (c'è una riga di intestazione)?

La fine della selezione dovrebbe essere l'ultima cella non vuota nella colonna.

microsoft-excel macros vba

— Dave
fonte

5

Vedi l'articolo del supporto Microsoft Come selezionare celle / intervalli usando le procedure di Visual Basic in Excel , n. 19 ( Come selezionare un intero intervallo di celle contigue in una colonna ).

— Peter Mortensen
fonte

Ciò seleziona oltre un milione di righe nella cartella di lavoro che sto usando anche se tutto oltre 300 o giù di lì è vuoto.

— Dave,

che ne dite di: Sub LastCellBeforeBlankInColumn () / Range ("A1"). End (xldown) .Seleziona / End Sub

2

Prova questo:

Range(Range("A2"),Range("A2").End(xldown)).Select

o questo:

Range(Range(Cells(2, 1), Cells(2, 1)), Range(Cells(65535, 1), Cells(65535, 1)).End(xlUp)).Select

— Michael Galos
fonte

2

Facendo riferimento a questa risposta SO , l'unico metodo sicuro è il .find()metodo.
Tutti gli altri metodi possono dare risultati errati se in precedenza hai eliminato alcune celle.

Esempio per ottenere le ultime celle

Lastrow =  Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
Lastcol =  Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column

E una risposta specifica alla tua domanda (supponendo che i tuoi dati siano nella colonna 2, a partire dalla riga 2)

Range([B2], [B:B].Find("*", [B1], , , xlByRows, xlPrevious)).select

inserisci qui la descrizione dell'immagine

— nixda
fonte

1

È possibile utilizzare le scorciatoie da tastiera di Excel. Prova Ctrl+ Home.

Questo porterebbe alla cella A1 (se non hai utilizzato il riquadro di blocco). Scendi una cella verso il basso e quindi usa i pulsanti Ctrl+ Shift+ Down arrowper selezionare fino all'ultima riga inserita.

Se è necessario selezionare il valore della colonna, utilizzare il right arrowpulsante anziché il down arrowpulsante.

— Peter Mortensen
fonte

0

Questo pezzo di codice fa una media di tutto tranne l'intestazione con l'intestazione nella cella "B1"

Dim GG as Long
GG = Application.WorksheetFunction.Average(ActiveSheet.Range("B2", Range("B2").End(xlDown)))

— RSF
fonte