Hogyan lehet törölni az üres oszlopokat a fejléccel az Excelben?
Ha van egy nagy munkalapja, amely több oszlopot tartalmaz, de az oszlopok egy része csak fejlécet tartalmaz, akkor most törölni szeretné azokat a téziseket, amelyek csak fejlécet tartalmaznak, hogy a következő képernyőkép megjelenjen. Gyorsan és egyszerűen megoldható ez az Excel programban?
Törölje az üres oszlopokat egy fejléccel a VBA kód használatával
Törölje az üres oszlopokat egy fejléccel a VBA kód használatával
Az Excelben nincs közvetlen módszer a feladat kezelésére, kivéve, ha egyesével manuálisan törli őket, de itt be tudok vezetni egy kódot, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 gombokat, majd kinyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA-kód: Üres oszlopok törlése fejléccel:
Sub Macro1()
'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 and column(s) with only a header row have now 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 a gombot F5 kulcs 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. Kattintson a gombra OK gombra kattintva az összes üres oszlop, amely csak az aktuális munkalap fejlécét tartalmazza, egyszerre törlődik.
Megjegyzések: Ha vannak üres oszlopok, akkor azok is törlődnek.
Töröljön több üres oszlopot egy tartományban / munkalapon / munkafüzetben a Kutools for Excel segítségével
Néha csak az üres oszlopokat, a Kutools az Excel számára'S Rejtett (látható) sorok és oszlopok törlése segédprogram segítségével könnyedén elvégezheti ezt a feladatot.
Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. |
Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:
1. Válassza ki azt az oszloptartományt, amelybe az üres oszlopokat törölni kell.
2. Ezután kattintson Kutools > töröl > Rejtett (látható) sorok és oszlopok törlése, lásd a képernyőképet:
3. Az Rejtett (látható) sorok és oszlopok törlése párbeszédpanelen kiválaszthatja a törlés hatókörét a Nézd meg legördülő menüből, ha szükséges, válassza Oszlopok tól Típus törlése szakaszban, majd válassza a lehetőséget Üres oszlopok tól Részletes típus szakasz, lásd a képernyőképet:
4. Ezután kattintson Ok gombra, és csak az üres oszlopokat törli egyszerre. Lásd a képernyőképet:
tippek: Ezzel a hatékony funkcióval szükség szerint törölhet üres sorokat, látható oszlopokat vagy sorokat, rejtett oszlopokat vagy sorokat is.
Kattintson a Kutools ingyenes letöltése az Excelhez gombra most!
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!