Kiedy masz małą tabelę danych z kilkoma kolumnami, możesz łatwo policzyć je wszystkie. Ale dla dużej tabeli danych, jest to dość trudne, aby policzyć wszystkie kolumny bez błędu. Poza tym, niektóre kolumny mogą zawierać dane, podczas gdy niektóre mogą być całkowicie puste. Tak więc liczenie wszystkich kolumn z danymi w przypadku dużej tabeli danych jest dość trudne. W tym artykule dowiesz się 2 sposoby liczeniakolumny z danymi za pomocą VBA w Excelu z łatwością.

Pobierz Zeszyt ćwiczeń

Możesz pobrać plik Excel z poniższego linku i ćwiczyć razem z nim.

Liczenie kolumn z danymi.xlsm

2 Sposoby liczenia kolumn z danymi za pomocą VBA w Excelu

1. policz wszystkie kolumny w arkuszu z danymi za pomocą prostego kodu VBA

Możemy zobaczyć 3 kolumny w poniższej tabeli danych. Teraz użyjemy kodu VBA, aby określić liczbę używanych kolumn w jednym arkuszu Excela.

❶ Po pierwsze, naciśnij ALT + F11 aby otworzyć edytor VBA.

❷ Następnie utwórz nowy moduł z Insert> Moduł.

❸ Po tym skopiuj następujący skrypt VBA.

 Public Sub CountUsedColumns() With Sheet1.UsedRange MsgBox "Liczba kolumn z Data is: " & .Columns.Count End With End Sub 

❹ Następnie wróć do edytora VBA i naciśnij CTRL + V aby go wkleić.

❺ Teraz zapisz kod VBA, naciskając przycisk CTRL + S przycisk.

❻ Aby uruchomić kod VBA, przejdź do. Deweloper i kliknij na Makra Albo po prostu naciśnij przycisk F5 klucz.

Na stronie Makro Pojawi się okno dialogowe.

❼ Wszystko, co musisz zrobić, to kliknąć na Uruchom przycisk.

Teraz zobaczysz, że pojawiło się okno dialogowe, które mówi, że liczba kolumn z danymi wynosi 3.

Read More: Jak policzyć liczbę kolumn w programie Excel (3 proste metody)

2) Policz wszystkie kolumny w danym zakresie z danymi za pomocą kodu VBA w Excelu

Poniższy kod VBA pozwoli Ci policzyć wszystkie kolumny z danymi w danym zakresie.

Aby skorzystać z kodu,

❶ Przede wszystkim otwórz edytor VBA, naciskając przycisk ALT + F11.

❷ Następnie przejdź do Insert> Moduł aby stworzyć nowy moduł.

❸ Po tym skopiuj następujący skrypt VBA.

 Sub CountColumnsInARange() Dim xRng As Worksheet Set xRng = Worksheets("Sheet1") MsgBox "Suma kolumn: " & xRng.Range("B5:D5").Columns.Count End Sub 

❹ Wróć do edytora VBA i naciśnij CTRL + V aby go wkleić.

❺ Teraz zapisz kod, naciskając przycisk CTRL + S.

❻ Idź do Deweloper zakładka i uderz w Makra aby otworzyć Makro okno.

Lub po prostu naciśnij przycisk F5 przycisk, aby pominąć Makro okno dialogowe.

❼ W oknie dialogowym wybierz nazwę funkcji CountColumnsInARange i trafić Uruchom przycisk.

Na koniec pojawi się małe okno dialogowe, które mówi, że całkowita liczba kolumn wynosi 3.

Read More: Jak liczyć kolumny dla VLOOKUP w Excelu (2 metody)

Więcej kodów VBA do liczenia kolumn w Excelu

1. użyj metody VBA Range.End, aby zwrócić ostatnio używany numer kolumny

Aby uzyskać ostatnio używany numer kolumny w arkuszu kalkulacyjnym programu Excel,

❶ Przede wszystkim otwórz edytor VBA, naciskając przycisk ALT + F11.

❷ Następnie przejdź do Insert> Moduł aby stworzyć nowy moduł.

❸ Skopiuj VBA kod:

 Option Explicit Sub LastColumn() Dim xRng As Integer xRng = Range("B4").End(xlToRight).Column MsgBox xRng End Sub 

❹ Wklej i zapisz kod w edytorze VBA.

❺ Naciśnij przycisk F5 aby uruchomić powyższy kod.

Otrzymasz ostatni numer kolumny w wyskakującym oknie dialogowym, jak na poniższym rysunku:

Read More: Jak liczyć kolumny do momentu osiągnięcia wartości w programie Excel

2) Użyj metody Range.Find, aby zwrócić ostatnio używany numer kolumny w Excelu

Jeśli szukasz kodów VBA, aby zwrócić ostatnio używany numer kolumny, to wykonaj poniższe kroki:

❶ Po pierwsze, naciśnij ALT + F11 aby otworzyć edytor VBA.

❷ Następnie utwórz nowy moduł z Insert> Moduł.

❸ Skopiuj następujący kod VBA:

 Sub LastUsedColumnNo() Dim xRng As Long xRng = Cells.Find(What:="*", _ After:=Range("B4"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column MsgBox "Last Used Column Numeber: " & xRng End Sub 

❹ Następnie wróć do edytora VBA i naciśnij CTRL + V aby go wkleić.

❺ Teraz zapisz kod VBA, naciskając przycisk CTRL + S przycisk.

Teraz naciśnij przycisk F5 aby uruchomić powyższy kod.

Otrzymasz ostatnio używany numer kolumny w wyskakującym oknie dialogowym, jak na rysunku poniżej:

Rzeczy do zapamiętania

• Naciśnij ALT + F11 aby otworzyć edytor VBA.
• Możesz nacisnąć ALT + F8 skorzystać z Makra okno dialogowe.
• Aby uruchomić kod VBA, naciśnij przycisk F5.

Wniosek

Podsumowując, omówiliśmy 2 sposoby liczenia kolumn z danymi za pomocą VBA w Excelu. Zaleca się pobranie zeszytu ćwiczeń dołączonego do tego artykułu i przećwiczenie wszystkich metod za jego pomocą. Nie wahaj się też zadawać pytań w sekcji komentarzy poniżej. Postaramy się odpowiedzieć na wszystkie istotne zapytania jak najszybciej. I zapraszamy na naszą stronę internetową ExcelWIKI aby dowiedzieć się więcej.