Vba: jak policzyć liczbę wierszy w zakresie

Aby policzyć liczbę wierszy w zakresie w programie Excel przy użyciu języka VBA, możesz użyć następującej podstawowej składni:

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

W tym konkretnym przykładzie zlicza się liczbę wierszy w kolumnie A, a następnie przypisuje wynik do komórki E2 .

Jeśli zamiast tego chcesz wyświetlić liczbę wierszy w oknie komunikatu, możesz użyć następującej składni:

 SubCountRows ()
    'Create variable to store number of rows
    Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

Poniższe przykłady pokazują, jak w praktyce zastosować każdą z tych metod, mając do dyspozycji następujący zestaw danych w Excelu, który zawiera nazwiska koszykarzy z trzech różnych drużyn:

Przykład 1: Zlicz wiersze w zakresie za pomocą VBA i wyświetl wyniki w komórce

Załóżmy, że chcemy obliczyć liczbę wierszy w kolumnie A i wyświetlić wyniki w określonej komórce.

W tym celu możemy utworzyć następujące makro:

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Zauważ, że komórka E2 zawiera wartość 9 .

To mówi nam, że w kolumnie A znajduje się 9 wierszy z wartościami.

Przykład 2: Zlicz wiersze w zakresie za pomocą VBA i wyświetl wyniki w oknie komunikatu

Załóżmy, że zamiast tego chcemy policzyć liczbę wierszy w kolumnie A i wyświetlić wyniki w oknie komunikatu.

W tym celu możemy utworzyć następujące makro:

 SubCountRows ()
    'Create variable to store number of rows
Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Okno komunikatu informuje nas, że w kolumnie A znajduje się 9 wierszy z wartościami.

Zauważ, że w tym przykładzie obliczyliśmy liczbę wierszy w całej kolumnie A, stosując A:A jako zakres.

Jeśli jednak zamiast tego chcesz obliczyć liczbę wierszy z wartościami z określonego zakresu, możesz wpisać A2:A9 (lub dowolny inny interesujący Cię zakres).

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak napisać funkcje ŚREDNIA.JEŻELI i ŚREDNIA.JEŻELI
VBA: Jak pisać funkcje SUMIF i SUMIFS
VBA: Jak pisać funkcje COUNTIFS i COUNTIFS