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

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

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:

1) v kódu „starý„Je hodnota záhlaví, podle které chcete odstranit celý sloupec. Změňte prosím hodnotu záhlaví ručně. A A1: D1 je rozsah sloupců, který chcete použít.

2) Tento kód rozlišuje malá a velká písmena.

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.

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

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

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

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.

Pokud chcete mít bezplatnou zkušební verzi (30-den) této utility, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.

Čtěte více... Stažení zdarma... Nákup...

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!

Čtěte více... Stažení zdarma... Nákup...

Komentáře (12)

Zatím žádné hodnocení. Buďte první, kdo ohodnotí!

Leonard Staggs

asi před 5 let

#19816

Tento komentář byl moderátorem webu minimalizován

Omlouvám se, jestli to vypadá super základní, ale vba zkouším poprvé. Pomocí toho bych to použil k odstranění více záhlaví sloupců. Ve skutečnosti se snažím ponechat pouze určité sloupce záhlaví a odstranit zbytek měnícího se seznamu.

odpověď

Ata Leonard Staggs

asi před 1 rokem

#19817

Tento komentář byl moderátorem webu minimalizován

V prvním kódu stačí zkopírovat 4. řádek a změnit "starý" na název druhého sloupce a bude to fungovat

odpověď

Eliáš

asi před 4 let

#26882

Tento komentář byl moderátorem webu minimalizován

Ahoj! To funguje dobře, dokud nebudete mít dva souvislé sloupce se stejným záhlavím. Řekněme, že váš rozsah je A1:A5 a A2 a A3 mají záhlaví 'staré'. Vymaže A2, ale pak se A3 přesune na místo, které A2 zabíralo, a kód to přeskočí, protože se bude dívat na nový A3, další buňku ve svém rozsahu.

odpověď

krystal Eliáš

asi před 4 let

#26883

Tento komentář byl moderátorem webu minimalizován

ahoj Eliasi,
Jak jste zmínil, A2 a A3 mají stejné záhlaví "staré". Jsou ale ve stejném sloupci, po aplikaci kódu se celý sloupec A okamžitě odstraní.
Nejsem si jistý, jestli chápu váš názor. Bylo by hezké, kdybyste mohli poskytnout snímek obrazovky toho, co se snažíte udělat.

odpověď

Zpráva

Mark

asi před 2 let

#32598

Tento komentář byl moderátorem webu minimalizován

Dobrý den, je možné to udělat s více názvy sloupců?

odpověď

krystal Mark

asi před 2 let

#32599

Tento komentář byl moderátorem webu minimalizován

Ahoj Marku,
Vyzkoušejte níže uvedený kód. Na osmém řádku uzavřete název každého sloupce do uvozovek a oddělte je čárkou. Doufám, že pomůžu. Děkuji.

Sub DeleteSpecifcColumn()

Dim xFNum, xFFNum, xCount As Integer

Dim xStr jako řetězec

Dim xArrName jako variantu

Dim MR, xRg As Range

On Error Resume Next

Nastavit MR = rozsah("A1:N1")

xArrName = Array("old", "new", "get") 'uzavřete každý název sloupce do uvozovek a oddělte je čárkou

xCount = MR.Count

xStr = xArrName(xFNum)

Pro xFFNum = xCount To 1 Krok -1

Nastavit xRg = Cells(1, xFFNum)

Pro xFNum = 0 To UBound(xArrName)

xStr = xArrName(xFNum)

If xRg.Value = xStr Then xRg.EntireColumn.Delete

Další xFNum

další

End Sub

odpověď

Zpráva

Pavel Rod krystal

asi před 1 rokem

#32600

Tento komentář byl moderátorem webu minimalizován

Myslím, že je třeba změnit řádek 12, aby kód fungoval. Původní řádek 12 "Set xRg = Cells(1, xFFNum)" upravený řádek 12 "Set xRg = MR(1, xFFNum)"
Sub DeleteSpecifcColumn()
Dim xFNum, xFFNum, xCount As Integer
Dim xStr jako řetězec
Dim xArrName jako variantu
Dim MR, xRg As Range
On Error Resume Next
Nastavit MR = rozsah("A1:N1")
xArrName = Array("old", "new", "get") 'uzavřete každý název sloupce do uvozovek a oddělte je čárkou
xCount = MR.Count
xStr = xArrName(xFNum)
Pro xFFNum = xCount To 1 Krok -1
Nastavit xRg = MR(1, xFFNum)
Pro xFNum = 0 To UBound(xArrName)
xStr = xArrName(xFNum)
If xRg.Value = xStr Then xRg.EntireColumn.Delete
Další xFNum
další
End Sub

odpověď

Rahul Mark

asi před 1 rokem

#32601

Tento komentář byl moderátorem webu minimalizován

Co když záhlaví začínají od 4. řádku?

odpověď

Jonathan

asi před 1 rokem

#35388

Tento komentář byl moderátorem webu minimalizován

Příklad VBA uvádí, že kód odstraní všechny sloupce, jejichž záhlaví OBSAHUJE „staré“. Není tomu tak. Operátor = odstraní pouze přesné shody. Musíte použít operátor LIKE se zástupným znakem.
Opravený kód:Sub DeleteSpecifcColumn()
Nastavit MR = rozsah("A1:D1")
Pro každou buňku v MR
If cell.Value LIKE "old*" Then cell.EntireColumn.Delete
další
End Sub

odpověď

krystal Jonathan

asi před 1 rokem

#35389

Tento komentář byl moderátorem webu minimalizován

Dobrý den, děkujeme za opravu a sdílení.

odpověď

Zpráva

Resnick

o 9 měsíci

#37833

Tento komentář byl moderátorem webu minimalizován

Ahoj, tengo una hoja de excel con varios datos, digamos 4 columnas y 12 filas, me gustaría poder imprimir cada fila en un folio separado en una plantilla, es decir, tenemos una hoja con varios nombres y apellidos y qui telésprimgina pápa tan, jako filas tenga la hoja de excel, on inte tado varias cosas pero no encuentro la forma. Gracias de Antemano

odpověď

krystal Resnick

o 9 měsíci

#37838

Tento komentář byl moderátorem webu minimalizován

Dobrý den,
Pokud chcete vytisknout každý řádek na samostatné stránce v listu, zde je návrh, abyste vložili konce stránek každý 1 řádek a poté je vytiskli.
Metody uvedené v tomto článku vám mohou pomoci. Zkuste to prosím. Děkuji.
Jak vložit konec stránky každých X řádků v Excelu?[/url]
https://www.extendoffice.com/documents/excel/1774-excel-insert-page-break-every-row.html

odpověď

Zpráva

Zatím zde nejsou žádné komentáře

Zanechat své připomínky

Odesílání jako host

Přihlášení

Jméno (vyžadováno)

E-mail (vyžadováno)

Ohodnoťte tento příspěvek:

resetovat

0 Postavy

Souhlasím s termíny a podmínky