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
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:
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.
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:
- Az összes rejtett sor vagy oszlop törlése az Excel alkalmazásban
- Ha van egy nagy munkafüzete, sok rejtett sorral és oszloppal, és most a rejtett adatok nem érhetők el, akkor mindegyiket törölni szeretné. Hogyan lehetne gyorsan törölni őket?
- Az összes kép vagy más objektum törlése az Excel alkalmazásban
- Ha az összes képet törölni kívánja a Microsoft Excel programból, időigényes lehet az egyes képek kiválasztása és egyesével történő törlése. A következő trükkök megkönnyíthetik az összes kép törlését.
- 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.
- Töröljön minden sort, amely meghatározott szöveget tartalmaz egy oszlopon belül a Google Táblázatokban
- Tegyük fel, hogy van egy adattartománya egy Google-lapon, most törölni szeretné a sorokat az oszlop cellája alapján. Például szeretnék törölni minden olyan sort, amely a „Teljes” szöveget tartalmazza a C oszlopban. Ebben a cikkben arról fogok beszélni, hogyan lehet megoldani azt a Google lapokban.
A legjobb irodai hatékonyságnövelő eszközök
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...
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!