Wstaw kolumnę Excel VBA

W programie Excel, jeśli chcemy wstawić kolumnę, istnieje wiele sposobów na zrobienie tego. Możemy kliknąć prawym przyciskiem myszy i wybrać Wstaw kolumnę z listy menu rozwijanego lub używając jednocześnie Ctrl + Shift + Plus (+). Ale co jeśli zautomatyzujemy również ten proces, tworząc makro za pomocą VBA? Jest to bardzo pomocne, gdy pracujemy nad utworzeniem makra o dużej strukturze kodowania lub dodaniem kolumny lub wielu kolumn, co również jest zadaniem do wykonania. VBA ma całą kolumnę, a funkcja Wstaw służy do wstawiania nowej kolumny.

Jak wstawić kolumnę w programie Excel VBA?

Dowiemy się, jak wstawić kolumnę w programie Excel za pomocą kodu VBA z kilkoma przykładami.

Możesz pobrać ten szablon VBA Wstaw kolumnę Excel tutaj - VBA Wstaw szablon Excel kolumna

Przykład # 1 - Wstaw kolumnę VBA

Mamy tabelę 2 kolumn i 11 wierszy, jak pokazano poniżej. Teraz zautomatyzujemy proces wstawiania kolumn na różne sposoby.

W tym celu wykonaj następujące kroki:

Krok 1: Najpierw wstaw nowy moduł do VBA, z opcji menu Wstaw, jak pokazano poniżej.

Krok 2: Teraz uruchom podkategorię w nazwie wykonywanej funkcji, takiej jak VBA Insert Column lub w dowolnej innej nazwie, jak pokazano poniżej.

Kod:

 Sub VBAColumn1 () End Sub

Krok 3: Najpierw wybierz zakres komórek lub pełne kolumny, w których chcemy wstawić kolumnę, a następnie polecenie Wstaw, jak pokazano poniżej. Polecenie Wstaw umożliwi wstawienie dowolnego wiersza, kolumny lub komórki w wybranej kolumnie lub komórce zakresu.

Kod:

 Sub VBAColumn1 () Zakres („B: B”). Wstaw End Sub

Krok 4: Teraz wybierz zakres komórek jako odniesienie, z którego chcemy wstawić kolumnę, jak pokazano poniżej.

Kod:

 Sub VBAColumn1 () Range („B: B”). Insert Range („B4”) End Sub

Krok 5 : Jak omówiono w wyjaśnieniach, użyjemy Całą kolumnę z funkcją Wstaw, jak pokazano poniżej. Umożliwi to wstawienie kolumny.

Kod:

 Sub VBAColumn1 () Range („B: B”). Insert Range („B4”). EntireColumn.Insert End Sub

Krok 6: Teraz skompiluj kod, naciskając klawisz funkcyjny F8, a następnie kliknij przycisk Odtwórz, aby uruchomić cały kod znajdujący się poniżej paska menu, jak pokazano poniżej. Zauważymy między kolumną 1 a kolumną 2, zostaną wstawione dwie nowe puste kolumny, jak pokazano poniżej.

Przykład # 2 - Wstaw kolumnę VBA

Istnieje inna metoda wstawiania kolumny. Ta metoda obejmuje kombinację różnych poleceń.

Krok 1: Wstaw nowy moduł z menu Wstaw.

Krok 2: I napisz podkategorię w nazwie Wykonanej funkcji, jak pokazano poniżej lub pod inną nazwą.

Kod:

 Sub VBAColumn2 () End Sub

Krok 3: Za pomocą zmiennej wymiarowej DIM z dowolnym alfabetem lub nazwą zdefiniuj ją jako Zakres, powiedzmy Kolumna, jak pokazano poniżej.

Kod:

 Sub VBAColumn2 () Dim Column As Range End Sub

Krok 4: Teraz podążając za zakresem, użyj funkcji Set o zdefiniowanym Kolumnie wymiaru, jak pokazano poniżej, a następnie znak równości („=”).

Kod:

 Sub VBAColumn2 () Dim Column As Range: Set Column = End Sub

Krok 5: Teraz użyj funkcji aplikacji, która jest wbudowanym VBA ze zdefiniowanym zakresem pełnej kolumny B.

Kod:

 Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range („B: B”) End Sub

Krok 6: Teraz użyj zmiennej Kolumna z funkcją Wstaw, jak pokazano poniżej.

Kod:

 Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") Column.Insert End Sub

Krok 7: Możemy przesunąć, aby wstawić kolumnę w prawo lub w lewo za pomocą polecenia Shift. Zwykle kolumna jest wstawiana we właściwym kierunku zawsze z wybranej komórki lub kolumny odniesienia.

Kod:

 Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range („B: B”) Column.Insert Shift: = xlShiftToRight, End Sub

Krok 8: W końcu wybierz format odniesienia początku od prawej lub poniżej, który jest dla kolumny lub wiersza, w zależności od rodzaju wstawki.

Kod:

 Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range („B: B”) Column.Insert Shift: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub

Krok 9: Teraz jest zakończony. Możemy skompilować kod i uruchomić go. Zobaczymy nową kolumnę między kolumną 1 a kolumną 2, która zostanie dodana, jak pokazano poniżej.

Przykład # 3 - Wstaw kolumnę VBA

Ten przykład jest kolejnym najłatwiejszym sposobem wstawienia kolumny w VBA.

Krok 1: Wstaw nowy moduł

Krok 2: Dodaj podkategorię w nazwie kolumny VBA Insert, jak pokazano poniżej.

Kod:

 Sub VBAColumn3 () End Sub

Krok 3: Najpierw wybierz odwołanie do kolumny lub komórki, do którego chcemy dodać kolumnę za pomocą Wybierz, jak pokazano poniżej.

Kod:

 Sub VBAColumn3 () Columns („B: B”). Wybierz End Sub

Krok 4: W drugim wierszu użyj polecenia Wybór wraz z funkcją Wstaw, jak pokazano poniżej.

Kod:

 Sub VBAColumn3 () Columns („B: B”). Wybierz Selection.Insert End Sub

Krok 5: W końcu wybierz pozycję, w której chcemy przesunąć wstawioną nową kolumnę, w prawo lub w lewo za pomocą funkcji Shift. Wybór umieszczenia nowej kolumny zależy od indywidualnych wymagań.

Kod:

 Sub VBAColumn3 () Columns („B: B”). Wybierz Selection.Insert Shift: = xlToRight End Sub

Krok 6: To uzupełnia nasz kod. Teraz możemy skompilować kod w celu wykrycia błędu. Jeśli nie znaleziono błędu, uruchom kod. Zobaczymy, że nowa kolumna zostanie dodana między kolumną 1 a kolumną 2, jak pokazano poniżej.

Przykład # 4 - Wstaw kolumnę VBA

W tym przykładzie nauczymy się dodawać nowe kolumny po każdej już stojącej kolumnie.

Krok 1: Teraz wstaw moduł z menu wstawiania.

Krok 2: Następnie dodaj podkategorię w nazwie VBA Insert Column z sekwencją liczb.

Kod:

 Sub VBAColumn4 () End Sub

Krok 3: Teraz użyj DIM, aby zdefiniować zmienną o dowolnej nazwie. Użyliśmy kolumny jako liczby całkowitej (w przypadku użycia liczb)

Kod:

 Sub VBAColumn4 () Dim Column As Integer End Sub

Krok 4: Do kolumny po każdej stojącej wypełnionej kolumnie wybierzemy i użyjemy Kolumny (2), aby dodać nową kolumnę, jak pokazano poniżej.

Kod:

 Sub VBAColumn4 () Dim Column as Integer Columns (2) .Wybierz End Sub

Krok 5: Otwórz pętlę For-Next, w której napiszemy warunki wstawiania kolumny jedna za drugą, jak pokazano.

Kod:

 Sub VBAColumn4 () Dim Column as Integer Columns (2). Wybierz Next End Sub

Krok 6: Ponieważ w naszych przykładowych danych mamy tylko 2 kolumny, więc możemy dodać tylko nową kolumnę tylko z tych kolumn. Używamy więc zakresu od 0 do 2 kolumn sekwencji.

Kod:

 Sub VBAColumn4 () Dim Column as Integer Columns (2). Select For Column = 0 To 2 Next End Sub

Krok 7: Za pomocą funkcji ActiveCell użyj EntireColumn, aby wstawić, jak pokazano poniżej.

Kod:

 Sub VBAColumn4 () Dim Column as Integer Columns (2). Select For Column = 0 To 2 ActiveCell.EntireColumn.Insert Next End Sub

Krok 8: Za pomocą funkcji ActiveCell użyj opcji Przesunięcie, aby umieścić nowo dodaną kolumnę. Używamy 0 i 2 pozycji.

Kod:

 Sub VBAColumn4 () Dim Column as Integer Columns (2). Select For Column = 0 To 2 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2) .Wybierz Next End Sub

Krok 9: Teraz skompiluj kod i uruchom go, jeśli nie znaleziono błędu. Zobaczymy, po kolumnie 1 i kolumnie 2, nowe kolumny są dodawane.

Zalety Excel VBA Wstaw kolumnę

  • Jest to przydatne, ponieważ pozwala szybko dodać nową kolumnę w dowolnym zakresie komórek.
  • Jest łatwy do wdrożenia, nawet jeśli struktura kodu jest ogromna.
  • Jeśli pracujemy nad ogromnym kodem, nowa kolumna staje się potrzebna do uzupełnienia kodu, korzystając z powyższych przykładów ułatwi to zadanie.

Rzeczy do zapamiętania

  • Jeśli używasz przykładu 4, pamiętaj, aby wybrać zakres kolumn, aż tabela będzie obowiązywać.
  • Zapisanie pliku w makrze włącza program Excel, zapisuje kod.
  • Wstaw tylko odpowiednie i wymagane kolumny, aby uniknąć niepotrzebnych kolumn, aby się dodać.

Polecane artykuły

Jest to przewodnik po VBA Insert Column. Tutaj omawiamy sposób wstawiania kolumny w programie Excel za pomocą kodu VBA wraz z praktycznymi przykładami i szablonem Excel do pobrania. Możesz także przejrzeć nasze inne sugerowane artykuły -

  1. Funkcja VBA VLOOKUP
  2. Funkcja DCOUNT w programie Excel
  3. Wklej kopiowanie VBA
  4. Funkcja ŁĄCZENIA w programie Excel

Kategoria:

VBA