Kako izbrisati list, če ime vsebuje določeno besedilo iz delovnega zvezka?

Recimo, da imate delovni zvezek, ki vsebuje več delovnih listov, zdaj pa želite liste izbrisati po imenih zavihkov. Če na primer ime lista vsebuje določeno besedilo »KTE«, ga izbrišite in dobite naslednji posnetek zaslona. Kako lahko brišete liste, če ime vsebuje določeno besedilo takoj, ne da bi jih izbrisali enega za drugim?

Izbrišite liste, če ime vsebuje določeno besedilo s kodo VBA

Izbrišite liste, če ime vsebuje določeno besedilo s kodo VBA

Tukaj bom ustvaril kodo VBA, da boste lahko poimensko izbrisali liste, naredite tako:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Če ime vsebuje določeno besedilo, izbrišite liste

Sub Deletebyname()
'Updateby Extendoffice
    Dim shName As String
    Dim xName As String
    Dim xWs As Worksheet
    Dim cnt As Integer
    shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _
                                    ThisWorkbook.ActiveSheet.Name, , , , , 2)
    If shName = "" Then Exit Sub
    xName = "*" & shName & "*"
'    MsgBox xName
    Application.DisplayAlerts = False
    cnt = 0
    For Each xWs In ThisWorkbook.Sheets
        If xWs.Name Like xName Then
            xWs.Delete
            cnt = cnt + 1
        End If
    Next xWs
    Application.DisplayAlerts = True
    MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub

3. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opomnilo, da vnesete določeno besedilo, na podlagi katerega želite izbrisati zavihek lista, glejte posnetek zaslona:

4. In nato kliknite OK, vsi listi, katerih ime vsebuje določeno besedilo “KTE”, so bili hkrati izbrisani. Oglejte si posnetek zaslona: