Ottenere il numero di celle piene in una colonna (VBA)

Question

Sto solo iniziando con "la programmazione" di VBA su Excel per automatizzare alcune cose manuali anoying ... quindi questo suonerà probabilmente come una domanda nooby totale, anche se io ' Non sono molto familiare agli oggetti VBA e così via.

Quindi la mia versione: C'è un modo più elegante per scoprire la lunghezza di una colonna? La mia prima colonna è un indice, con numeri in aumento monotono, che termina in un punto non prevedibile. Ora voglio scoprire quante voci ha questa colonna. C'è un modo migliore di iterare questo e guardare una cella vuota?

Greetz, Poeschlorn

Answer 1

Un modo è quello di: (Non si presume colonna di indice inizia A1)

MsgBox Range("A1").End(xlDown).Row 

che è alla ricerca per la cella non occupato 1 ° verso il basso da A1 e mostrando il suo numero di riga ordinali .

È possibile selezionare la cella successiva vuota con:

Range("A1").End(xlDown).Offset(1, 0).Select 

Se avete bisogno alla fine di un set di dati (compresi gli spazi), provare: Range ("A: A"). SpecialCells (xlLastCell) .Row

Answer 2

È inoltre possibile utilizzare

Cells.CurrentRegion 

di darvi una gamma che rappresenta i limiti dei dati sul foglio attivo corrente

Msdn dice sul tema

Restituisce un oggetto Range che rappresenta l'area corrente. L'attuale regione è un intervallo limitato da qualsiasi combinazione di righe vuote e colonne vuote. Sola lettura.

Quindi è possibile determinare il numero di colonne tramite

Cells.CurrentRegion.Columns.Count 

e contare fila via

Cells.CurrentRegion.Rows.Count 

Answer 3

Si può anche utilizzare:

UsedRange.Rows.Count 

Answer 4

Se si vuole trovare l'ultima cella popolata in una particolare colonna, il metodo migliore è:

Range("A" & Rows.Count).End(xlUp).Row 

Questo codice utilizza l'ultima cella nella tutta la colonna (65536 per Excel 2003, 1048576 nelle versioni successive), e poi trovare la prima cella popolata sopra di esso. Questo ha la capacità di ignorare le "interruzioni" nei tuoi dati e trovare l'ultima riga vera.

Answer 5

Per Usa l'ultima colonna riempita la seguente:

lastColumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column