Excel VBA, aby wybrać używany zakres w kolumnie (8 przykładów)

Hugh West

02-06-2023 Makra & Excel VBA
  • Udostępnij To
Hugh West

Ten samouczek zademonstruje 8 przykłady użycia VBA aby wybrać Używany zakres w kolumnie w Excelu. Ogólnie rzecz biorąc, UżywaneRange właściwość w Excelu reprezentuje część arkusza, w której znajdują się dane. Aby jasno zilustrować przykłady, zastosujemy właściwość UżywaneRange właściwość w danym zbiorze danych dla wszystkich przykładów.

Pobierz Zeszyt ćwiczeń

Zeszyt ćwiczeń możemy pobrać stąd.

VBA aby wybrać UsedRange w Column.xlsm

8 prostych przykładów VBA, aby wybrać UsedRange w kolumnie

Na poniższym obrazku widzimy zbiór danych, którego będziemy używać we wszystkich przykładach. Zbiór danych zawiera nazwy Sprzedawcy , ich Lokalizacja , Region, oraz Kwota ogółem W tym zbiorze danych używany zakres będzie uważany za obejmujący nagłówek. Tak więc używany zakres w poniższym zbiorze danych to ( B2:E15 ).

1) Wybierz UsedRange w kolumnie za pomocą VBA w Excelu

Po pierwsze i najważniejsze, wybierzemy wszystkie kolumny z naszego zbioru danych. Aby to zrobić, użyjemy metody VBA wybierz UżywaneRange właściwość w kolumnach. Zobaczmy kroki do wykonania tej metody.

KROKI:

  • Na początek, kliknij prawym przyciskiem myszy na stronie w aktywnym arkuszu o nazwie Wybierz_kolumny '.
  • Dodatkowo należy wybrać opcję Wyświetl kod '.

  • Następnie powyższa czynność otwiera pusty VBA okno kodu dla tego arkusza. Możemy również uzyskać to okno kodu naciskając przycisk Alt + F11 .
  • Następnie w tym oknie kodu wpisz następujący kod: 
 Sub Select_Columns() Sheets("Select_Columns").Select ActiveSheet.UsedRange.Select End Sub
  • Następnie należy kliknąć na Uruchom lub naciśnij przycisk F5 aby uruchomić kod.

  • W końcu otrzymujemy wynik jak na poniższym obrazku. Widzimy, że używany zakres w kolumnach z naszego zbioru danych jest teraz wybrany.

2. użyj VBA do skopiowania całego UsedRange w kolumnie

W drugim przykładzie użyjemy VBA aby skopiować cały używany zakres w kolumnach z naszego zbioru danych. Generalnie używamy tej metody do skopiowania określonego regionu z naszego zbioru danych. Musimy wykonać poniższe kroki, aby wykonać tę metodę.

KROKI:

  • Najpierw przejdź do aktywnej karty arkusza o nazwie ' Kopia '.
  • Następny, kliknij prawym przyciskiem myszy na stronie na tej zakładce i wybrać opcję Wyświetl kod '.

  • Otworzy się puste okno VBA okno kodu dla bieżącego arkusza. Innym sposobem uzyskania tego okna jest naciśnięcie klawisza Alt + F11 z klawiatury.
  • Następnie wstaw poniższy kod w tym oknie kodu: 
 Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub
  • Teraz, aby uruchomić kod kliknij na Uruchom lub naciśnij przycisk F5 klucz.

  • W końcu możemy zobaczyć wynik jak poniżej. Również możemy zobaczyć linię graniczną wokół użytego zakresu. Wskazuje ona, że kod skopiował dane wewnątrz tej granicy.

Czytaj więcej: Excel VBA: Kopiowanie dynamicznego zakresu do innego skoroszytu

3. policz ilość kolumn w UsedRange używając VBA

W trzecim przykładzie policzymy ilość kolumn w naszym zbiorze danych używając excela VBA wybierz Używany zakres Przykład ten zwróci w oknie komunikatu całkowitą liczbę kolumn wewnątrz użytego zakresu w naszym zbiorze danych. Wykonaj poniższe kroki, aby wykonać tę metodę.

KROKI:

  • Po pierwsze, wybierz aktywny arkusz o nazwie Count_Columns '.
  • Po drugie, kliknij prawym przyciskiem myszy na stronie na nazwę aktywnego arkusza i kliknij opcję Wyświetl kod '.

  • Powyższe polecenie otwiera puste okno VBA okno kodu dla aktywnego arkusza. Możemy również uzyskać okno kodu naciskając przycisk Alt + F11 z klawiatury.
  • Po trzecie, wprowadź następujący kod w tym pustym oknie kodu: 
 Sub Count_Columns() MsgBox ActiveSheet.UsedRange.Columns.Count End Sub
  • Następnie należy kliknąć na Uruchom lub naciśnij przycisk F5 aby uruchomić kod.

  • Na koniec otrzymujemy wynik w oknie komunikatu. Liczba kolumn w użytym zakresie to. 4 .

Read More: Jak używać VBA do liczenia wierszy w zakresie z danymi w Excelu (5 makr)

4. Excel VBA do liczenia liczby ostatnich kolumn w używanym zakresie

W poprzedniej metodzie wyodrębniliśmy numer ostatniej kolumny w użytym zakresie. Jednak w tym przykładzie określimy numer ostatniej kolumny w użytym zakresie w całym arkuszu, używając metody VBA wybierz UżywaneRange nieruchomość. Zobaczmy kroki, które musimy wykonać, aby wykonać tę akcję.

KROKI:

  • Na początek, kliknij prawym przyciskiem myszy na stronie w aktywnym arkuszu o nazwie Ostatnia kolumna '.
  • Następnie należy wybrać opcję Wyświetl kod '.

  • Tak więc, powyższe polecenie otwiera puste okno VBA Alternatywnym sposobem otwarcia okna z kodem dla tego arkusza jest naciśnięcie przycisku Alt + F11 .
  • Następnie w tym oknie kodu wstaw następujący kod: 
 Sub Column_Last() Dim Column_Last As Integer Column_Last = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column MsgBox Column_Last End Sub
  • Teraz kliknij na Uruchom lub naciśnij przycisk F5 aby uruchomić kod.

  • Na koniec otrzymujemy nasz wynik w okienku komunikatu.Ostatnią kolumną w użytym zakresie jest. 5. kolumna arkusza.

Podobne lektury

  • Jak używać VBA dla każdego wiersza w zakresie w Excelu
  • Użyj VBA, aby wybrać zakres z aktywnej komórki w programie Excel (3 metody)
  • Makro Excel: Sortuj wiele kolumn z dynamicznym zakresem (4 metody)

5. wybierz ostatnią komórkę ostatniej kolumny z UsedRange za pomocą VBA

W piątym przykładzie użyjemy VBA wybierz Używany zakres właściwość, aby wybrać ostatnią komórkę ostatniej kolumny w arkuszu Excela. Aby zilustrować ten przykład, będziemy kontynuować nasz poprzedni zestaw danych. Teraz spójrz na kroki, aby wykonać tę metodę.

KROKI:

  • Najpierw wybierz aktywny arkusz o nazwie Ostatnia_komórka '.
  • Następny, kliknij prawym przyciskiem myszy na stronie na nazwie arkusza. Wybierz opcję Wyświetl kod '.

  • Wtedy otrzymujemy puste miejsce VBA Możemy również nacisnąć Alt + F11 aby otworzyć to okno z kodem.
  • Następnie w tym oknie kodu wpisz następujący kod: 
 Sub Last_Cell_UsedRange() Dim wcol As Long Dim wrow As Long wrow = ActiveSheet.UsedRange.Rows.Count wcol = ActiveSheet.UsedRange.Columns.Count ActiveSheet.UsedRange.Select Selection.Cells(wrow, wcol).Select End Sub
  • Teraz, aby uruchomić kod kliknij na Uruchom lub naciśnij przycisk F5 .

  • Ostatecznie wynik możemy zobaczyć na poniższym obrazku. Wybrana ostatnia komórka ostatniej kolumny to komórka E15 .

6) Znajdź zakres komórek w wybranym UsedRange z Excel VBA

W tym przykładzie zastosujemy VBA aby znaleźć zakres komórek wybranego używanego zakresu w arkuszu Excela.Użyjemy VBA kod dla wszystkich kolumn w naszym używanym zakresie. Kod zwróci zakres komórek, jak również adres kolumny w używanym zakresie. Wykonaj poniższe kroki, aby wykonać tę czynność.

KROKI:

  • Na początku, kliknij prawym przyciskiem myszy na stronie w aktywnej zakładce arkusza o nazwie Znajdź zakres komórek '.
  • Po drugie, należy wybrać opcję Wyświetl kod '.

  • Otworzy się puste okno VBA Inną metodą otwarcia okna z kodem jest wciśnięcie klawisza Alt + F11 .
  • Po trzecie, w tym oknie kodu wpisz następujący kod: 
 Sub Find_UsedRange() MsgBox ActiveSheet.UsedRange.Address End Sub
  • Następnie, aby uruchomić kod kliknij na Uruchom lub naciśnij przycisk F5 klucz.

  • Na koniec pojawia się okienko z komunikatem jak na poniższym obrazku.

Podobne lektury

  • VBA do pętli przez wiersze i kolumny w zakresie w Excelu (5 przykładów)
  • Jak przekonwertować zakres na tablicę w Excelu VBA (3 sposoby)

7. wstawianie właściwości VBA UsedRange do liczenia pustych komórek

W tym przykładzie użyjemy VBA wybierz UżywaneRange Właściwość ta służy do zliczania pustych komórek w arkuszu Excela. Czasami możemy mieć puste komórki w używanym zakresie naszego zbioru danych. Możemy łatwo policzyć liczbę tych pustych komórek używając właściwości UżywanyRange nieruchomość. zobaczmy, jakie kroki należy wykonać w tym przykładzie.

KROKI:

  • Po pierwsze, kliknij prawym przyciskiem myszy na stronie w aktywnej zakładce arkusza o nazwie Empty_Cells '.
  • Następnie należy wybrać opcję Wyświetl kod '.

  • Powyższa czynność otwiera puste okno VBA Alternatywnym sposobem otwarcia okna z kodem jest wciśnięcie klawisza Alt + F11 .
  • Następnie w tym oknie kodu wstaw następujący kod: 
 Sub Count_Empty_Cells() Dim wCell As Range Dim wRange As Range Dim d As Long Dim j As Long Set wRange = ActiveSheet.UsedRange For Each wCell In ActiveSheet.UsedRange d = d + 1 If IsEmpty(wCell) = True Then j = j + 1 End If Next wCell MsgBox "Total number of used cell(s)in 4 used columns is " & d & _ " and out of those " & _ j & " cell(s) are empty." End Sub
  • Następnie należy kliknąć na Uruchom lub naciśnij przycisk F5 aby uruchomić kod.

  • Na koniec otrzymamy wynik w oknie komunikatu. W oknie komunikatu zostanie wyświetlona liczba komórek całkowitych i pustych w naszym używanym zakresie.

8. VBA UsedRange do zlokalizowania pierwszej pustej komórki w kolumnie w Excelu

W ostatnim przykładzie użyjemy excela VBA aby wybrać Używany zakres Ta metoda zlokalizuje pierwszą pustą komórkę w naszym arkuszu Excela. Pusta komórka zawsze będzie poza używanym zakresem zbioru danych, więc jeśli jakakolwiek komórka jest pusta w używanym zakresie, nie będzie brana pod uwagę w tej metodzie. Teraz wykonaj poniższe kroki, aby wykonać tę metodę.

KROKI:

  • Na początek, kliknij prawym przyciskiem myszy na stronie w aktywnej zakładce arkusza o nazwie First_Empty '.
  • Dodatkowo należy wybrać opcję Wyświetl kod '.

  • Otworzy się puste okno VBA Możemy również nacisnąć Alt + F11 aby otworzyć to okno z kodem.
  • Ponadto wpisz w puste miejsce następujący kod VBA okno kodowe: 
 Public Sub First_Empty_Cell() ActiveSheet.Range("E" & ActiveSheet.Rows.Count) _ .End(xlUp).Offset(1, 0).Value = "FirstEmptyCell" End Sub
  • Następnie, aby uruchomić kod kliknij na Uruchom lub naciśnij przycisk F5 klucz.

  • Na koniec powyższy kod wstawi wartość FirstEmptyCell ' w komórce E16 Jest to pierwsza pusta komórka w kolumnie E po zastosowanym zakresie zbioru danych.

Read More: Excel VBA do Loop przez Zakres aż do pustej komórki (4 przykłady)

Wniosek

W skrócie, ten tutorial pokazuje 8 przykłady wykorzystania VBA wybierz UżywaneRange w arkuszu Excel. Aby sprawdzić swoje umiejętności, pobierz arkusz ćwiczeniowy wykorzystany w tym artykule. W razie pytań prosimy o komentarz w polu poniżej. Nasz zespół postara się jak najszybciej zareagować na Twoją wiadomość. Bądźcie czujni na kolejne innowacyjne rozwiązania. Microsoft Excel rozwiązania w przyszłości.

Poprzedni post Jak dodać tabelę danych w wykresie programu Excel (4 szybkie metody)
Następny post Jak obliczyć procent wariancji w Excelu (3 proste metody)

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ł.