Tartalomjegyzék
Ez a cikk megmutatja, hogyan törölheti az üres oszlopokat az Excelben három hatékony és egyszerű módon.
Munkafüzet letöltése
A gyakorlati munkafüzetet innen töltheti le.
Üres oszlopok törlése az Excelben.xlsm fájlban3 egyszerű módja az üres oszlopok törlésének az Excelben
Itt 3 módszert ismerhet meg az üres oszlopok törlésére az Excelben az Excel szerkesztőeszközök, egy képlet és egy VBA-kód alkalmazásával.
1. Az Excel szerkesztőeszközök használatával
1. lépés: Válassza ki az adatkészletet.
2. lépés: Menjen a Home -> Keresés & kiválasztás -> Go To Special .
3. lépés: A Go To Special felugró ablakban válassza a Vaktöltények , majd kattintson a OK .
4. lépés: Az adatkészletből csak az üres cellák lesznek kijelölve. Kattintson az egér jobb gombjával, a felugró opciós listából válassza a Törölje a címet. .
5. lépés: Ezután a felugró ablakból Törölje a címet. box, pick Cellák balra tolása a lehetőségek közül. Kattintson a RENDBEN.
Ezzel az összes üres oszlopot törli az adatkészletből.
Bővebben: Hogyan lehet törölni a nem használt oszlopokat az Excelben?
2. A képlet használatával
Használhatja a COUNTA() képlet az üres oszlopok törléséhez az Excelben. Mi az? COUNTA() formula először azonosítja az üres és nem üres oszlopokat az Excelben lévő adatkészletben, majd onnan könnyedén kiválaszthatja és törölheti az üres oszlopokat.
Ez egy másik hatékony módja az üres oszlopok törlésének az Excelben, különösen akkor, ha sok üres oszloppal kell dolgoznia. Tanuljuk meg, hogyan kell ezt megtenni.
1. lépés: Szúrjon be egy üres sort közvetlenül az adatkészlet fölé az első sor fejlécére jobb gombbal kattintva, majd válassza a következő lehetőséget Beillesztés A felugró opciós listából egy új sort illeszt be a teljes adathalmaz fölé.
2. lépés: Írja a munkalap bal szélső cellájába a következő képletet,
=COUNTA(A2:A1048576)=0
Tessék,
A2 az adathalmaz első celláját jelöli,
A1048576 az Excelben (2007-2019) a sormaximumot jelenti.
3. lépés: Sajtó Írja be a címet. . Megjelenik Igaz ha az oszlop üres, vagy Hamis ha az egész oszlopban van legalább egy nem üres cella.
4. lépés: Alkalmazza a képletet a többi oszlopra is a Töltse ki a fogantyút .
5. lépés: Most menj a Home -> Rendezés és szűrés -> Egyéni rendezés .
6. lépés: A felugró ablakból Rendezés ablakban kattintson a Opciók gombot. Ezután válassza ki a Rendezés balról jobbra a Rendezési lehetőségek felugró ablakot, és kattintson a OK .
7. lépés: Kattintson a legördülő mezőre a Rendezés címke, majd válassza ki a 1. sor .
8. lépés: Kattintson a legördülő mezőre a Rendezés címke és válassza ki az opciót Cell értékek onnan.
9. lépés: Kattintson a legördülő mezőre a Megrendelés címke és válassza ki az opciót A legnagyobbtól a legkisebbig . OK .
Ez az összes üres oszlopot a munkalap bal oldalára tolja.
10. lépés: Onnan csak válassza ki az üres üres oszlopok teljes adathalmazát, kattintson a jobb gombbal, majd válassza a Törölje a címet. .
11. lépés: A felugró ablakból Törölje a címet. mezőben válassza ki a Teljes oszlop a lehetőségek közül. Kattintson a OK .
Ezzel az összes üres oszlopot törli az adatkészletből.
Hasonló olvasmányok:
- Több oszlop törlése az Excelben
- Duplikált oszlopok törlése az Excelben (6 mód)
- Hogyan törölhetünk extra oszlopokat az Excelben (7 módszer)
- Oszlopok törlése az Excelben a képlet befolyásolása nélkül (kétféleképpen)
3. VBA-kód használatával
Ha Ön tapasztalt Excel-felhasználó, akkor ez a módszer kifejezetten az Ön számára készült. A VBA-kód végrehajtása a legbiztonságosabb módja az üres oszlopok törlésének az Excelben. Csak a teljesen üres oszlopokat törli. Ha bármelyik oszlop egyetlen cellaértéket tartalmaz, még akkor is, ha bármelyik cella üres karakterláncot ad vissza, még mindig az egész oszlop teljesen érintetlen marad.
Az alábbiakban az Excel üres oszlopok törlésének automatizált módja látható.
1. lépés: Sajtó Alt + F11 a billentyűzeten, vagy lépjen a Fejlesztő -> Visual Basic a Visual Basic szerkesztő megnyitásához.
2. lépés: A menüsorban kattintson a Beillesztés -> Modul .
3. lépés: Másolja ki az alábbi kódot, és illessze be a kódablakba.
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 4. lépés: Sajtó F5 a billentyűzeten, vagy válassza a menüsorból a Fuss -> Sub/UserForm futtatása A kis gombra is kattinthatsz. Lejátszás ikon az almenüsorban a makró futtatásához.
5. lépés: A felugró párbeszédpanelen váltson a kívánt munkalapra, jelölje ki a kívánt tartományt, és kattintson a OK .
Ez az összes üres oszlopot törli az adatbázisból.
Következtetés
Ez a cikk három egyszerű módszert tárgyalt az üres oszlopok törlésére az Excelben. Megmutattuk, hogyan használhatja az Excel szerkesztési eszközeit az üres oszlopok törléséhez, megmutattuk, hogyan alkalmazhatunk képleteket az üres oszlopok törléséhez, és végrehajtottuk a VBA kódot is az üres oszlopok törléséhez az Excelben.
