Jak usunąć kolumny w vba (z przykładami)

Możesz użyć następujących metod, aby usunąć kolumny w Excelu za pomocą VBA:

Metoda 1: usuń kolumnę

 SubDeleteColumns ()
Columns(" C ").Delete
End Sub

Ten konkretny przykład usunie kolumnę C z bieżącego skoroszytu.

Metoda 2: Usuń wszystkie kolumny z zakresu

 SubDeleteColumns ()
Columns(" B:D ").Delete
End Sub

Ten konkretny przykład spowoduje usunięcie wszystkich kolumn z zakresu od B do D w bieżącym skoroszycie.

Metoda 3: Usuń wiele określonych kolumn

 SubDeleteColumns ()
Range(" B:B,D:D ").Delete
End Sub

Ten konkretny przykład usunie kolumny B i D z bieżącego skoroszytu.

Poniższe przykłady pokazują, jak w praktyce zastosować każdą z tych metod z następującym zbiorem danych w Excelu:

Przykład 1: Usuń kolumnę w VBA

Możemy utworzyć następujące makro, aby usunąć tylko kolumnę C z naszego zbioru danych:

 SubDeleteColumns ()
Columns(" C ").Delete
End Sub

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

Należy zauważyć, że ze zbioru danych usunięto tylko kolumnę C („Wspomaganie”).

Przykład 2: Usuń wszystkie kolumny z zakresu

Możemy utworzyć następujące makro, aby usunąć wszystkie kolumny z zakresu od B do D:

 SubDeleteColumns ()
Columns(" B:D ").Delete
End Sub

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

Należy pamiętać, że każda kolumna pomiędzy B i D (kolumny „Punkty”, „Asysty” i „Zbiórki”) została usunięta ze zbioru danych.

Przykład 3: Usuń wiele określonych kolumn

Możemy utworzyć następujące makro, aby usunąć kolumny B i D ze zbioru danych:

 SubDeleteColumns ()
Range(" B:B,D:D ").Delete
End Sub

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

Należy zwrócić uwagę, że kolumny B i D (kolumny „Punkty” i „Zbiórki”) zostały usunięte ze zbioru danych.

Dodatkowe zasoby

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

VBA: Jak policzyć liczbę wierszy w zakresie
VBA: Jak policzyć liczbę użytych kolumn
VBA: Jak znaleźć ostatnio używaną kolumnę