Skip to main content

Conas colúin fholamh a scriosadh le ceanntásc in Excel?

Má tá bileog oibre mór agat ina bhfuil ilcholúin, ach níl ach ceanntásc i gcuid de na colúin, agus anois, ba mhaith leat na colúin fholmha seo a scriosadh nach bhfuil ach ceanntásc acu chun an pictiúr seo a leanas a thaispeáint. An féidir é seo a réiteach in Excel go tapa agus go héasca?

scrios colúin bhána le ceanntásc 1

Scrios colúin fholamh le ceanntásc trí chód VBA a úsáid

Scrios ilcholúin fholamh i raon / bileog oibre / leabhar oibre le Kutools for Excel


mboilgeog cheart gorm saighead Scrios colúin fholamh le ceanntásc trí chód VBA a úsáid

In Excel, níl aon mhodh díreach ann chun déileáil leis an bpost seo seachas iad a scriosadh ceann ar cheann de láimh, ach, anseo, is féidir liom cód a thabhairt isteach duit, déan mar a leanas:

1. Coinnigh síos an ALT + F11 eochracha, ansin osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Scrios colúin fholamh le ceanntásc:

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. Ansin brúigh F5 eochair chun an cód seo a rith, agus scaoilfear bosca pras amach le cur i gcuimhne duit go scriosfar na colúin bhána le ceanntásc, féach an scáileán:

scrios colúin bhána le ceanntásc 2

4. Agus ansin cliceáil OK cnaipe, scriostar na colúin bhána go léir nach bhfuil ach ceanntásc orthu sa bhileog oibre reatha ag an am céanna.

nótaí: Má tá colúin bhána ann, scriosfar iad freisin.


mboilgeog cheart gorm saighead Scrios ilcholúin fholamh i raon / bileog oibre / leabhar oibre le Kutools for Excel

Uaireanta, ní gá duit ach na colúin bhána, an Kutools le haghaidh Excel'S Scrios Sraitheanna & Colúin Hidden (Infheicthe) is féidir le fóntais cabhrú leat an tasc seo a chríochnú gan stró.

Kutools le haghaidh Excel : le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. 

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar a leanas le do thoil:

1. Roghnaigh raon na gcolún lena n-áirítear na colúin bhána is gá a scriosadh.

2. Ansin cliceáil Kutools > Scrios > Scrios Sraitheanna & Colúin Hidden (Infheicthe), féach ar an scáileán:

3. Sa an Scrios Sraitheanna & Colúin Hidden (Infheicthe) bosca dialóige, is féidir leat an scóip scriosadh a roghnú ón liosta Féach anuas de réir mar a theastaíonn uait, roghnaigh Colúin ó na Scrios cineál alt, agus ansin roghnaigh Colúin bhána ó na Cineál mionsonraithe alt, féach an pictiúr:

scrios colúin bhána le ceanntásc 4

4. Ansin cliceáil Ok cnaipe, agus ní dhéantar ach na colúin fholamh a scriosadh ag an am céanna. Féach an pictiúr:

scrios colúin bhána le ceanntásc 5

Leideanna: Leis an ngné chumhachtach seo, is féidir leat sraitheanna bána, colúin infheicthe nó as a chéile, colúin fholaithe nó sraitheanna a scriosadh de réir mar is gá duit.

Cliceáil Íoslódáil saor in aisce Kutools le haghaidh Excel Anois!

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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