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 nell'immagine sottostante, hai più fogli di lavoro che contengono "KTE (Vendite) xxx" nel nome del foglio e ora devi sostituire tutto "KTE (Vendite)" con "KTE" in tutti i nomi dei fogli correlati, cosa Puoi fare? Questo articolo introdurrà un metodo VBA per ottenerlo.
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
Si prega di applicare sotto il codice VBA per trovare e sostituire i nomi delle schede dei fogli in Excel. Si prega di fare quanto segue.
1. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi, copia sotto il 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 F5 chiave per eseguire il codice.
4. Quindi a Kutools for Excel si apre la finestra di dialogo, inserisci le parole dei nomi dei fogli che sostituirai e fai clic su OK pulsante. Vedi screenshot:
5. Nella seconda Kutools for Excel finestra di dialogo, immettere la parola da sostituire, quindi fare clic su OK pulsante.
Quindi tutte le parole correlate nei nomi delle schede del foglio vengono sostituite con quella specificata come mostrato nell'immagine sottostante.
Note:: Il codice precedente fa distinzione tra maiuscole e minuscole.
Articoli correlati:
- Come trovare e sostituire tutte le celle vuote con un determinato numero o testo in Excel?
- Come sostituire le virgole con le nuove righe (Alt + Invio) nelle celle in Excel?
- Come creare un codice macro per ottenere la ricerca e la sostituzione del testo in Excel?
- Come trovare il valore in una cella con un elenco separato da virgole in Excel?
- Come trovare l'intersezione di due elenchi di colonne in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!