Vba: jak policzyć liczbę użytych kolumn

Możesz użyć następującej podstawowej składni, aby policzyć liczbę kolumn używanych w arkuszu Excela za pomocą VBA:

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

W tym konkretnym przykładzie zlicza się liczbę kolumn użytych w arkuszu o nazwie Arkusz1 i wyświetla wynik w komórce A10 .

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

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

Poniższe przykłady pokazują, jak w praktyce zastosować każdą z tych metod, mając do dyspozycji następujący zbiór danych w Excelu, który zawiera informacje o różnych koszykarzach:

Przykład 1: Policz kolumny używane w VBA i wyświetl wyniki w komórce

Załóżmy, że chcemy policzyć liczbę użytych kolumn i wyświetlić wyniki w określonej komórce.

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

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

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

Zauważ, że komórka A10 zawiera wartość 4 .

To mówi nam, że używane są 4 kolumny.

Przykład 2: Zliczanie używanych kolumn w VBA i wyświetlanie wyników w oknie komunikatu

Załóżmy, że zamiast tego chcemy policzyć liczbę użytych kolumn i wyświetlić wyniki w oknie komunikatu.

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

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

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

Okno komunikatu informuje nas, że używane są 4 kolumny.

Uwaga : Jeśli po pustych kolumnach następują kolumny zawierające dane, VBA zliczy puste kolumny jako „użyte” w obliczeniach.

Dodatkowe zasoby

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

VBA: Jak policzyć liczbę arkuszy w skoroszycie
VBA: Jak policzyć liczbę wierszy w zakresie
VBA: Jak liczyć komórki zawierające określony tekst