Conas bileoga folmha a bhaint as leabhar oibre

Má cheaptar go bhfuil leabhar mór oibre agat le bileoga iolracha, ach tá roinnt bileoga folmha ann gan aon ábhar sa leabhar oibre seo. Chun an leabhar oibre a dhéanamh níos gairmiúla agus níos foirmiúla, ba mhaith leat na bileoga bána seo a bhaint den leabhar oibre. In áit na bileoga folmha a bhaint ceann ar cheann, tugaim isteach na modhanna chun gach bileog bhán a bhaint go tapa.

Bain bileoga bána le VBA

Bain bileoga bána le Kutools le haghaidh Excel

---

Bain bileoga bána le VBA

Seo a thugann mé VBA isteach chun cabhrú leat gach bileog bhán a bhaint go tapa as leabhar oibre oscailte.

1. Brúigh Alt + F11 eochracha le cumasú Microsoft Visual d’Fheidhmchláir Bhunúsacha fhuinneog.

2. Agus cliceáil Ionsáigh > Modúil, greamaigh faoi bhun chód VBA leis an popped nua Modúil fhuinneog.

VBA: Bain bileoga folmha.

Sub DeletEmptySheets()
'UpdatebyKutoolsforExcel20151130
    Dim xWs As Worksheet
    Dim xAlert As Boolean
    Dim xCount As Long
    xAlert = Application.DisplayAlerts
    Application.DisplayAlerts = False
    If MsgBox("Are you sure to remove all empty sheets?", vbYesNo, "Kutools for Excel") = vbNo Then Exit Sub
    For Each xWs In ActiveWorkbook.Worksheets
        If (Application.CountA(xWs.Cells) = 0) And _
           (xWs.Shapes.Count = 0) Then
            xWs.Delete
            xCount = xCount + 1
        End If
    Next
    MsgBox "You have removed " & xCount & " empty sheet(s)", , "Kutools for Excel"
    Application.DisplayAlerts = xAlert
End Sub

3. Agus brúigh F5 eochair nó Rith cnaipe chun an VBA a fhorghníomhú, agus tagann dialóg amach le cur i gcuimhne duit ar cheart bileoga folmha a bhaint, cliceáil Is ea dul ar bhaint, Uimh chun an VBA seo a chealú.

4. Tar éis cliceáil Is ea, tagann dialóg amach chun líon na mbileog a baineadh a insint duit, cliceáil OK chun é a dhúnadh, agus baineadh na bileoga folmha uile ag an nóiméad seo.

---

Bain bileoga bána le Kutools le haghaidh Excel

I gcás roinnt lámha glasa Excel, is modh sách deacair é an VBA a fhorghníomhú, ach le Kutools le haghaidh Excel'S Scrios Bileoga Oibre Blank feidhm, is féidir leat gach bileog folamh a bhaint go tapa as leabhar oibre le trí chliceáil luch!

Tar éis suiteáil saor in aisce Kutools for Excel, déan mar atá thíos le do thoil:

1. Cumasaigh an leabhar oibre a theastaíonn uait a bhileoga folmha a bhaint, agus cliceáil Kutools Plus > Bileog Oibre > Scrios Bileoga Oibre Blank. Féach an pictiúr:

 

---

Ailt Choibhneasta:

• Conas dúbailtí a chomhaireamh agus a bhaint de liosta in Excel?
• Conas sreang a scriosadh i ndiaidh an naoú carachtar in Excel?
• Conas téacs a bhaint idir lúibíní / lúibíní in Excel?
• Conas cruthanna líne a bhaint in Excel?

---