Salt la conținutul principal

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?

doc șterge coloane goale cu antetul 1

Ștergeți coloanele goale cu un antet utilizând codul VBA

Ștergeți mai multe coloane goale dintr-un interval / foaie de lucru / registru de lucru cu Kutools pentru Excel


săgeată albastru dreapta balon Ș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:

doc șterge coloane goale cu antetul 2

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.


săgeată albastru dreapta balon Ș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:

doc șterge coloane goale cu antetul 4

4. Apoi apasa Ok și doar coloanele goale sunt șterse simultan. Vedeți captura de ecran:

doc șterge coloane goale cu antetul 5

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

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Î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...

Descriere


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!
Comments (10)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
All I keep getting is "There are no Columns to delete as each one has more data (rows) than just a header." Yet I know for a fact I have about 700 columns with a header and no data. I have a spreadsheet with over 900 columns and only 200ish have data below the header. Another macro worked but I had to delete the header row. So I know this macro is not working correctly. What's up?
This comment was minimized by the moderator on the site
Hello, Paul
The VBA code works well if there is only one header row in the worksheet, if there are two or more header rows, it will pop out the prompt message you said.
So you need to check out if there are hidden heading rows in your data.
Thank you!
This comment was minimized by the moderator on the site
Hello, I have the same issue, I know by fact that I have a lot of columns that have only headers but the same Error "There are no Columns to delete as each one has more data (rows) than just a header." and I have checked there are no hidden rows in the data.
Can anyone help me ?
This comment was minimized by the moderator on the site
Hi, Simoch
In this case, you can upload your Excel file attachment here, so that we can help to check the problem if you don't mind.
Thank you!
This comment was minimized by the moderator on the site
Dear skyyang no need, It worked perfecty now !! thank you so much for that VBA code !
Rated 5 out of 5
This comment was minimized by the moderator on the site
Amazing! You are correct. There must have been something hidden. Everything is working great now. Thank you so much for the quick reply.
This comment was minimized by the moderator on the site
Can this be saved in one spreadsheet and run on other files?
This comment was minimized by the moderator on the site
Works perfectly. Greatly appreciated
This comment was minimized by the moderator on the site
OMG, this is genius!!! thank you
This comment was minimized by the moderator on the site
Hi, Thanks for the nice code above. Is it free to use?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations