Hvordan finder jeg og erstatter arknavne i Excel?
Det er let at finde og erstatte værdier i celler i Excel. Men er der nogen måde at finde og erstatte arknavne i Excel? For eksempel, som vist nedenstående skærmbillede, har du flere regneark, der indeholder "KTE (Salg) xxx" i arknavnet, og nu skal du erstatte alle "KTE (Salg)" med "KTE" i alle relaterede arknavne, hvad kan du gøre? Denne artikel introducerer en VBA-metode for at opnå det.
Find og erstat arknavne med VBA-kode
Find og erstat arknavne med VBA-kode
Anvend nedenstående VBA-kode for at finde og erstatte navne på arkfaner i Excel. Gør som følger.
1. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Og kopier derefter under VBA-koden i kodevinduet.
VBA-kode: find og erstat navne på arkfaner i 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 Sub3. Tryk på F5 nøgle for at køre koden.
4. Derefter a Kutools til Excel dialogboksen dukker op, indtast venligst ordene på de arknavne, du vil erstatte, og klik på OK knap. Se skærmbillede:
5. I det andet Kutools til Excel dialogboksen, skal du indtaste det ord, du vil erstatte med, og derefter klikke på OK .
Derefter erstattes alle relaterede ord i arknavne navne med specificeret som vist nedenstående skærmbillede.
Bemærk: Ovenstående kode er skift mellem store og små bogstaver.
Relaterede artikler:
- Hvordan finder jeg og erstatter alle tomme celler med bestemt antal eller tekst i Excel?
- Hvordan udskiftes kommaer med nye linjer (Alt + Enter) i celler i Excel?
- Hvordan oprettes en makro kode for at opnå find og erstat tekst i Excel?
- Hvordan finder man værdi i en celle med kommaadskilt liste i Excel?
- Hvordan finder jeg skæringspunktet mellem to kolonnelister i Excel?
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!
