Tartalomjegyzék
A bemutató megtanítja, hogyan távolíthatja el az üres oszlopokat az Excelben makróval, képlettel és egy gombnyomással.
Bármilyen triviálisan hangzik is, az üres oszlopok törlése az Excelben nem olyasmi, amit egy egyszerű egérkattintással el lehet végezni. Két kattintással sem lehet. A munkalap összes oszlopának áttekintése és az üres oszlopok kézzel történő eltávolítása mindenképpen olyasmi, amit el akarunk kerülni. Szerencsére a Microsoft Excel rengeteg különböző funkciót biztosít, és ezek használatávalfunkciók kreatív módon szinte bármilyen feladattal megbirkózhatsz!
Gyors módja az üres oszlopok törlésének, amelyeket soha nem szabadna használnia
Amikor az Excelben az üres cellák (akár üres cellák, sorok vagy oszlopok) eltávolításáról van szó, számos online forrás a Tovább a Special oldalra > Vaktöltények parancs. Soha ne csináld ezt a feladatlapokon!
Ez a módszer ( F5 > Különleges... > Vaktöltények ) megtalálja és kiválasztja minden üres cellát a tartományban:
Ha most a jobb gombbal kattint a kijelölt cellákra, és kiválasztja a Törölje a címet. > Teljes oszlop , az összes olyan oszlop, amely tartalmazza legalább egy üres cella Ha véletlenül ezt tette, nyomja meg a Ctrl + Z billentyűkombinációt, hogy mindent visszaszerezzen.
Most, hogy ismeri az Excelben az üres oszlopok törlésének rossz módját, nézzük meg, hogyan kell helyesen csinálni.
Hogyan lehet eltávolítani az üres oszlopokat az Excelben a VBA-val?
A tapasztalt Excel-felhasználók ismerik ezt az ökölszabályt: ne pazaroljon órákat arra, hogy valamit manuálisan csináljon, hanem fektessen néhány percet egy makró megírására, amely automatikusan elvégzi Ön helyett.
Az alábbi VBA makró eltávolítja az összes üres oszlopot a kijelölt tartományban. És ezt biztonságosan teszi - csak a teljesen üres oszlopokat törli. Ha egy oszlop egyetlen cellaértéket tartalmaz, akár egy képlet által visszaadott üres karakterláncot is, az ilyen oszlop érintetlen marad.
Excel makró: üres oszlopok eltávolítása Excel táblából Public Sub DeleteEmptyColumns() Dim SourceRange As Range Dim EntireColumn As Range On Error Resume Next Set SourceRange = Application.InputBox( _ "Select a range:" , "Delete Empty Columns" , _ Application.Selection.Address, Type :=8) If Not (SourceRange Is Nothing ) Then Application.ScreenUpdating = False For i = SourceRange.Columns.Count To 1.Step -1 Set EntireColumn = SourceRange.Cells(1, i).EntireColumn If Application.WorksheetFunction.CountA(EntireColumn) = 0 Then EntireColumn.Delete End If Next Application.ScreenUpdating = True End If End If End SubAz üres oszlopok törlése makró használata
Az alábbi lépésekkel adhatja hozzá a makrót az Excelhez:
- Nyomja meg az Alt + F11 billentyűkombinációt a Visual Basic szerkesztő megnyitásához.
- A menüsoron kattintson a Beillesztés > Modul .
- Illessze be a fenti kódot a Kód ablakba.
- Nyomja meg az F5 billentyűt a makró futtatásához.
- Amikor megjelenik a felugró párbeszédpanel, váltson a kívánt munkalapra, válassza ki a kívánt tartományt, és kattintson az OK gombra:
Ha nem szeretne makrót hozzáadni a munkalapjához, akkor a mintamunkafüzetünkből is futtathatja azt. Íme, hogyan:
- Töltse le az üres oszlopok eltávolítása az Excelben című mintamunkafüzetünket, nyissa meg, és engedélyezze a tartalmat, ha kéri.
- Nyissa meg a saját munkafüzetét, vagy váltson a már megnyitottra.
- A munkafüzetben nyomja meg az Alt + F8 billentyűkombinációt, válassza ki a DeleteEmptyColumns makró, és kattintson a Fuss .
- A felugró párbeszédpanelen jelölje ki a tartományt, és kattintson a OK .
Akárhogy is, a kijelölt tartományban lévő összes üres oszlopot a rendszer eltünteti:
Az üres oszlopok azonosítása és törlése az Excelben egy képlet segítségével
A fenti makró gyorsan és csendben eltávolítja az üres oszlopokat. De ha Ön egy "mindent-ellenőrzés alatt tartok" típusú ember (mint én :), akkor lehet, hogy vizuálisan szeretné látni az eltávolítandó oszlopokat. Ebben a példában először azonosítjuk az üres oszlopokat egy képlet segítségével, hogy gyorsan átnézhesse őket, majd eltávolíthassa az összes vagy néhány oszlopot.
Megjegyzés: Mielőtt bármit véglegesen törölne, különösen egy ismeretlen technika használatával, erősen ajánlom, hogy készítsen egy biztonsági másolat a munkafüzetedben, hogy biztosra menj, ha valami rosszul sülne el.
A biztonsági másolatot biztonságos helyen tárolva hajtsa végre a következő lépéseket:
1. lépés. Új sor beszúrása
Adjon hozzá egy új sort a táblázat tetején. Ehhez kattintson a jobb gombbal az első sor fejlécére, és kattintson a Beillesztés Ne aggódjon az adatok szerkezetének/elrendezésének megbolygatása miatt - ezt a sort később törölheti.
2. lépés: Az üres oszlopok azonosítása
Az újonnan hozzáadott sor bal szélső cellájába írja be a következő képletet:
=COUNTA(A2:A1048576)=0
Ezután másolja a képletet a többi oszlopba a kitöltési fogantyú húzásával.
A képlet logikája nagyon egyszerű: a COUNTA ellenőrzi az oszlopban lévő üres cellák számát a 2. sortól az 1048576. sorig, ami az Excel 2019 - 2007-ben a sormaximum. Ezt a számot összehasonlítja nullával, és ennek eredményeképpen az üres oszlopokban TRUE, a legalább egy nem üres cellát tartalmazó oszlopokban pedig FALSE lesz. A relatív cellahivatkozások használata miatt a képlet megfelelően beállítja az egyes oszlopokat.ahol másolva van.
Abban az esetben, ha a munkalapot valaki más számára állítod be, akkor lehet, hogy az oszlopokat értelmesebb módon szeretnéd felcímkézni. Nem probléma, ez könnyen megoldható egy ehhez hasonló IF utasítással:
=IF(COUNTA(A2:A1048576)=0, "Üres", "Nem üres")
Most a képlet kifejezetten jelzi, hogy mely oszlopok üresek és melyek nem:
Tipp. A makróhoz képest ez a módszer nagyobb rugalmasságot biztosít a tekintetben, hogy mely oszlopokat tekintsük üresnek. Ebben a példában az egész táblázatot ellenőrizzük, beleértve a fejléc sort is. Ez azt jelenti, hogy ha egy oszlop csak fejlécet tartalmaz, akkor az ilyen oszlopot nem tekintjük üresnek, és nem töröljük. Ha csak az adatsorokat szeretnénk ellenőrizni. oszlopfejlécek figyelmen kívül hagyása , eltávolítja a fejléc sor(oka)t a céltartományból (A3:A1048576). Ennek eredményeképpen egy olyan oszlop, amelynek van fejléce és nincs benne más adat, üresnek minősül és törlésre kerül. A tartományt az utolsó használt sorra is korlátozhatja, ami esetünkben A11 lenne.
3. lépés: Az üres oszlopok eltávolítása
Ha már van megfelelő számú oszlopunk, egyszerűen kijelölhetjük azokat, amelyek első sorában az "Üres" felirat szerepel (több oszlop kijelöléséhez tartsuk lenyomva a Ctrl billentyűt, miközben az oszlopok betűire kattintunk). Ezután kattintsunk a jobb gombbal bármelyik kijelölt oszlopra, és válasszuk a következő lehetőséget Törölje a címet. a kontextusmenüből:
Ha a munkalapon több tíz vagy több száz oszlop van, érdemes az összes üres oszlopot megjeleníteni. Ehhez a következőket kell tennie:
- Válassza ki a képleteket tartalmazó legfelső sort, lépjen a Adatok tab> Rendezés és szűrés csoport, és kattintson a Rendezés gomb.
- A megjelenő figyelmeztető párbeszédpanelen válassza a Bővítse a választékot , és kattintson a Rendezd...
- Ez megnyitja a Rendezés párbeszédpanelen, ahol a Lehetőségek... gombra, válassza a Rendezés balról jobbra, és kattintson OK .
- Állítson be csak egy rendezési szintet az alábbiakban látható módon, majd kattintson az OK gombra:
- Rendezés: 1. sor
- Rendezés: Cellák értékei
- Rendelés: A-tól Z-ig
Ennek eredményeképpen az üres oszlopok a munkalap bal oldalára kerülnek:
- Jelölje ki az összes üres oszlopot - kattintson az első oszlop betűjére, nyomja le a Shift billentyűt, majd kattintson az utolsó üres oszlop betűjére.
- Kattintson a jobb gombbal a kijelölt oszlopokra, és válassza a Törölje a címet. a felugró menüből.
Kész! Megszabadultál az üres oszlopoktól, és semmi sem akadályozza meg, hogy töröld a felső sort a képletekkel.
Az üres oszlopok eltávolításának leggyorsabb módja az Excelben
A bemutató elején azt írtam, hogy az Excelben nincs egy kattintásos módszer az üres oszlopok törlésére. Valójában ez nem egészen igaz. Azt kellett volna mondanom, hogy nincs beépített módszer. Az Ultimate Suite felhasználóink szó szerint néhány kattintással eltávolíthatják az üres oszlopokat az Excelben :)
A cél munkalapon váltson a Ablebits eszközök fülre, kattintson a Üres betűk törlése és válassza a Üres oszlopok :
Hogy megbizonyosodjon arról, hogy ez nem véletlen kattintás volt, a bővítmény megkérdezi, hogy valóban el akarja-e távolítani az üres oszlopokat az adott munkalapról:
Kattintson a címre. OK , és egy pillanat alatt eltűnik minden üres oszlop!
A fentebb tárgyalt makróhoz hasonlóan ez az eszköz is csak azokat az oszlopokat törli, amelyek teljesen üres Az olyan oszlopok, amelyeknek bármilyen értékük van, beleértve a fejléceket is, megmaradnak.
Üres betűk törlése csak egy a több tíz csodálatos funkció közül, amelyek megkönnyíthetik az Excel-felhasználó életét. Ha többet szeretne megtudni, szívesen látjuk, ha letölti az Ultimate Suite for Excel próbaverzióját.
Az üres oszlopok nem törlődnek! Miért?
Kiadvány : A fenti módszerek mindegyikét kipróbálta, de egy vagy több üres oszlop megrekedt a munkalapon. Miért?
Valószínűleg azért, mert ezek az oszlopok nem igazán üresek. Sokféle, az emberi szem számára láthatatlan karakter lapulhat észrevétlenül az Excel táblázatokban, különösen, ha külső forrásból importált adatokat. Ez lehet egy egyszerű üres karakterlánc vagy egy szóköz karakter, nem törőjeles szóköz vagy más nem nyomtatott karakter.
A bűnös megtalálásához jelölje ki a problémás oszlop első celláját, és nyomja meg a Ctrl + lefelé mutató nyilat . Például az alábbi képernyőképen a C oszlop nem üres, mert a C6-ban egyetlen szóköz karakter van:
Kattintson duplán a cellára, hogy megnézze, mi is van benne valójában, vagy egyszerűen nyomja meg a Delete billentyűt, hogy megszabaduljon az ismeretlen valamitől. Majd ismételje meg a fenti folyamatot, hogy kiderítse, van-e még más láthatatlan dolog is az oszlopban. Érdemes megtisztítani az adatokat a vezető, az utolsó és a nem szaggatott szóközök eltávolításával is.
Köszönöm, hogy elolvastátok, és remélem, jövő héten találkozunk a blogunkon!
