Come trovare e sostituire i nomi delle schede dei fogli in Excel?
È facile trovare e sostituire valori nelle celle in Excel, ma esiste un modo per trovare e sostituire i nomi dei fogli? Ad esempio, come mostrato nello screenshot seguente, si hanno più fogli di lavoro il cui nome contiene «KTE(Vendite) xxx» e ora si desidera sostituire «KTE(Vendite)» con «KTE» in tutti i nomi dei fogli correlati. Cosa si può fare? Questo articolo presenta un metodo VBA per raggiungere l’obiettivo.
Trova e sostituisci i nomi delle schede dei fogli con codice VBA
Trova e sostituisci i nomi delle schede dei fogli con codice VBA
Applichi il seguente codice VBA per trovare e sostituire i nomi delle schede dei fogli in Excel, procedendo come indicato di seguito.
1. Premere i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic, Applications.
2. Nella finestra di Microsoft Visual Basic, Applications, fai clic su Inserisci > Modulo. Quindi, 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 Sub3. Premere il tasto F5 per eseguire il codice.
4. A questo punto compare la finestra di dialogo Kutools per Excel; inserisci le parole presenti nei nomi dei fogli che desideri sostituire e fai clic sul pulsante OK. Vedere lo screenshot:
5. Nella seconda finestra di dialogo Kutools per Excel, inserisci la parola con cui desideri sostituire, quindi fai clic sul pulsante OK.
A questo punto, tutte le parole corrispondenti nei nomi delle schede dei fogli vengono sostituite con quella specificata, come illustrato nello screenshot seguente.
Nota: Il codice riportato sopra fa distinzione tra maiuscole e minuscole.
Sblocca la magia di Excel con KUTOOLS AI
- Esecuzione intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici, il tutto con comandi semplici e intuitivi.
- Formule personalizzate: crea formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA in modo semplice e immediato.
- Interpretazione delle formule: Comprendi con facilità anche le formule più complesse.
- Traduzione del testo: Superate le barriere linguistiche direttamente nei vostri fogli di calcolo.
Articoli correlati:
- Come trovare e sostituire tutte le celle vuote con un numero o un testo specifico in Excel?
- Come sostituire le virgole con interruzioni di riga (Alt + Invio) nelle celle di Excel?
- Come creare una macro per eseguire Trova e sostituisci testo in Excel?
- Come trovare un valore all'interno di una cella che contiene un elenco separato da virgole in Excel?
- Come trovare l'intersezione di due colonne in Excel?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi