Come contare le righe con VBA in Excel (5 approcci)

Hugh West

16-10-2023 Macro e VBA di Excel
  • Condividi Questo
Hugh West

Oggi vi mostrerò come si possono contare le righe con VBA Vi mostrerò come contare le righe da un intervallo specifico, da un intervallo selezionato, in base a un criterio specifico, in base a un valore di testo specifico e escludendo le celle vuote.

Scarica il quaderno di esercizi

Contare le righe con VBA.xlsm

5 metodi per contare le righe con VBA in Excel

Qui abbiamo un set di dati con i nomi di alcuni studenti e i loro voti in inglese in una scuola chiamata Sunflower Kindergarten.

Oggi il nostro obiettivo è quello di contare il numero totale di righe utilizzando un metodo Codice VBA .

1. Utilizzare il codice VBA per contare le righe di un intervallo specifico

⧪ Fase 1:

➤ Stampa ALT+F11 sulla tastiera. Finestra VBA si aprirà.

⧪ Fase 2:

➤ Vai al sito Inserire nella scheda VBA finestra.

➤ Tra le opzioni disponibili, selezionare Modulo .

I

⧪ Fase 3:

➤ Una nuova finestra del modulo chiamata "Modulo 1" si aprirà.

➤ Inserire quanto segue VBA nel modulo.

Codice: 

 Sub Count_Rows() Dim rng As Range Set rng = Range("B4:C13") MsgBox rng.Rows.Count End Sub

Note:

  • Questo codice produce un Macro chiamato Conta_righe .
  • Il 3a del codice contiene l'intervallo specificato " B4:C13″. Voglio contare il numero di righe in questo intervallo.
  • Usate il vostro.

⧪ Passo 4:

➤ Salvate la cartella di lavoro come Cartella di lavoro Excel abilitata alle macro .

⧪ Passo 5:

➤ Tornare al foglio di lavoro e premere ALT+F8 sulla tastiera.

➤ Una finestra di dialogo chiamata Macro Si aprirà la finestra di dialogo. Selezionare Count_Rows ( Il nome dell'elemento Macro) e fare clic su Correre .

⧪ Passo 6:

➤ Verrà visualizzata una piccola casella di messaggio che mostra il numero di righe totali ( 10 in questo caso).

➤ Cliccare OK per uscire.

Per saperne di più: Excel VBA per contare le righe con i dati

2. Eseguire il codice VBA di Excel per contare le righe di un intervallo selezionato

Nel metodo precedente, abbiamo contato il numero di righe di un intervallo specifico ( B4:C13 ).

Ma possiamo anche utilizzare un elemento VBA per contare il numero di righe in qualsiasi intervallo selezionato, secondo i nostri desideri.

I passaggi sono tutti uguali a Metodo 1 ( Fase 1-6 ).

⧪ Appena arrivato Passo 3 Al posto del codice precedente, inserire questo codice:

Codice: 

 Sub Count_Selected_Rows() Dim rng As Range Set rng = Selection MsgBox rng.Rows.Count End Sub

Nota:

  • Questo codice crea un modulo chiamato Conta_righe_selezionate .

⧪ E in Passo 5 prima di eseguire il codice, selezionare un intervallo. In questo caso ho selezionato l'intero set di dati (senza l'elemento Intestazioni di colonna ).

⧪ Quindi premere ALT+F8 , selezionare Conta_righe_selezionate e fare clic su Correre .

Verrà visualizzata una casella di messaggio che mostra il numero totale di righe nell'intervallo selezionato ( 10 in questo caso).

3. Inserire il codice VBA per contare le righe con i criteri in Excel

Si può anche utilizzare un elemento VBA per contare il numero totale di righe che mantengono un criterio specifico.

Per esempio, creiamo un oggetto Macro che conterà il numero di studenti che hanno ottenuto voti inferiori a 40.

Anche i passaggi sono tutti uguali a Metodo 1 ( Fase 1-6 ).

⧪ Appena arrivato Passo 3 , cambiare il VBA codice a questo:

Codice: 

 Sub Count_Rows_with_Criteria() Dim Count As Integer Count = 0 For i = 1 To Selection.Rows.Count If Selection.Cells(i, 1) <40 Then Count = Count + 1 End If Next i MsgBox Count End Sub

Nota:

  • Questo codice crea un modulo chiamato Conta_righe_con_Criteri .
  • In linea 6 , abbiamo utilizzato "<40" perché questo è il criterio che stiamo usando. Cambiatelo in base alle vostre esigenze.

⧪ E in Passo 5 Prima di eseguire il codice, selezionare l'intervallo di celle con i criteri. In questo caso ho selezionato solo la colonna C ( C4:C13 ) perché il criterio si trova lì.

⧪ Quindi premere ALT+F8 , selezionare Conta_righe_con_Criteri e fare clic su Correre .

Verrà visualizzato un messaggio che mostra il numero totale di righe che soddisfano il criterio ( 3 in questo caso).

Letture simili

  • Excel conta le righe visibili (formula e codice VBA)
  • Come Excel conta le righe con il valore (8 modi)

4. Incorporare il codice VBA per contare le righe con un valore di testo specifico

Si può anche utilizzare un VBA per contare il numero di righe che contengono uno specifico valore di testo.

Guardate questa nuova serie di dati.

Abbiamo il Record del libro di alcuni libri di una libreria chiamata Martin Bookstore.

Creiamo un file Macro che conterà il numero di libri che contengono un testo specifico da questo insieme di dati.

Anche i passaggi sono tutti uguali a Metodo 1 ( Fase 1-6 ).

⧪ Appena arrivato Passo 3 , cambiare il VBA codice a questo:

Codice: 

 Sub Count_Rows_with_Specific_Text() Dim Count As Integer Count = 0 Dim Text As String Text = InputBox("Inserire il valore del testo: ") LText = LCase(Text) For i = 1 To Selection.Rows.Count Words = Split(Selection.Cells(i, 1)) For Each j In Words LWord = LCase(j) If LText = LWord Then Count = Count + 1 End If Next j Next i MsgBox Count End Sub

Nota:

  • Questo codice crea un modulo chiamato Conta_righe_con_testo_specifico .

⧪ E in Passo 5 Prima di eseguire il codice, selezionare l'intervallo di celle con i valori del testo. Qui ho selezionato l'intervallo B4:B13 ( Nome dei libri ).

⧪ Quindi premere ALT+F8 , selezionare Conta_righe_con_testo_specifico e fare clic su Correre .

⧪ An Casella di input che chiederà di inserire il valore di testo specifico che si desidera abbinare.

Per questo esempio, l'ho inserito come "storia" .

Infine, verrà visualizzata una casella di messaggio che mostra il numero totale di righe che contengono il testo specifico ( 3 in questo caso).

Per saperne di più: Come contare le righe con il testo in Excel

5. Contare righe con celle vuote usando VBA in Excel

Infine, svilupperemo una macro per contare il numero totale di righe, escluse le celle vuote, di un set di dati.

Guardate questa nuova serie di dati.

Abbiamo il Marchi di alcuni candidati in un test di reclutamento di una società chiamata APEX group.

Purtroppo, però, alcuni candidati non hanno potuto presentarsi al test e al posto dei loro voti ci sono delle celle vuote.

Sviluppiamo una macro che conti il numero totale di righe escluse le celle vuote.

Cioè, quanti candidati si sono presentati al test.

I passaggi sono tutti uguali a Metodo 1 ( Fase 1-6 ).

⧪ Appena arrivato Passo 3 , inserire questo VBA al posto di quello precedente:

Codice: 

 Sub Count_Rows_with_Blank_Cells() Dim Count As Integer Count = 0 For i = 1 To Selection.Rows.Count If Selection.Cells(i, 1) "" Then Count = Count + 1 End If Next i MsgBox Count End Sub

Nota:

  • Questo codice crea un modulo chiamato Conta_righe_con_celle_vuote .

⧪ In Passo 5 Prima di eseguire il codice, selezionare l'intervallo di celle con le celle vuote. Qui ho selezionato l'intervallo C4:C13 ( Segni nel Tes t).

⧪ Quindi premere ALT+F8 , selezionare Conta_righe_con_celle_vuote e fare clic su Correre .

Verrà visualizzata una casella di messaggio che mostra il numero totale di righe, escluse le celle vuote ( 7 in questo caso).

Conclusione

Utilizzando questi metodi, è possibile contare le righe con VBA da un set di dati in Excel che soddisfa varie condizioni. Se avete qualche problema, non esitate a chiedercelo.

Messaggio precedente Come usare COUNTIF per l'intervallo di date in Excel (6 approcci adatti)
Prossimo post Come utilizzare la formula INDEX MATCH in Excel (9 esempi)

Hugh West è un istruttore e analista di Excel di grande esperienza con oltre 10 anni di esperienza nel settore. Ha conseguito una laurea in Contabilità e Finanza e un Master in Economia Aziendale. Hugh ha una passione per l'insegnamento e ha sviluppato un approccio didattico unico che è facile da seguire e capire. La sua conoscenza approfondita di Excel ha aiutato migliaia di studenti e professionisti in tutto il mondo a migliorare le proprie competenze ed eccellere nella propria carriera. Attraverso il suo blog, Hugh condivide le sue conoscenze con il mondo, offrendo esercitazioni gratuite su Excel e formazione online per aiutare le persone e le aziende a raggiungere il loro pieno potenziale.