Jak usunąć arkusz, jeśli nazwa zawiera określony tekst ze skoroszytu?
Przypuśćmy, że masz skoroszyt, który zawiera wiele arkuszy roboczych, a teraz chcesz usunąć arkusze według nazw kart. Na przykład, jeśli nazwa arkusza zawiera określony tekst „KTE”, usuń go, a następnie uzyskaj następujący zrzut ekranu. Jak możesz usunąć arkusze, jeśli nazwa zawiera konkretny tekst natychmiast, bez usuwania ich jeden po drugim?
Usuń arkusze, jeśli nazwa zawiera określony tekst z kodem VBA
Usuń arkusze, jeśli nazwa zawiera określony tekst z kodem VBA
Tutaj utworzę kod VBA, abyś mógł usunąć arkusze według nazwy, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Usuń arkusze, jeśli nazwa zawiera określony tekst
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu i pojawi się okno zachęty przypominające o wprowadzeniu określonego tekstu, na podstawie którego chcesz usunąć kartę arkusza, patrz zrzut ekranu:
4. A następnie kliknij OK, wszystkie arkusze, których nazwa zawiera określony tekst „KTE”, zostały natychmiast usunięte. Zobacz zrzut ekranu:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!