Spis treści
Jeśli szukasz niektórych najprostszych sposobów na liczenie wierszy z danymi w kolumnie za pomocą programu Excel VBA , to jesteś we właściwym miejscu. Więc zacznijmy od naszego głównego artykułu, aby dowiedzieć się więcej o liczeniu wierszy z danymi w kolumnie łatwo.
Pobierz Workbook
Count Rows with Data.xlsm9 sposobów na liczenie wierszy z danymi w kolumnie przy użyciu Excel VBA
Mamy tu następujący zbiór danych zawierający rekordy sprzedaży pewnej firmy. Użyjemy różnych kolumn z danymi z tego zbioru danych, aby wyjaśnić różne sposoby liczenia wierszy na podstawie danych kolumny.
Użyliśmy Microsoft Excel 365 wersja tutaj, możesz użyć dowolnych innych wersji według swojej wygody.
Metoda-1: Użycie właściwości VBA Rows.Count do liczenia wierszy z danymi w kolumnie w Excelu
Tutaj będziemy liczyć wiersze z Sprzedaż kolumna z wartościami sprzedaży dla produktów przy użyciu Właściwość Rows. Count z VBA .
Krok-01 :
➤ Idź do Deweloper Tab>> Visual Basic Opcja.
Następnie. Edytor Visual Basic otworzy się.
➤ Idź do Wkładka Tab>> Moduł Opcja.
Po tym, a Moduł zostanie utworzony.
Step-02 :
➤ Napisz następujący kod
Sub countrows1() Dim X As Integer X = Range("D4:D11").Rows.Count MsgBox "Liczba użytych wierszy to " & X End Sub Tutaj zadeklarowaliśmy X jako Integer , "D4:D11" jest zakresem, na podstawie którego kolumny zliczamy wiersze, a na końcu przypisaliśmy numer wiersza do X .
Pojawi się okienko komunikatu ( MsgBox ) da nam wynik w postaci całkowitej liczby wierszy.
➤ Prasa F5 .
Następnie otrzymasz całkowitą liczbę wierszy z danymi jako 8 z Sprzedaż kolumny w oknie wiadomości.
Read More: Excel VBA do liczenia wierszy z danymi (4 przykłady)
Metoda-2: Użycie właściwości End do zliczania wierszy z danymi w kolumnie
W tej sekcji będziemy używać Nieruchomość końcowa z VBA aby zliczyć wiersze z wartościami sprzedaży Sprzedaż kolumna.
Kroki :
➤ Follow Krok-01 z Metoda-1 .
➤ Napisz następujący kod
Sub countrows2() Dim X As Integer X = Range("D4").End(xlDown).Row MsgBox "Liczba wykorzystanych wierszy to " & (X - 3) End Sub Tutaj zadeklarowaliśmy X jako Integer , "D4" jest wartością początkową zakresu, na podstawie którego kolumny zliczamy wiersze, a na końcu przypisaliśmy numer wiersza do X . X da nam numer ostatniego użytego wiersza, a nie całkowitą liczbę użytych wierszy w tej kolumnie. Tak więc, aby uzyskać całkowitą liczbę wierszy, odjęliśmy 3 ( Rząd początkowy Numer-1 = 4-1 = 3 ) od X .
Pojawi się okienko komunikatu ( MsgBox ) pojawi się informacja o całkowitej liczbie wierszy.
➤ Prasa F5 .
Po tym, będziesz miał 8 jako całkowita liczba wierszy w Sprzedaż kolumny w oknie wiadomości.
Read More: Jak liczyć wiersze z danymi w Excelu (4 formuły)
Metoda-3: Użycie kombinacji właściwości Rows.Count i właściwości End
Tutaj wykorzystamy kombinację dwóch właściwości VBA jak Właściwość Rows. Count i Nieruchomość końcowa razem, aby policzyć wszystkie wiersze Sprzedaż kolumna.
Kroki :
➤ Follow Krok-01 z Metoda-1 .
➤ Napisz następujący kod
Sub countrows3() Dim X As Integer X = Cells(Rows.Count, 4).End(xlUp).Row MsgBox "Liczba użytych wierszy to " & (X - 3) End Sub Tutaj zadeklarowaliśmy X jako Integer , 4 w (Rz. Licz., 4) jest dla Sprzedaż na podstawie której kolumny zliczamy wiersze i na koniec przypisaliśmy numer wiersza do X .
X zwróci numer ostatnio użytego wiersza, a nie całkowitą liczbę użytych wierszy w tej kolumnie. Tak więc, aby uzyskać całkowitą liczbę wierszy, odjęliśmy 3 ( Rząd początkowy Numer-1 = 4-1 = 3 ) od X .
Pojawi się okienko komunikatu ( MsgBox ) pojawi się informacja o całkowitej liczbie wierszy.
➤ Prasa F5 .
Następnie otrzymamy 8 jako całkowita liczba wierszy w Sprzedaż kolumny w oknie wiadomości.
Related Content: Jak liczyć wiersze z wieloma kryteriami w Excelu (6 metod)
Metoda-4: Użycie właściwości wyboru VBA do liczenia wierszy z danymi w kolumnie w Excelu
Możesz użyć Właściwość wyboru również do zliczania całkowitych wierszy na podstawie danych z Sprzedaż kolumna.
Kroki :
➤ Follow Krok-01 z Metoda-1 .
➤ Napisz następujący kod
Sub countrows4() Dim X As Integer X = Selection.Rows.Count MsgBox "Number of used rows is " & X End Sub Tutaj zadeklarowaliśmy X jako Integer w tym miejscu zostaną zliczone wiersze wybranego zakresu, a na koniec przypisaliśmy numer wiersza do X .
Pojawi się okienko komunikatu ( MsgBox ) da nam wynik w postaci całkowitej liczby wierszy.
Następnie musimy wrócić do głównego arkusza.
➤ Wybierz zakres Sprzedaż a następnie przejdź do Deweloper Tab>> Makra Opcja.
Następnie. Makro pojawi się okno dialogowe.
➤ Wybierz opcję Nazwa makra liczniki4 , a następnie naciśnij przycisk Uruchom opcja.
Na koniec otrzymamy następujące okno z komunikatem "Liczba użytych wierszy wynosi 8" .
Czytaj więcej: Jak liczyć wiersze za pomocą VBA w Excelu (5 podejść)
Metoda-5: Policz wiersze z danymi w kolumnie używając funkcji FIND
Tutaj użyjemy Funkcja FIND aby policzyć wiersze z łańcuchami tekstowymi w Region kolumna.
Kroki :
➤ Follow Krok-01 z Metoda-1 .
➤ Napisz następujący kod
Sub CountRows5() Dim X As Integer Dim rng As Range Set rng = Range("C4:C11") With rng X = .Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious).Row End With MsgBox "Number of used rows is " & (X - 3) End Sub. Tutaj zadeklarowaliśmy X jako Integer , rng jako Zakres , "C4:C11" to zakres, na podstawie którego zliczamy wiersze w kolumnie, a na końcu przypisaliśmy go do rng .
Wykorzystaliśmy Z aby uniknąć powtórzenia użycia nazwy obiektu jak np. rng .
Używanie Funkcja FIND , X da nam numer ostatniego użytego wiersza, a nie całkowitą liczbę użytych wierszy w tej kolumnie. Tak więc, aby uzyskać całkowitą liczbę wierszy, odjęliśmy 3 ( Rząd początkowy Numer-1 = 4-1 = 3 ) od X .
Pojawi się okienko komunikatu ( MsgBox ) pojawi się informacja o całkowitej liczbie wierszy.
➤ Prasa F5 .
Wreszcie, będziesz miał 8 jako całkowita liczba wierszy w Sprzedaż kolumny w oknie wiadomości.
Related Content: Excel Count Visible Rows (Formula and VBA Code)
Podobne Lektury:
- Licz wiersze w grupie z tabelą przestawną w Excelu (Przewodnik krok po kroku)
- Excel VBA: Liczenie wierszy w arkuszu (5 przykładów)
Metoda-6: Liczenie niepustych wierszy z danymi w kolumnie przy użyciu VBA
Tutaj mamy kilka pustych komórek w Sprzedaż (usunęliśmy niektóre wartości dla tej metody) i używając kolumny VBA kod będziemy liczyć tylko całkowitą liczbę wierszy z wartościami.
Kroki :
➤ Follow Krok-01 z Metoda-1 .
➤ Napisz następujący kod
Sub countrows6() Dim X As Long Dim Y, rng As Range Set rng = Range("D4:D11") With rng For Each Y In .Rows If Application.CountA(Y)> 0 Then X = X + 1 End If Next End With MsgBox "Number of used rows is " & X End Sub Tutaj zadeklarowaliśmy X jako Długi , Y oraz rng jako Zakres , "D4:D11" to zakres, na podstawie którego zliczamy wiersze w kolumnie, a na końcu przypisaliśmy go do rng .
Na stronie DLA pętla sprawdzi, czy każda z komórek tego zakresu zawiera jakąś wartość przy użyciu Funkcja COUNTA oraz dla komórek posiadających wartości, X zostanie zwiększona o 1 za każdym razem.
Na koniec otrzymamy łączne numery wierszy z niepustymi komórkami poprzez okno komunikatu.
➤ Prasa F5 .
W końcu będziesz miał 5 jako całkowita liczba niepustych rzędów w Sprzedaż kolumny w oknie wiadomości.
Read More: Jak policzyć przefiltrowane wiersze w Excelu za pomocą VBA (Przewodnik krok po kroku)
Metoda-7: Policz wiersze z określoną wartością
Tutaj policzymy całkowitą liczbę wierszy, w których wartość sprzedaży wynosi $2,522.00 od Sprzedaż kolumna.
Kroki :
➤ Follow Krok-01 z Metoda-1 .
➤ Napisz następujący kod
Sub countrows7() Dim X As Long Dim Y, rng As Range Set rng = Range("D4:D11") With rng For Each Y In .Rows If Application.CountIf(Y, 2522)> 0 Then X = X + 1 End If Next End With MsgBox "Number of used rows is " & X End Sub. Tutaj zadeklarowaliśmy X jako Długi , Y oraz rng jako Zakres , "D4:D11" to zakres, na podstawie którego zliczamy wiersze w kolumnie, a na końcu przypisaliśmy go do rng .
Na stronie DLA pętla sprawdzi, czy któraś z komórek tego zakresu zawiera wartość sprzedaży 2522 używając Funkcja COUNTIF i dla komórek mających tę wartość, X zostanie zwiększona o 1 za każdym razem.
Na koniec otrzymamy sumę numerów wierszy o wartości 2522 poprzez skrzynkę wiadomości.
➤ Prasa F5 .
Ostatecznie, będziesz miał 3 jako całkowita liczba wierszy Sprzedaż kolumna zawierająca wartość sprzedaży $2,522.00 w okienku wiadomości.
Read More: Excel VBA: Licz wiersze z określonymi danymi (8 przykładów)
Metoda-8: Policz wiersze z wartościami większymi niż określona wartość
W tej części policzymy całkowitą liczbę wierszy z wartościami większymi niż $3000.00 w Sprzedaż kolumna.
Kroki :
➤ Follow Krok-01 z Metoda-1 .
➤ Napisz następujący kod
Sub countrows8() Dim X As Long Dim Y, rng As Range Set rng = Range("D4:D11") With rng For Each Y In .Rows If Application.CountIf(Y, ">3000")> 0 Then X = X + 1 End If Next End With MsgBox "Number of used rows is " & X End Sub. Tutaj zadeklarowaliśmy X jako Długi , Y oraz rng jako Zakres , "D4:D11" to zakres, na podstawie którego zliczamy wiersze w kolumnie, a na końcu przypisaliśmy go do rng .
Na stronie DLA pętla sprawdzi, czy któraś z komórek tego zakresu zawiera wartość sprzedaży większą niż 3000 używając Funkcja COUNTIF (lub możesz spróbować dla dowolnych innych warunków, takich jak mniejszy niż, większy niż, lub równy itp.) I dla komórek mających tę wartość, X zostanie zwiększona o 1 za każdym razem.
Na koniec otrzymamy sumę numerów wierszy o wartościach większych niż 3000 poprzez skrzynkę wiadomości.
➤ Prasa F5 .
Po tym, będziesz miał 3 jako całkowita liczba wierszy Sprzedaż kolumna zawierająca wartości sprzedaży większe niż $3,000.00 w okienku wiadomości.
Read More: Jak Excel liczy wiersze z wartością (8 sposobów)
Method-9: Count Rows with a Specific Text String
Otrzymamy tutaj liczbę wierszy zawierających jabłko dokładnie lub częściowo w Produkt kolumna.
Kroki :
➤ Follow Krok-01 z Metoda-1 .
➤ Napisz następujący kod
Sub countrows9() Dim X As Long Dim Y, rng As Range Set rng = Range("B4:B11") With rng For Each Y In .Rows If Application.CountIf(Y, "*apple*")> 0 Then X = X + 1 End If Next End With MsgBox "Number of used rows is " & X End Sub. Tutaj zadeklarowaliśmy X jako Długi , Y oraz rng jako Zakres , "B4:B11" to zakres, na podstawie którego zliczamy wiersze w kolumnie, a na końcu przypisaliśmy go do rng .
Na stronie DLA pętla sprawdzi, czy któraś z komórek tego zakresu zawiera ciąg tekstowy "stosować" używając Funkcja COUNTIF (tutaj będzie liczone zarówno dokładne dopasowanie jak i częściowe dopasowanie poprzez użycie Asterisk symbol przed i po ciągu), oraz dla komórek mających tę wartość, X zostanie zwiększona o 1 za każdym razem.
Na koniec otrzymamy całkowite numery wierszy z ciągiem tekstowym jabłko poprzez skrzynkę wiadomości.
➤ Prasa F5 .
Wtedy, będziesz miał 2 jako całkowita liczba wierszy Produkt kolumna zawierająca ciągi tekstowe Apple oraz Ananas w okienku wiadomości.
Read More: Jak liczyć wiersze z tekstem w Excelu (najłatwiejsze 8 sposobów)
Część ćwiczeniowa
Do samodzielnego wykonywania ćwiczeń udostępniliśmy Praktyka sekcja jak poniżej w arkuszu o nazwie Praktyka . Proszę, zrób to sam.
Wniosek
W tym artykule staraliśmy się objąć sposoby liczenia wierszy z danymi w kolumnie za pomocą programu Excel VBA łatwo. mam nadzieję, że uznasz to za przydatne. jeśli masz jakieś sugestie lub pytania, nie krępuj się podzielić nimi w sekcji komentarzy.
