Jak usunąć całe kolumny na podstawie wartości nagłówka w programie Excel?

W wielu przypadkach może być konieczne usunięcie całych kolumn na podstawie wartości nagłówka w programie Excel. Na przykład, musisz usunąć wszystkie kolumny, które zawierają w nagłówku wartość „stara”. W tym samouczku pokażemy szczegółowo metody usuwania całych kolumn na podstawie wartości nagłówka.

Usuń całe kolumny na podstawie wartości nagłówka z kodem VBA
Usuń całe kolumny na podstawie wartości nagłówka za pomocą Kutools for Excel

Możesz usunąć całe kolumny na podstawie wartości nagłówka z kodem VBA. Wykonaj następujące czynności.

1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Aplikacja Microsoft Visual Basic okno.

2. w Aplikacja Microsoft Visual Basic okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod do okna modułu.

Kod VBA: usuń całe kolumny na podstawie wartości nagłówka

Sub DeleteSpecifcColumn()
	Set MR = Range("A1:D1")
	For Each cell In MR
		If cell.Value = "old" Then cell.EntireColumn.Delete
	Next
End Sub

Uwagi:

3. wciśnij F5 aby uruchomić kod, cała kolumna z nagłówkiem równym podanemu tekstowi zostanie natychmiast usunięta.

Wraz z Kutools dla programu Excel'S Wybierz określone komórki narzędzie, możesz łatwo wybrać wszystkie kolumny, które najpierw zawierają określoną wartość nagłówka, a następnie usunąć te wybrane kolumny jednocześnie. Wykonaj następujące czynności.

1. Wybierz zakres zawierający kolumny, które chcesz usunąć, a następnie kliknij Kutools > Wybierz > Wybierz określone komórki. Zobacz zrzut ekranu:

2. w Wybierz określone komórki w oknie dialogowym wybierz opcję Cała kolumna opcja w Typ wyboru sekcji i w Określony typ listę rozwijaną wybierz Równa się opcję, a następnie wpisz wartość nagłówka w poniższym polu. I na koniec kliknij OK przycisk. Zobacz zrzut ekranu:

3. Kliknij OK w innym wyskakującym oknie dialogowym, kolumny zawierające określoną wartość nagłówka są wybierane natychmiast.

4. Prawym przyciskiem myszy kliknij nagłówek wybranej kolumny, a następnie kliknij Usuń z menu po kliknięciu prawym przyciskiem myszy. Następnie wszystkie wybrane kolumny są usuwane jednocześnie.