Cum se șterg coloanele goale cu antet în Excel?
Dacă aveți o foaie de lucru mare care conține mai multe coloane, dar unele dintre coloane conțin doar un antet, iar acum, doriți să ștergeți aceste coloane goale care, cu doar un antet, să afișeze următoarea captură de ecran. Se poate rezolva acest lucru în Excel rapid și ușor?
Ștergeți coloanele goale cu un antet utilizând codul VBA
Ștergeți coloanele goale cu un antet utilizând codul VBA
În Excel, nu există nicio metodă directă pentru a face față acestei lucrări, cu excepția ștergerii lor unul câte unul manual, dar, aici, vă pot introduce un cod, vă rugăm să faceți următoarele:
1. Țineți apăsată tasta ALT + F11 , apoi deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: ștergeți coloanele goale cu un antet:
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. Apoi apăsați F5 tasta pentru a rula acest cod și va apărea o casetă de prompt pentru a vă reaminti că coloanele goale cu antet vor fi șterse, vedeți captura de ecran:
4. Apoi faceți clic pe OK buton, toate coloanele goale cu doar antetul din foaia de lucru curentă sunt șterse simultan.
notițe: Dacă există coloane goale, vor fi șterse și ele.
Ștergeți mai multe coloane goale dintr-un interval / foaie de lucru / registru de lucru cu Kutools pentru Excel
Uneori, trebuie doar să ștergeți coloanele goale, fișierul Kutools pentru Excel'S Ștergeți rândurile și coloanele ascunse (vizibile) utilitarul vă poate ajuta să terminați cu ușurință această sarcină.
Kutools pentru Excel : cu mai mult de 300 de programe de completare Excel la îndemână, gratuit pentru a încerca fără limitări în 30 de zile. |
După instalare Kutools pentru Excel, vă rugăm să faceți următoarele:
1. Selectați intervalul de coloane care include coloanele goale care trebuie șterse.
2. Apoi apasa Kutools > Șterge > Ștergeți rândurile și coloanele ascunse (vizibile), vezi captura de ecran:
3. În Ștergeți rândurile și coloanele ascunse (vizibile) caseta de dialog, puteți selecta domeniul de ștergere din meniul derulant Privire în după cum doriți, selectați Coloane de la Ștergeți tipul secțiune, apoi alegeți Coloane goale de la Tipul detaliat secțiune, vezi captura de ecran:
4. Apoi apasa Ok și doar coloanele goale sunt șterse simultan. Vedeți captura de ecran:
sfaturi: Cu această funcție puternică, puteți șterge, de asemenea, rânduri goale, coloane sau rânduri vizibile, coloane ascunse sau rânduri după cum aveți nevoie.
Faceți clic pe Descărcare gratuită Kutools pentru Excel acum!
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!