Ugrás a tartalomra

Hogyan lehet gyorsan törölni több üres oszlopot az Excelben?

Néha, amikor adatokat importál a Microsoft Excel programba valamilyen forrásból, például weboldalról, CSV-ből, szövegből stb., Sok üres oszlop lehet. Időigényesnek kell lennie az egyes üres oszlopok egyesével történő törlésének. Ezért néhányan keressük a probléma megoldásának egyszerű módjait. Ez a cikk néhány trükkös tippet gyűjt össze, amelyek segítenek több üres oszlop gyors törlésében.

Több üres oszlop törlése a képlettel ellátott munkalapról

Töröljön több üres oszlopot a VBA kóddal ellátott munkalapról

Hasznos funkcióval töröljön több üres oszlopot a kijelölésből / az aktív munkalapból / az egész munkafüzetből

Töröljön több üres oszlopot egy fejléccel a VBA kód használatával


Több üres oszlop törlése a képlettel ellátott munkalapról

Az Excelben képletet alkalmazhat annak azonosítására, hogy az oszlopok üresek-e vagy sem, majd használja a Fajta funkció az összes üres oszlop rendezéséhez, majd egyszerre törléséhez. Kérjük, tegye a következőket:

1. Adjon hozzá egy új sort az adattartomány tetejéhez, lásd a képernyőképet:

2. Ezután írja be az alábbi képletet az A1 cellába, majd húzza a kitöltő fogantyút a jobb oldalra, hogy ezt a képletet más cellákra is alkalmazhassa. IGAZ jelenik meg, ha az oszlop üres, ellenkező esetben FALSE jelenik meg, lásd a képernyőképet:

=COUNTA(A2:A1048576)=0

3. Ezután válassza ki az adattartományt, beleértve a segítő sort, majd kattintson a gombra dátum > Fajta, lásd a képernyőképet:

4. A kiugrott Fajta párbeszédpanelen kattintson a gombra Opciók gombra, a következőkben Rendezési beállítások párbeszédablakban válassza ki Rendezés balról jobbra opció, lásd a képernyőképeket:

5. Kattints OK gombra a Fajta párbeszédpanelt, majd válassza a lehetőséget Sor 1 tól Sorrend legördülő menüből, és válassza a lehetőséget Sejtértékek ból ből Rendezés be szakaszban válassza Legnagyobb és legkisebb tól Megrendelés szakasz, lásd a képernyőképet:

6. Ezután az összes üres oszlopot rendeztük az adatok bal oldalán, és most csak ki kell választania az összes oszlopot, majd jobb gombbal kattintson a töröl ezen üres oszlopok egyszerre történő törléséhez lásd a képernyőképet:


Töröljön több üres oszlopot a VBA kóddal ellátott munkalapról

Ha VBA makrót szeretne használni, a dolgok sokkal könnyebben mennek. A következő VBA-kód segíthet, kérjük, tegye a következőket:

1. Tartsa lenyomva a más + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modulok Ablak.

VBA-kód: Több üres oszlop törlése a kijelölésből:

Sub DeleteEmptyColumns () 'Updateby Extendoffice
Dim rng As Range Dim InputRng As Range xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox ("Range:", xTitleId, InputRng.Address, Type: = 8) Application.ScreenUpdating = False For i = InputRng.Columns.Count to 1 Step -1 Set rng = InputRng.Cells (1, i) .EntireColumn If Application.WorksheetFunction.CountA (rng) = 0 Ezután rng.Delete End Ha Következő Application.ScreenUpdating = True End Sub

3. megnyomni a F5 gombot a makró futtatásához, válassza ki a kívánt munkaterületet a kiugró párbeszédpanelen. Lásd a képernyőképet:

4. Kattints OK, akkor a kijelölés összes üres oszlopát eltávolítja. Lásd a képernyőképet:


Hasznos funkcióval töröljön több üres oszlopot a kijelölésből / az aktív munkalapból / az egész munkafüzetből

Az Rejtett (látható) sorok és oszlopok törlése hasznossága Kutools az Excel számára segítségével gyorsan eltávolíthat több üres sort vagy oszlopot egyszerre.

tippek:Ennek alkalmazásához Rejtett (látható) sorok és oszlopok törlése funkció, először is le kell töltenie a Kutools az Excel számára, majd gyorsan és egyszerűen alkalmazza a funkciót.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools > töröl > Rejtett (látható) sorok és oszlopok törlése, lásd a képernyőképet:

2. Az Rejtett (látható) sorok és oszlopok törlése párbeszédpanelen adja meg azt a hatókört, amelytől a műveletet alkalmazni kívánja Benéz legördülő lista. (Ha úgy dönt Kiválasztott tartományban, először ki kell választania egy tartományt, amelyet használni szeretne.) Ezután ellenőrizze Oszlopok alatt Típus törlése. És válassza ki Üres oszlopok ból ből Részletes típus. Lásd a képernyőképet:

3. Ezután kattintson OK. Az üres oszlopokat pedig törölték a kiválasztott tartományból. Lásd a képernyőképet:


Töröljön több üres oszlopot egy fejléccel a VBA kód használatával

Előfordulhat, hogy törölni szeretné az összes üres oszlopot, amely csak a fejlécet tartalmazza a munkalapon. A következő VBA-kód kedvezhet Önnek, kérjük, tegye a következőket:

1. Tartsa lenyomva a más + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modulok Ablak.

VBA kód: Töröljön minden üres oszlopot egy fejléccel

Sub deleteblankcolwithheader()
'updateby Extendoffice
    Dim xEndCol As Long
    Dim I As Long
    Dim xDel As Boolean
    On Error Resume Next
    xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    If xEndCol = 0 Then
        MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For I = xEndCol To 1 Step -1
        If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
            Columns(I).Delete
            xDel = True
        End If
    Next
    If xDel Then
        MsgBox "All blank column(s) with only a header row have been deleted.", vbInformation, "Kutools for Excel"
    Else
        MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

3. Ezután nyomja meg az F5 billentyűt a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra, hogy az üres oszlopok fejléccel törlődjenek, lásd a képernyőképet:

4. Ezután kattintson az OK gombra, és az összes üres oszlop, amely csak az aktuális munkalap fejlécét tartalmazza, egyszerre törlődik. Képernyőképek megtekintése:


Relatívabb cikkek:

  • Sorok törlése az Excel háttérszíne alapján
  • Hogyan törölhetett teljes sorokat a háttér színe alapján? Ebben a példában törölnöm kell az összes sort, amely kék háttér színű cellákat tölt be, az alábbi képernyőkép szerint. Ezzel a cikkel néhány kódot kap, amellyel elérheti ezt a feladatot az Excel programban.

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It deleted all my names in my first name column! Auuggh!
This comment was minimized by the moderator on the site
Thanks its very helpful page with basic excel option :)
This comment was minimized by the moderator on the site
Hi, can anyone guide how i can delete blank cells in a row or column...note whole blank column or rows... only blank cell i need to delete in a column
This comment was minimized by the moderator on the site
Hello,


try to implement below code
This comment was minimized by the moderator on the site
Hi, the thing which you are mentioned is so helpfull. I want a small help from your side. Daily am download the some files and using pivot prepared the reports. It is daily task for me and routine process. How can i do it with out using pivot. Ex: If i prepared the reports on yesterday in "A" Excel file. Next day in "A" Excel file just i replace the new "B" Excel file data. By this automatically report would be create? Is it possible?
This comment was minimized by the moderator on the site
Very helpful page. Thank you. :-) My challenge is that I have columns with headers, but no data in that column. Only the header is present. How would one go about deleting columns where there is no data, but the header is there? :o
This comment was minimized by the moderator on the site
the above details are very helpful for my personal use. Thanks for your guidance. M.KARTHIKEYAN :-)
This comment was minimized by the moderator on the site
I found it much simpler to go to the line after my last line of data, enter "Shift-Ctrl-End" to highlight all blank lines that followed(much faster), right click and enter "delete all rows/columns". The system didn't waste so much time searching this way and so it was clean in the blink of an eye and files that were 20 MB were dropped to a size of 20 kb.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations