Note: The other languages of the website are Google-translated. Back to English

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.
karta kte 201905

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!
officetab dno
Komentáře (12)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
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.
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
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.
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.
Tento komentář byl moderátorem webu minimalizován
Dobrý den, je možné to udělat s více názvy sloupců?
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
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
Tento komentář byl moderátorem webu minimalizován
Co když záhlaví začínají od 4. řádku?
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

Tento komentář byl moderátorem webu minimalizován
Dobrý den, děkujeme za opravu a sdílení. 
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
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
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL