Jak liczyć wiersze za pomocą VBA w Excelu (5 podejść)

Hugh West

16-10-2023 Makra & Excel VBA
  • Udostępnij To
Hugh West

Dzisiaj pokażę Ci jak można liczyć rzędy za pomocą VBA w Excelu z dowolnego zestawu danych. Pokażę Ci jak można zliczać wiersze z określonego zakresu, z wybranego zakresu, poprzez dopasowanie określonego kryterium, poprzez dopasowanie określonej wartości tekstowej oraz poprzez wykluczenie pustych komórek.

Pobierz Zeszyt ćwiczeń

Licz wiersze za pomocą VBA.xlsm

5 metod liczenia wierszy za pomocą VBA w Excelu

Mamy tu zbiór danych z Nazwiskami niektórych uczniów i ich Znakami w języku angielskim w szkole o nazwie Sunflower Kindergarten.

Dzisiaj naszym celem jest policzenie całkowitej liczby wierszy przy użyciu Kod VBA .

1. użycie kodu VBA do policzenia wierszy określonego zakresu

⧪ Krok 1:

➤ Naciśnij ALT+F11 na klawiaturze. Okno VBA otworzy się.

⧪ Krok 2:

➤ Idź do Wkładka zakładka w VBA okno.

➤ Z dostępnych opcji wybierz Moduł .

I

⧪ Krok 3:

➤ Pojawi się nowe okno modułu o nazwie "Moduł 1" otworzy się.

➤ Wprowadzić następujące elementy VBA kod w module.

Kod: 

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

Uwagi:

  • Ten kod produkuje Makro o nazwie Count_Rows .
  • Na stronie 3. linia kodu zawiera podany zakres " B4:C13″. Chcę policzyć liczbę wierszy w tym zakresie.
  • Używasz swojego.

⧪ Krok 4:

➤ Zapisz skoroszyt jako Skoroszyt z obsługą makr w programie Excel .

⧪ Krok 5:

➤ Wróć do swojego arkusza i naciśnij przycisk ALT+F8 na swojej klawiaturze.

➤ Pojawi się okno dialogowe o nazwie Makro Otworzy się. Wybierz Count_Rows ( Nazwa Makro) i kliknąć na Uruchom .

⧪ Krok 6:

➤ Pojawi się małe okienko z informacją o liczbie całkowitych wierszy ( 10 w tym przypadku).

➤ Kliknij OK aby wyjść.

Read More: Excel VBA do liczenia wierszy z danymi

2) Uruchom kod VBA programu Excel, aby policzyć wiersze wybranego zakresu

W poprzedniej metodzie liczyliśmy liczbę wierszy określonego zakresu ( B4:C13 ).

Ale możemy też użyć VBA kod do zliczania liczby wierszy w dowolnie wybranym zakresie według naszego życzenia.

Wszystkie kroki są takie same jak Metoda 1 ( Krok 1-6 ).

⧪ Just in Krok 3 , zamiast poprzedniego kodu wstaw ten kod:

Kod: 

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

Uwaga:

  • Ten kod tworzy moduł o nazwie Count_Selected_Rows .

⧪ A w Krok 5 Przed uruchomieniem kodu należy najpierw wybrać zakres. Tutaj wybrałem cały mój zestaw danych (Bez Nagłówki kolumn ).

⧪ Następnie naciśnij ALT+F8 , wybrany Count_Selected_Rows , i kliknij na Uruchom .

Zostanie wyświetlone okno komunikatu pokazujące całkowitą liczbę wierszy w wybranym zakresie ( 10 w tym przypadku).

3. wstawianie kodu VBA do liczenia wierszy z kryteriami w Excelu

Możemy również użyć VBA kod do zliczania całkowitej liczby wierszy, które zachowują określone kryterium.

Na przykład, stwórzmy Makro który zliczy liczbę uczniów, którzy uzyskali oceny mniejsze niż 40.

Wszystkie kroki są również takie same jak Metoda 1 ( Krok 1-6 ).

⧪ Just in Krok 3 , zmienić VBA kod do tego:

Kod: 

 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

Uwaga:

  • Ten kod tworzy moduł o nazwie Count_Rows_with_Criteria .
  • W linii 6 , użyliśmy "<40" bo takie kryterium stosujemy. Zmieniasz je w zależności od potrzeby.

⧪ A w Krok 5 Przed uruchomieniem kodu należy wybrać zakres komórek z kryteriami. Tutaj wybrałem tylko kolumnę C ( C4:C13 ), bo tam leży kryterium.

⧪ Następnie naciśnij ALT+F8 , wybrany Count_Rows_with_Criteria , i kliknij na Uruchom .

Pojawi się okno z komunikatem pokazującym całkowitą liczbę wierszy, które spełniają Twoje kryterium ( 3 w tym przypadku).

Podobne lektury

  • Excel Policz widoczne wiersze (Formuła i kod VBA)
  • Jak Excel liczy wiersze z wartością (8 sposobów)

4. osadzenie kodu VBA do zliczania wierszy posiadających określoną wartość tekstową

Możesz również użyć VBA kod do zliczania liczby wierszy, które zawierają określoną wartość tekstową.

Spójrz na ten nowy zestaw danych.

Mamy Book Records niektórych książek księgarni o nazwie Martin Bookstore.

Stwórzmy Makro który policzy liczbę książek mających określony tekst z tego zestawu danych.

Wszystkie kroki są również takie same jak Metoda 1 ( Krok 1-6 ).

⧪ Just in Krok 3 , zmienić VBA kod do tego:

Kod: 

 Sub Count_Rows_with_Specific_Text() Dim Count As Integer Count = 0 Dim Text As String Text = InputBox("Wprowadź wartość tekstową: ") 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.

Uwaga:

  • Ten kod tworzy moduł o nazwie Count_Rows_with_Specific_Text .

⧪ A w Krok 5 Przed uruchomieniem kodu należy wybrać zakres komórek z wartościami tekstowymi. Tutaj wybrałem zakres B4:B13 ( Nazwa Książki ).

⧪ Następnie naciśnij ALT+F8 , wybrany Count_Rows_with_Specific_Text , i kliknij na Uruchom .

⧪ An Pole wprowadzania danych pojawi się prośba o wprowadzenie konkretnej wartości tekstowej, którą chcesz dopasować.

Na potrzeby tego przykładu wpisałem ją jako "historia" .

Na koniec pojawi się okno komunikatu pokazujące całkowitą liczbę wierszy, które zawierają określony tekst ( 3 w tym przypadku).

Read More: Jak liczyć wiersze za pomocą tekstu w programie Excel

5. liczenie wierszy z pustymi komórkami za pomocą VBA w Excelu

Na koniec opracujemy Makro, które zliczy całkowitą liczbę wierszy z wyłączeniem pustych komórek z zestawu danych.

Spójrz na ten nowy zestaw danych.

Mamy Marks niektórych kandydatów w teście rekrutacyjnym firmy o nazwie APEX group.

Ale niestety część kandydatów nie mogła pojawić się na teście i w miejscu ich ocen są puste komórki.

Opracujmy Makro, które zliczy całkowitą liczbę wierszy z wyłączeniem pustych komórek.

To znaczy, ilu kandydatów pojawiło się na teście.

Wszystkie kroki są takie same jak Metoda 1 ( Krok 1-6 ).

⧪ Just in Krok 3 , wpisz to VBA kod w miejsce wcześniejszego:

Kod: 

 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

Uwaga:

  • Ten kod tworzy moduł o nazwie Count_Rows_with_Blank_Cells .

⧪ W Krok 5 Przed uruchomieniem kodu należy wybrać zakres komórek z pustymi komórkami. Tutaj wybrałem zakres C4:C13 ( Znaki w Tes t).

⧪ Następnie naciśnij ALT+F8 , wybrany Count_Rows_with_Blank_Cells , i kliknij na Uruchom .

Pojawi się okno komunikatu pokazujące całkowitą liczbę wierszy bez pustych komórek ( 7 w tym przypadku).

Wniosek

Używając tych metod, możesz policzyć wiersze za pomocą VBA z zestawu danych w Excelu odpowiadających różnym warunkom. Masz jakieś problemy, zapytaj nas.

Poprzedni post Jak używać COUNTIF dla zakresu dat w Excelu (6 odpowiednich podejść)
Następny post Jak używać formuły INDEX MATCH w Excelu (9 przykładów)

Hugh West jest bardzo doświadczonym trenerem i analitykiem Excela z ponad 10-letnim doświadczeniem w branży. Posiada tytuł licencjata w dziedzinie rachunkowości i finansów oraz tytuł magistra administracji biznesowej. Hugh ma pasję do nauczania i opracował unikalne podejście do nauczania, które jest łatwe do naśladowania i zrozumienia. Jego specjalistyczna wiedza na temat programu Excel pomogła tysiącom studentów i profesjonalistów na całym świecie doskonalić swoje umiejętności i osiągać doskonałe wyniki w karierze. Za pośrednictwem swojego bloga Hugh dzieli się swoją wiedzą ze światem, oferując bezpłatne samouczki programu Excel i szkolenia online, aby pomóc osobom indywidualnym i firmom w pełni wykorzystać swój potencjał.