Hoe bladtabnamen in Excel te vinden en te vervangen?
Het is gemakkelijk om waarden in cellen in Excel te vinden en te vervangen. Maar is er een manier om bladnamen in Excel te vinden en te vervangen? Zoals onderstaand screenshot laat zien, heeft u bijvoorbeeld meerdere werkbladen die "KTE (Sales) xxx" in de bladnaam bevatten, en nu moet u alle "KTE (Sales)" vervangen door "KTE" in alle gerelateerde bladnamen. kan je doen? Dit artikel introduceert een VBA-methode om dit te bereiken.
Zoek en vervang bladtabnamen door VBA-code
Zoek en vervang bladtabnamen door VBA-code
Pas onderstaande VBA-code toe om bladtabnamen in Excel te zoeken en te vervangen. Ga als volgt te werk.
1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. En kopieer vervolgens de VBA-code naar het codevenster.
VBA-code: zoek en vervang bladtabnamen in 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. druk de F5 sleutel om de code uit te voeren.
4. Vervolgens een Kutools for Excel dialoogvenster verschijnt, voer de woorden in van de bladnamen die u wilt vervangen en klik op de OK knop. Zie screenshot:
5. In de tweede Kutools for Excel dialoogvenster, voer het woord in dat u wilt vervangen en klik vervolgens op het OK knop.
Vervolgens worden alle verwante woorden in de namen van de bladtabbladen vervangen door de gespecificeerde woorden zoals hieronder afgebeeld.
Note: De bovenstaande code is hoofdlettergevoelig.
Gerelateerde artikelen:
- Hoe alle lege cellen te vinden en te vervangen door een bepaald nummer of tekst in Excel?
- Hoe komma's te vervangen door nieuwe regels (Alt + Enter) in cellen in Excel?
- Hoe maak je een macrocode om tekst in Excel te vinden en te vervangen?
- Hoe vind ik waarde in een cel met een door komma's gescheiden lijst in Excel?
- Hoe vind je een kruising van twee kolomlijsten in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!