Jak najít a nahradit názvy záložek listů v aplikaci Excel?
Je snadné najít a nahradit hodnoty v buňkách v aplikaci Excel. Existuje ale nějaký způsob, jak najít a nahradit názvy listů v aplikaci Excel? Například, jak je ukázáno níže, máte několik pracovních listů, které obsahují „KTE (prodej) xxx“ v názvu listu, a nyní musíte nahradit všechny „KTE (prodej)“ za „KTE“ ve všech souvisejících názvech listů, co můžeš udělat? Tento článek představí metodu VBA, jak toho dosáhnout.
Najděte a nahraďte názvy záložek listů kódem VBA
Najděte a nahraďte názvy záložek listů kódem VBA
Chcete-li najít a nahradit názvy karet listů v aplikaci Excel, použijte níže uvedený kód VBA. Postupujte prosím následovně.
1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. A pak zkopírujte níže uvedený kód VBA do okna kódu.
Kód VBA: vyhledejte a nahraďte názvy záložek listů v aplikaci 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. zmáčkni F5 klíč ke spuštění kódu.
4. Pak a Kutools pro Excel Zobrazí se dialogové okno, zadejte slova názvů listů, které nahradíte, a klikněte na OK knoflík. Viz screenshot:
5. Ve druhé Kutools pro Excel V dialogovém okně zadejte slovo, které nahradíte, a poté klikněte na OK .
Poté jsou všechna související slova v názvech karet na kartě nahrazena zadaným, jak je uvedeno níže.
Poznámka: Výše uvedený kód rozlišuje velká a malá písmena.
Související články:
- Jak najít a nahradit všechny prázdné buňky určitým číslem nebo textem v aplikaci Excel?
- Jak nahradit čárky novými řádky (Alt + Enter) v buňkách v aplikaci Excel?
- Jak vytvořit kód makra k dosažení hledání a nahrazení textu v aplikaci Excel?
- Jak najít hodnotu v buňce se seznamem odděleným čárkami v aplikaci Excel?
- Jak najít průnik dvou seznamů sloupců v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!