Sut i ddileu dalen os nad yw enw'r ddalen mewn rhestr?
Gadewch i ni ddweud, mae gen i daflen waith sy'n cynnwys rhestr o enwau dalennau yn y llyfr gwaith yng ngholofn A fel y dangosir isod, ac nid yw rhai enwau dalennau yn y llyfr gwaith yn y rhestr, nawr, rydw i eisiau dileu'r taflenni nad ydyn nhw. yn y rhestr o golofn A. Sut allwn i ddatrys y dasg hon yn Excel yn gyflym ac yn hawdd?
Dileu taflenni nad ydyn nhw mewn rhestr benodol gyda chod VBA
Dileu taflenni nad ydyn nhw mewn rhestr benodol gyda chod VBA
Fel rheol, gallwch wirio enwau'r dalen fesul un, a dileu'r rheini nad ydyn nhw ar y rhestr enwau dalennau. Ond, yma, gallaf siarad am god VBA i ddelio ag ef. Gwnewch fel a ganlyn:
1. Ewch i'r daflen waith sy'n cynnwys y rhestr enwau dalennau, ac yna daliwch y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yna cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Dileu taflenni nad ydyn nhw mewn rhestr
Sub Deletenotinlist()
'Updateby Extendoffice
Dim i As Long
Dim cnt As Long
Dim xWb, actWs As Worksheet
Set actWs = ThisWorkbook.ActiveSheet
cnt = 0
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If Not ThisWorkbook.Sheets(i) Is actWs Then
xWb = Application.Match(Sheets(i).Name, actWs.Range("A2:A6"), 0)
If IsError(xWb) Then
ThisWorkbook.Sheets(i).Delete
cnt = cnt + 1
End If
End If
Next
Application.DisplayAlerts = True
If cnt = 0 Then
MsgBox "Not find the sheets to be seleted", vbInformation, "Kutools for Excel"
Else
MsgBox "Have deleted" & cnt & "worksheets"
End If
End Sub
Nodyn: Yn y cod uchod, A2: A6 yw'r cyfeirnod cell sy'n cynnwys enwau'r ddalen, gallwch ei newid i'ch angen.
3. Ac yna pwyswch F5 yn allweddol i redeg y cod hwn, mae'r taflenni nad ydynt ar y rhestr wedi'u dileu ar unwaith, gweler y screenshot:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!