Jak odstranit celé sloupce na základě hodnoty záhlaví v aplikaci Excel?

V mnoha případech možná budete muset odstranit celé sloupce na základě hodnoty záhlaví v aplikaci Excel. Například musíte odstranit všechny sloupce, které v záhlaví obsahují hodnotu „old“. V tomto kurzu vám podrobně ukážeme metody mazání celých sloupců na základě hodnoty záhlaví.

Odstraňte celé sloupce na základě hodnoty záhlaví pomocí kódu VBA
Odstraňte celé sloupce na základě hodnoty záhlaví pomocí Kutools pro Excel

Celé sloupce můžete odstranit na základě hodnoty záhlaví pomocí kódu VBA. Postupujte prosím následovně.

1. lis Další + F11 současně otevřete Aplikace Microsoft Visual Basic okno.

2. V Aplikace Microsoft Visual Basic okno, klepněte na tlačítko Vložit > Modul. A pak zkopírujte a vložte níže uvedený kód do okna modulu.

Kód VBA: odstraňte celé sloupce na základě hodnoty záhlaví

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

Poznámky:

3. zmáčkni F5 klíč pro spuštění kódu, celý sloupec se záhlavím rovným zadanému textu bude okamžitě smazán.

S Kutools pro ExcelJe Vyberte konkrétní buňky obslužný program, můžete snadno vybrat všechny sloupce, které nejprve obsahují určitou hodnotu záhlaví, a poté tyto vybrané sloupce odstranit najednou. Postupujte prosím následovně.

1. Vyberte rozsah obsahující sloupce, které chcete odstranit, a poté klikněte Kutools > vybrat > Vyberte konkrétní buňky. Viz snímek obrazovky:

2. V Vyberte konkrétní buňky dialogové okno vyberte Celý sloupec možnost v Typ výběru sekci a v Specifický typ rozbalovacího seznamu vyberte rovná možnost, pak do následujícího pole zadejte hodnotu záhlaví. A nakonec klikněte na OK knoflík. Viz screenshot:

3. Klepněte na tlačítko OK tlačítko v dalším vyskakovacím dialogovém okně, jsou okamžitě vybrány sloupce, které obsahují zadanou hodnotu záhlaví.

4. Klikněte pravým tlačítkem na záhlaví sloupce vybraného sloupce a poté klikněte na Vymazat z nabídky pravého tlačítka myši. Poté jsou všechny vybrané sloupce smazány najednou.