Skip to main content

Conas gach bileog a scriosadh seachas ceann sonraithe / reatha in Excel?

Chun gach bileog a scriosadh i leabhar oibre Excel seachas bileog ghníomhach shonraithe amháin nó reatha, is féidir leat déileáil leis seo mar atá thíos na modhanna a thaispeántar.

Scrios gach bileog seachas ceann sonraithe le cód VBA
Cliceáil amháin chun na bileoga go léir a scriosadh seachas ceann gníomhach reatha le Kutools for Excel


Scrios gach bileog seachas ceann sonraithe le cód VBA

Le cód VBA faoi bhun, is féidir leat gach bileog a scriosadh i leabhar oibre seachas ceann sonrach in Excel.

1. Brúigh Eile + F11 eochracha ag an am céanna chun an Feidhmchlár Bunúsach Amharc Microsoft fhuinneog.

2. cliceáil Ionsáigh > Modúil, ansin cóipeáil agus greamaigh faoi bhun chód VBA isteach i bhfuinneog an Mhodúil.

Cód VBA: Scrios gach bileog seachas cinn shonraithe

Sub DeleteSheets1()
	Dim xWs As Worksheet
	Application.ScreenUpdating = False
	Application.DisplayAlerts  = False
	For Each xWs In Application.ActiveWorkbook.Worksheets
		If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then
			xWs.Delete
		End If
	Next
	Application.DisplayAlerts = True
	Application.ScreenUpdating = True
End Sub

nótaí:

1. "Sheet1"Agus"Sheet2Is bileoga iad seo ba mhaith leat a choinneáil sa leabhar oibre reatha. Is féidir leat iad a athrú bunaithe ar do chuid riachtanas.

2. Más mian leat gach bileog a scriosadh ach níos mó bileoga a choinneáil, cuir an cód le do thoil Agus xWs.Name <> "d’ainm bileog" roimh an Ansin focal sa séú líne den chód. Mar:

Más xWs.Name <> "Bileog1" Agus xWs.Name <> "Bileog2" Agus xWs.Name <> "ainm do bhileog" Ansin

3. Mura dteastaíonn uait ach bileog amháin a choinneáil agus gach ceann a scriosadh ón leabhar oibre, bain gach ceann díobh le do thoil agus riocht sa chód. Mar shampla, chun bileog1 a choinneáil sa leabhar oibre reatha, ní mór duit an séú cód líne a athrú go: Más xWs.Name <> "Bileog1" Ansin


Scrios gach bileog seachas an ceann gníomhach reatha le Kutools for Excel (Cliceáil amháin)

YIs féidir le ou gach bileog a bhaint go héasca seachas an bhileog ghníomhach reatha gan ach cliceáil amháin a dhéanamh Scrios Gach Bileog Neamhghníomhach fóntais de Kutools le haghaidh Excel.

Roimh iarratas a dhéanamh Kutools le haghaidh Excel, Le do thoil é a íoslódáil agus a shuiteáil ar dtús.

1. cliceáil Kutools Plus > Bileog Oibre > Scrios Gach Bileog Neamhghníomhach

3. Ansin tagann bosca dialóige aníos, má shocraíonn tú gach bileog a scriosadh seachas ceann gníomhach, cliceáil an OK cnaipe, ar shlí eile, cliceáil ar an Cealaigh cnaipe.

Ansin scriostar gach bileog seachas an ceann gníomhach reatha i do leabhar oibre.

  Más mian leat triail saor in aisce (30 lá) a bheith agat ar an bhfóntas seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.


Cuir téacs i lár na gcealla roghnaithe le Kutools le haghaidh Excel

Uirlisí Táirgiúlachta Oifige is Fearr

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

cluaisín kte 201905


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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Loved the code, awesome. Thanks.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations