Obsah
Tento článok vám ukáže, ako môžete odstrániť prázdne stĺpce v programe Excel tromi účinnými a jednoduchými spôsobmi.
Stiahnite si pracovný zošit
Cvičebnicu si môžete stiahnuť tu.
Odstrániť prázdne stĺpce v programe Excel.xlsm3 jednoduché spôsoby odstránenia prázdnych stĺpcov v programe Excel
Tu sa dozviete 3 spôsoby odstránenia prázdnych stĺpcov v programe Excel pomocou nástrojov na úpravu programu Excel, pomocou vzorca a implementáciou kódu VBA.
1. Pomocou nástrojov na úpravu aplikácie Excel
Krok 1: Vyberte súbor údajov.
Krok 2: Prejsť na Domov -> Nájsť & Vybrať -> Prejsť na špeciálny .
Krok 3: Z Prejsť na špeciálny vyskakovacie okno, vyberte Slepé polotovary , potom kliknite na tlačidlo OK .
Krok 4: Vyberú sa len prázdne bunky z vášho súboru údajov. Kliknite pravým tlačidlom myši, z kontextového zoznamu možností vyberte Odstrániť .
Krok 5: Ďalej z vyskakovacieho okna Odstrániť box, vybrať Posun buniek doľava z možností. Kliknite na V PORIADKU.
Tým sa zo súboru údajov odstránia všetky prázdne stĺpce.
Prečítajte si viac: Ako odstrániť nepoužívané stĺpce v programe Excel
2. Pomocou vzorca
Môžete využiť COUNTA() vzorec na odstránenie prázdnych stĺpcov v programe Excel. COUNTA() Vzorec najprv identifikuje prázdne a neprázdne stĺpce vo vašom súbore údajov v programe Excel a potom môžete jednoducho vybrať a odstrániť prázdne stĺpce.
Toto je ďalší efektívny spôsob odstraňovania prázdnych stĺpcov v programe Excel, najmä ak máte veľa prázdnych stĺpcov, s ktorými môžete pracovať. Naučme sa, ako to urobiť.
Krok 1: Vložte prázdny riadok priamo nad súbor údajov kliknutím pravým tlačidlom myši na záhlavie prvého riadku a výberom položky Vložte z vyskakovacieho zoznamu možností. Tým sa vloží nový riadok nad celý súbor údajov.
Krok 2: Do ľavej bunky pracovného hárka napíšte nasledujúci vzorec,
=COUNTA(A2:A1048576)=0
Tu,
A2 predstavuje prvú bunku súboru údajov,
A1048576 predstavuje maximum riadkov v programe Excel (2007-2019).
Krok 3: Tlač Vstúpte na stránku . Zobrazí sa Pravda ak je stĺpec prázdny, alebo False ak je v celom stĺpci aspoň jedna neprázdna bunka.
Krok 4: Vzorec aplikujte na ostatné stĺpce pretiahnutím Rukoväť náplne .
Krok 5: Teraz prejdite na Domov -> Triedenie & amp; Filter -> Vlastné triedenie .
Krok 6: Z vyskakovacieho okna Triediť kliknite na okno Možnosti potom vyberte Zoradiť zľava doprava z Možnosti triedenia vyskakovacie okno a kliknite na OK .
Krok 7: Kliknite na rozbaľovací zoznam vedľa Zoradiť podľa a z neho vyberte možnosť Riadok 1 .
Krok 8: Kliknite na rozbaľovací zoznam pod Triediť na a vyberte možnosť Hodnoty buniek odtiaľ.
Krok 9: Kliknite na rozbaľovací zoznam pod Objednávka a vyberte možnosť Od najväčšieho po najmenšieho . klikni OK .
Všetky prázdne stĺpce sa presunú na ľavú stranu pracovného hárka.
Krok 10: Odtiaľ stačí vybrať celý súbor údajov s prázdnymi prázdnymi stĺpcami, kliknúť pravým tlačidlom myši a potom vybrať Odstrániť .
Krok 11: Z vyskakovacieho okna Odstrániť vyberte políčko Celý stĺpec z možností. Kliknite na OK .
Tým sa zo súboru údajov odstránia všetky prázdne stĺpce.
Podobné čítanie:
- Ako odstrániť viacero stĺpcov v programe Excel
- Odstránenie duplicitných stĺpcov v programe Excel (6 spôsobov)
- Ako odstrániť dodatočné stĺpce v programe Excel (7 metód)
- Odstránenie stĺpcov v programe Excel bez ovplyvnenia vzorca (dva spôsoby)
3. Pomocou kódu VBA
Ak ste skúsený používateľ programu Excel, potom je táto metóda určená najmä pre vás. Implementácia kódu VBA je najbezpečnejším spôsobom odstránenia prázdnych stĺpcov v programe Excel. Odstráni iba absolútne prázdne stĺpce. Ak niektorý stĺpec obsahuje jedinú hodnotu bunky, dokonca akákoľvek bunka vráti prázdny reťazec, stále bude celý stĺpec úplne nedotknutý.
Nižšie je uvedený automatizovaný spôsob odstránenia prázdnych stĺpcov v programe Excel.
Krok 1: Tlač Alt + F11 na klávesnici alebo prejdite na kartu Vývojár -> Visual Basic na otvorenie editora jazyka Visual Basic.
Krok 2: Na paneli ponúk kliknite na položku Vložte -> Modul .
Krok 3: Skopírujte nasledujúci kód a vložte ho do okna kódu.
Public Sub DeleteBlankColumns() Dim SrcRange As Range Dim EntrColumn As Range On Error Resume Next Set SrcRange = Application.InputBox( _ "Select a range:", "Delete Blank Columns", _ Application.Selection.Address, Type:=8) If Not (SrcRange Is Nothing) Then Application.ScreenUpdating = False For i = SrcRange.Columns.Count To 1 Step -1 Set EntrColumn = SrcRange.Cells(1, i).EntrColumn IfApplication.WorksheetFunction.CountA(EntrColumn) = 0 Then EntrColumn.Delete End If Next Application.ScreenUpdating = True End If End Sub Krok 4: Tlač F5 na klávesnici alebo na paneli ponúk vyberte Spustiť -> Spustiť podformulár/UserForm Môžete tiež kliknúť na malé Ikona prehrávania na paneli podponúk, aby ste makro spustili.
Krok 5: Vo vyskakovacom dialógovom okne prepnite na pracovný hárok, ktorý vás zaujíma, vyberte požadovaný rozsah a kliknite na tlačidlo OK .
Tým sa z dátovej základne odstránia všetky prázdne stĺpce.
Záver
V tomto článku sme sa venovali trom jednoduchým spôsobom, ako odstrániť prázdne stĺpce v programe Excel. Ukázali sme si, ako používať nástroje na úpravu programu Excel na odstránenie prázdnych stĺpcov, ukázali sme si, ako použiť vzorce na odstránenie prázdnych stĺpcov, a tiež sme implementovali kód VBA na odstránenie prázdnych stĺpcov v programe Excel.
