Kako najti in zamenjati imena zavihkov listov v Excelu?

V Excelu je enostavno najti in zamenjati vrednosti v celicah. Toda ali je v Excelu mogoče najti in zamenjati imena listov? Na primer, kot je prikazano na spodnji sliki zaslona, ​​imate več delovnih listov, ki v imenu lista vsebujejo "KTE (prodaja) xxx", zdaj pa morate v vseh povezanih imenih listov zamenjati vse "KTE (prodaja)" z "KTE". ali lahko? Ta članek bo predstavil metodo VBA za njegovo dosego.

Poiščite in zamenjajte imena zavihkov listov s kodo VBA

Poiščite in zamenjajte imena zavihkov listov s kodo VBA

Prosimo, uporabite spodaj kodo VBA za iskanje in zamenjavo imen zavihkov listov v Excelu. Naredite naslednje.

1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte spodnjo kodo VBA v okno s kodo.

Koda VBA: poiščite in zamenjajte imena zavihkov listov v Excelu

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. Pritisnite F5 tipko za zagon kode.

4. Nato a Kutools za Excel Pojavi se pogovorno okno, vnesite besede imen listov, ki jih boste zamenjali, in kliknite na OK . Oglejte si posnetek zaslona:

5. V drugem Kutools za Excel v pogovorno okno vnesite besedo, s katero boste zamenjali, in kliknite OK gumb.

Nato se vse sorodne besede v imenih zavihkov listov nadomestijo z določeno, kot je prikazano spodaj.

Opombe: Zgornja koda razlikuje med velikimi in malimi črkami.

Sorodni članki:

• Kako najti in nadomestiti vse prazne celice z določeno številko ali besedilom v Excelu?
• Kako v celicah v Excelu zamenjati vejice z novimi vrsticami (Alt + Enter)?
• Kako ustvariti makro kodo za iskanje in zamenjavo besedila v Excelu?
• Kako najti vrednost v celici s seznamom, ločenim z vejico v Excelu?
• Kako najti presečišče dveh seznamov stolpcev v Excelu?