Come trovare e sostituire i nomi delle schede dei fogli in Excel?

È facile trovare e sostituire i valori nelle celle in Excel. Ma esiste un modo per trovare e sostituire i nomi dei fogli in Excel? Ad esempio, come mostrato nello screenshot sottostante, hai più fogli di lavoro che contengono “KTE(Vendite) xxx” nel nome del foglio, e ora devi sostituire tutti i “KTE(Vendite)” con “KTE” in tutti i nomi dei fogli correlati. Cosa puoi fare? Questo articolo introdurrà un metodo VBA per raggiungere questo obiettivo.

Trova e sostituisci i nomi delle schede dei fogli con il codice VBA

Trova e sostituisci i nomi delle schede dei fogli con il codice VBA

Applica il seguente codice VBA per trovare e sostituire i nomi delle schede dei fogli in Excel. Procedi come segue.

1. Premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo. Dopodiché, copia il seguente codice VBA nella finestra del codice.

Codice VBA: trova e sostituisci i nomi delle schede dei fogli 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. Premi il tasto F5 per eseguire il codice.

4. Successivamente, apparirà una finestra di dialogo di Kutools for Excel, inserisci le parole dei nomi dei fogli che desideri sostituire e clicca sul pulsante OK. Vedi screenshot:

5. Nella seconda finestra di dialogo di Kutools for Excel, inserisci la parola con cui vuoi sostituire e poi clicca sul pulsante OK.

Tutte le parole correlate nei nomi delle schede dei fogli verranno sostituite con quella specificata, come mostrato nello screenshot sottostante.

Nota: Il codice sopra è sensibile alle maiuscole/minuscole.

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!

Articoli correlati:

• Come trovare e sostituire tutte le celle vuote con un certo numero o testo in Excel?
• Come sostituire le virgole con nuove righe (Alt + Invio) nelle celle in Excel?
• Come creare un codice macro per trovare e sostituire il testo in Excel?
• Come trovare un valore in una cella con una lista separata da virgole in Excel?
• Come trovare l'intersezione di due liste di colonne in Excel?