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

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

A 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 termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja

A megjegyzések rendezése szerint
Hozzászólások (8)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Sokkal egyszerűbbnek találtam, ha az utolsó adatsorom utáni sorba léptem, beírom a "Shift-Ctrl-End" parancsot, hogy kijelölje az összes következő üres sort (sokkal gyorsabb), kattintson a jobb gombbal, és írja be a "minden sor/oszlop törlése" parancsot. A rendszer nem vesztegetett annyi időt az ilyen keresésre, így egy szempillantás alatt tiszta lett, a 20 MB-os fájlok pedig 20 kb-ra csökkentek.
A weboldal moderátora ezt a megjegyzést minimalizálta
a fenti adatok nagyon hasznosak személyes használatra. Köszönöm az útmutatást. M.KARTHIKEYAN :-)
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon hasznos oldal. Köszönöm. :-) Az a kihívásom, hogy vannak fejlécű oszlopaim, de nincs adat abban az oszlopban. Csak a fejléc van jelen. Hogyan lehet törölni azokat az oszlopokat, ahol nincs adat, de a fejléc megvan? :o
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, az Ön által említett dolog nagyon hasznos. Egy kis segítséget szeretnék tőled. Naponta töltünk le néhány fájlt, és pivot segítségével elkészítjük a jelentéseket. Számomra napi feladat és rutinfolyamat. Hogyan tudom megtenni a pivot használata nélkül. Pl.: Ha tegnap készítettem a jelentéseket "A" Excel fájlban. Másnap az "A" Excel fájlban csak lecserélem az új "B" Excel fájl adatait. Ezzel a jelentéssel automatikusan létrejönne? Lehetséges?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Tudna valaki segíteni, hogyan törölhetek üres cellákat egy sorban vagy oszlopban... vegye figyelembe, hogy egész üres oszlop vagy sorok... csak egy üres cellát kell törölnöm egy oszlopban
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló,


próbálja meg megvalósítani az alábbi kódot
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm a nagyon hasznos oldalt, alapvető excel opcióval :)
A weboldal moderátora ezt a megjegyzést minimalizálta
Az összes nevemet törölte a keresztnév oszlopomból! Augugh!
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi