Jak znaleźć i zamienić nazwy kart arkuszy w programie Excel?
W programie Excel można łatwo znaleźć i zamienić wartości w komórkach. Ale czy istnieje sposób na znalezienie i zastąpienie nazw arkuszy w programie Excel? Na przykład, jak pokazano na poniższym zrzucie ekranu, masz wiele arkuszy roboczych, które zawierają „KTE (Sprzedaż) xxx” w nazwie arkusza, a teraz musisz zastąpić wszystkie „KTE (Sprzedaż)” „KTE” we wszystkich powiązanych nazwach arkuszy, co możesz zrobić? W tym artykule przedstawimy metodę VBA, aby to osiągnąć.
Znajdź i zamień nazwy kart arkuszy na kod VBA
Znajdź i zamień nazwy kart arkuszy na kod VBA
Zastosuj poniższy kod VBA, aby znaleźć i zamienić nazwy kart arkuszy w programie Excel. Wykonaj następujące czynności.
1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. A następnie skopiuj poniższy kod VBA do okna kodu.
Kod VBA: znajdź i zamień nazwy kart arkuszy w programie Excel
Sub Find_replace_sheet_name()
'Update by Extendoffice 2018/5/24
Dim xNum As Long
Dim xRepName As String
Dim xNewName As String
Dim xSheetName As String
Dim xSheet As Worksheet
xRepName = Application.InputBox("Please type in the word you will replace:", "Kutools for Excel", , , , , , 2)
xNewName = Application.InputBox("Please type in the word you will replace with:", "Kutools for Excel", , , , , , 2)
If xRepName = "false" Or xNewName = "false" Then Exit Sub
On Error GoTo ExitLab
For Each xSheet In ActiveWorkbook.Sheets
xSheetName = xSheet.Name
xNum = InStr(1, xSheetName, xRepName)
If xNum > 0 Then
xSheet.Name = Replace(xSheetName, xRepName, xNewName)
End If
ExitLab:
Next
End Sub
3. wciśnij F5 klucz do uruchomienia kodu.
4. Następnie a Kutools dla programu Excel pojawi się okno dialogowe, wprowadź słowa nazw arkuszy, które chcesz zamienić, i kliknij OK przycisk. Zobacz zrzut ekranu:
5. W sekundę Kutools dla programu Excel w oknie dialogowym wprowadź słowo, które chcesz zamienić, a następnie kliknij OK przycisk.
Następnie wszystkie powiązane słowa w nazwach kart arkuszy są zastępowane określonym, jak pokazano na zrzucie ekranu.
Note: W powyższym kodzie rozróżniana jest wielkość liter.
Podobne artykuły:
- Jak znaleźć i zamienić wszystkie puste komórki na określoną liczbę lub tekst w programie Excel?
- Jak zamienić przecinki na nowe linie (Alt + Enter) w komórkach w programie Excel?
- Jak utworzyć kod makra, aby znaleźć i zamienić tekst w programie Excel?
- Jak znaleźć wartość w komórce z listą oddzieloną przecinkami w programie Excel?
- Jak znaleźć przecięcie dwóch list kolumn w programie Excel?
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!