Skip to main content

Conas na bileoga oibre bán go léir in Excel a scriosadh?

Má tá leabhar oibre agat a bhfuil go leor bileoga oibre ann, idir an dá linn, tá roinnt bileoga oibre bán ann. Agus anois ba mhaith leat na bileoga oibre bán a scriosadh chun an comhad a shábháil nó a chartlannú. Conas a d’fhéadfá cuardach a dhéanamh ar na bileoga bána ó iliomad bileoga oibre agus iad a scriosadh go huathoibríoch?

Scrios gach bileog oibre bán le cód VBA

Scrios gach bileog oibre bán le Kutools le haghaidh Excel

mboilgeog cheart gorm saighead Scrios gach bileog oibre bán le cód VBA

Tá sé trioblóideach duit na bileoga oibre bán a sheiceáil agus iad a bhaint ceann ar cheann, ach leis an gcód VBA seo a leanas, is féidir leat gach bileog oibre bán a scriosadh go héasca ag an am céanna.

1. Coinnigh síos an ALT + F11 eochracha, agus 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 i bhfuinneog an Mhodúil.

VBA: scrios gach bileog oibre bán

Fo-DeleteBlankWorksheets () 'Nuashonraigh 20130830 Dim Ws Mar Bhileog Oibre Ar Earráid Atosaigh Ar Aghaidh Iarratas.ScreenUpdating = Feidhmchlár Bréagach.DisplayAlerts = Bréagach Do Gach Ws san Iarratas.Worksheets If Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 Ansin WvesUs. Más Ar Aghaidh Iarratas.ScreenUpdating = True Application.DisplayAlerts = Fo Deireadh Deiridh

3. Ansin brúigh F5 eochair, agus scriostar na bileoga oibre bán go léir ag an am céanna.

mboilgeog cheart gorm saighead Scrios gach bileog oibre bán le Kutools le haghaidh Excel

Mura bhfuil tú eolach ar an gcód VBA, is féidir liom uirlis éasca a thabhairt isteach duit- Kutools le haghaidh Excel, Lena Scrios Bileoga Oibre Blank feidhm, is féidir leat gach bileog oibre folamh a bhaint le cliceáil amháin.

Kutools le haghaidh Excel Cuimsíonn sé níos mó ná 300 uirlis áisiúil Excel. Saor chun triail a dhéanamh gan aon teorannú i 30 lá. Faigh é anois.

Nuair a bheidh Kutools suiteáilte agat le haghaidh Excel, déan na céimeanna seo a leanas le do thoil:

1. Cliceáil Fiontar > Uirlisí Bileog Oibre > Scrios Bileoga Oibre Blank, féach ar an scáileán:

doc-delete-blank-sheet1

2. Agus beidh bosca pras le feiceáil i gcuimhne duit an dteastaíonn uait gach bileog oibre bán a scriosadh nó nach bhfuil, féach an scáileán:

doc-delete-blank-sheet2

3. Ansin cliceáil Is ea, agus scriosadh na bileoga oibre bán go rathúil. Féach screenshots:

doc-delete-blank-sheet3
-1
doc-delete-blank-sheet4

Más mian leat tuilleadh a fháil amach faoin ngné seo, cliceáil le do thoil Scrios Bileoga Oibre Blank.

Airteagal gaolmhar:

Conas bileoga oibre i bhfolach in Excel a scriosadh?

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 (3)
No ratings yet. Be the first to rate!
Salvador Sánchez
Salvador Sánchez
This comment was minimized by the moderator on the site
Estimado, no se si me pueda ayudar. Tengo esta macro precisamente para eliminar hojas vacías, pero no logro hacer que funcione al correrla una sola vez, la tengo que ejecutar dos veces para que borre todas las hojas vacías. Que esta fallando para que haga la tarea de borrar todas las hojas en una sola corrida.

La macro es:

Sub Buscar_Hojas_Vacías_y_Eliminarlas2()

Dim Nhojas As Integer
Dim i As Integer

On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Nhojas = Sheets.Count

For i = 1 To Nhojas

If WorksheetFunction.CountA(Sheets(i).UsedRange) = 0 And Sheets(i).Shapes.Count = 0 Then

Sheets(i).Delete

Else
' Nada
End If
Next i

On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Gracias, espero sus comentarios.
Reply
0
0
SD
SD     Salvador Sánchez
This comment was minimized by the moderator on the site
I cannot speak your language but I see a flaw in your code.
The problem is >> Nhojas = Sheets.Count
And then you depend on Nhojas but when you delete a sheet you do not reduce Nhojas by 1

So just add this line to your code after "Sheets(i).Delete" and before "Else":
Nhojas = Nhojas - 1

Done :)

You have done a good job though, but you need to dry run your code when you try and debug the code.
Reply
0
0
Ems
Ems
This comment was minimized by the moderator on the site
Public member 'WorksheetFunction' on type 'WorkbookClass' not found.
i'm using Interop.Excel
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations