Conteggio righe VBA di Excel
Nella programmazione VBA anche il riferimento alle righe è molto importante e il conteggio delle righe è una delle cose di cui devi essere consapevole quando si tratta di codifica VBA. C'è molto valore che possiamo ottenere se riusciamo a capire l'importanza di contare le righe che hanno dati nel foglio di lavoro. In questo articolo, ti mostreremo come contare le righe usando la codifica VBA.
Come contare le righe in VBA?
Esempio 1
Per contare le righe, dobbiamo usare l'oggetto RANGE, in questo oggetto, dobbiamo usare l'oggetto ROWS, e in questo, dobbiamo usare la proprietà COUNT.
Ad esempio, guarda i dati seguenti in Excel.
Dai dati sopra, dobbiamo identificare quante righe ci sono dall'intervallo A1 ad A8. Quindi prima definisci la variabile come numero intero per memorizzare il numero di righe.
Codice:
Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer End Sub
Per questa variabile, assegneremo i numeri di riga, quindi inserisci il nome della variabile e il segno di uguale.
Codice:
Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = End Sub
Dobbiamo fornire un intervallo di celle, quindi apri l'oggetto RANGE e fornisci l'intervallo come "A1: A8". Codice:
Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8") End Sub
Una volta fornito l'intervallo, dobbiamo contare il numero di righe, quindi scegli la proprietà ROWS dell'oggetto RANGE.
Nella proprietà ROWS dell'oggetto RANGE stiamo contando un numero di righe, quindi scegli la proprietà "COUNT" ora.
Ora nella finestra del messaggio mostra il valore della variabile.
Codice:
Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8"). Rows.Count MsgBox No_Of_Rows End Sub
Ora esegui il codice e vedi il conteggio delle righe dell'intervallo di celle fornito.
Ok, ci sono 8 righe fornite per l'intervallo, quindi il conteggio delle righe è 8 nella finestra del messaggio.
Esempio n. 2
Abbiamo anche altri modi per contare le righe, per il metodo sopra, dobbiamo fornire un intervallo di celle, e in questo intervallo di celle, mostra il numero di righe selezionate.
Ma immagina lo scenario in cui dobbiamo trovare l'ultimo utilizzato di qualsiasi colonna, ad esempio, prendere gli stessi dati visti sopra.
Per passare all'ultima cella utilizzata dalla cella A1, premere il tasto di scelta rapida Excel "Ctrl + Freccia giù" , quindi ti porterà all'ultima cella prima della cella vuota.
In primo luogo, fornire la cella come A1 utilizzando l'oggetto RANGE.
Codice:
Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1") MsgBox No_Of_Rows End Sub
Da questa cella, dobbiamo spostarci verso il basso e nel foglio di lavoro usiamo Ctrl + Freccia giù, ma in VBA usiamo la proprietà END, scegli questa proprietà e apri la parentesi per vedere le opzioni.
Guarda lì con il tasto END possiamo vedere tutti i tasti freccia come "xlDown, xlToLeft, xlToRight e xlUp" poiché dobbiamo spostarci verso il basso usando l'opzione "xlDown".
Codice:
Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1"). End (xlDown) MsgBox No_Of_Rows End Sub
Questo ti porterà all'ultima cella prima di qualsiasi interruzione, ora nella cella attiva abbiamo bisogno del numero di riga, quindi usa la proprietà ROW.
Codice:
Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1"). End (xlDown) .Row MsgBox No_Of_Rows End Sub
Ok fatto. Ora, questo mostrerà il numero dell'ultima riga e quello sarà il conteggio di un numero di righe.
Quindi, nelle righe, abbiamo i dati.
Esempio n. 3: trova l'ultima riga utilizzata
Trovare l'ultima riga utilizzata è così importante per decidere quante volte deve essere eseguito il ciclo e anche nel metodo sopra l'ultima riga si ferma per selezionare se c'è una cella del punto di interruzione, quindi in questo metodo possiamo trovare l'ultima riga usata senza alcun problema.
Apri proprietà CELL.
Codice:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (MsgBox No_Of_Rows End Sub
Ora dobbiamo menzionare il numero di riga per iniziare, il problema qui è che non siamo sicuri di quante righe di dati abbiamo, quindi quello che possiamo fare è andare subito all'ultima riga del foglio di lavoro, per questa menzione RIGHE .COUNT proprietà.
Codice:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, MsgBox No_Of_Rows End Sub
Successivamente, dobbiamo menzionare in quale colonna stiamo trovando l'ultima riga utilizzata, quindi in questo caso, stiamo trovando nella prima colonna, quindi menziona 1.
Codice:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) MsgBox No_Of_Rows End Sub
In questo momento, ti porterà all'ultima cella della prima colonna, da lì in poi dobbiamo spostarci verso l'alto per andare all'ultima cella utilizzata, quindi usa la proprietà End (xlUp).
Codice:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) .End (xlUp) MsgBox No_Of_Rows End Sub
Quindi questo ti porterà all'ultima cella utilizzata della colonna 1, e in questa cella, abbiamo bisogno del numero di riga, quindi usa la proprietà ROW per ottenere il numero di riga.
Codice:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) .End (xlUp) .Row MsgBox No_Of_Rows End Sub
Cose da ricordare
- COUNT darà un numero di righe nel foglio di lavoro.
- Se si dispone di un intervallo, verrà fornito un numero di righe selezionate nell'intervallo.
- La proprietà ROW restituirà il numero di riga della cella attiva.
