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.

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.

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