Hvordan slettes regneark baseret på celleværdi i Excel?
Hvis jeg antager, at jeg har flere regneark i en projektmappe, vil jeg nu slette arkene baseret på celleværdi. For eksempel, hvis den specifikke celle A1 indeholder teksten "KTE", skal alle de ark, som celle A1 har denne tekst, slettes på én gang. Denne artikel kan hjælpe dig med at håndtere denne opgave i Excel.
Slet regneark baseret på celleværdi med VBA-kode
Slet regneark baseret på celleværdi med VBA-kode
Her vil jeg introducere en kode for dig til at slette alle ark, som den specifikke celle har en bestemt værdi, gør venligst som følger:
1. Hold nede i ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Slet regneark baseret på celleværdi:
Sub deletesheetbycell()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Range("A1").Value = shName Then
xWs.delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
Bemærk: I ovenstående kode, A1 er den specifikke celle, som indeholder bestemt tekst, som du vil slette arkene baseret på.
3. Tryk derefter på F5 tasten for at køre denne kode, og en promptboks vises for at minde dig om at indtaste den specifikke værdi, som du vil slette arkene baseret på, se skærmbillede:
4. Og klik derefter på OK knappen, er alle de ark, som celle A1 har teksten KTE, blevet slettet på én gang. Se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!