Vai al contenuto principale

Come rinominare i fogli di lavoro in base ai valori delle celle in Excel?

La ridenominazione dei fogli di lavoro viene solitamente applicata nel nostro lavoro Excel, ma hai mai provato a rinominare i fogli di lavoro in base ai valori delle celle? Naturalmente, puoi rinominare i fogli di lavoro manualmente, ma qui questo tutorial introduce alcuni trucchi per rinominare rapidamente più fogli di lavoro in base ai valori delle celle che possono far risparmiare tempo di lavoro.

Rinomina i fogli di lavoro in base a una cella specifica con VBA

Rinomina i fogli di lavoro in base a una cella specifica con Rinomina più fogli di lavoro buona idea 3

Rinomina i fogli di lavoro in base a un intervallo di contenuti di celle con Rinomina più fogli di lavoro buona idea 3


Con sotto VBA, puoi rinominare il foglio di lavoro relativo in base a una cella specifica.

1. Selezionare la cella in cui si desidera rinominare il foglio di lavoro, in questo caso selezionare Cella A1. Vedi screenshot:

doc rinomina foglio di lavoro 1

2. Stampa Alt + F11 chiavi per aprire Microsoft Visual Basic, Applications Edition finestra.

3. Clic inserire > Moduli, quindi incolla sotto il codice VBA nel nuovo Moduli finestra.

VBA: rinomina i fogli di lavoro in base a valori di cella specifici.

Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
    xName = xWs.Range(xRngAddress).Value
    If xName <> "" Then
        xInt = 0
        Set xSSh = Nothing
        Set xSSh = Worksheets(xName)
        While Not (xSSh Is Nothing)
            Set xSSh = Nothing
            Set xSSh = Worksheets(xName & "(" & xInt & ")")
            xInt = xInt + 1
        Wend
        If xInt = 0 Then
            xWs.Name = xName
        Else
            If xWs.Name <> xName Then
                xWs.Name = xName & "(" & xInt & ")"
            End If
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

4. Stampa F5 chiave per eseguire il codice VBA. Quindi tutti i fogli di lavoro sono stati rinominati in base ai valori di cella A1 relativi.

doc rinomina foglio di lavoro 2


Se si dispone di Kutools for Excel, non è necessario salvare il codice VBA, è possibile utilizzare l'estensione Rinomina più fogli di lavoro funzione per rinominare rapidamente tutti i fogli di lavoro in base alle celle relative.

Kutools for Excel, con oltre 300 funzioni utili, rende il tuo lavoro più facile. 

Dopo shavasana, sedersi in silenzio; saluti; installazione gratuita Kutools per Excel, per favore fai come di seguito:

1. Abilitare la cartella di lavoro in cui si desidera rinominare i nomi dei fogli di lavoro.

2. Clic Kutools Plus > Foglio di lavoro > Rinomina fogli di lavoro. Vedi screenshot:

doc rinomina foglio di lavoro 11

3. Quindi, nella finestra di dialogo visualizzata, seleziona i fogli in cui desideri rinominare Fogli di lavoro e selezionare uno dei file Rinomina opzione hai bisogno, qui sostituirò il nome del foglio, quindi controllerò Rinomina i fogli di lavoro con una cella specificae seleziona la cella con cui devi rinominare. Vedi screenshot:

doc rinomina foglio di lavoro 9

4. Clic Ok. Ora i fogli vengono rinominati con contenuti di celle specifici.

doc rinomina foglio di lavoro 2

Ma a volte, ciò di cui hai bisogno è rinominare più fogli di lavoro in base a un intervallo di valori di cella come mostrato nell'immagine sottostante, in questo caso puoi scegliere sotto il metodo.

doc rinomina foglio di lavoro 3


Con Rinomina più fogli di lavoro of Kutools for Excel, puoi anche rinominare i fogli in base a un intervallo selezionato.

Dopo shavasana, sedersi in silenzio; saluti; installazione gratuita Kutools per Excel, per favore fai come di seguito:

1. Clic Kutools Plus > Foglio di lavoro > Rinomina fogli di lavoro. Vedi screenshot:

doc rinomina foglio di lavoro 11

2. Nel Rinomina più fogli di lavoro finestra di dialogo, è necessario specificare le impostazioni come queste:

(1) Seleziona i fogli di lavoro da cui devi rinominare Elenco dei fogli di lavoro;

(2) Verifica Dalla gamma specifica opzione e seleziona i valori della cella che devi rinominare in base a;

(3) Specificare il file Rinomina opzioni, Puoi controllare Inserisci prima del nome del foglio originale, Inserisci dopo il nome del foglio originale, o Sostituisci il nome del foglio originalee puoi visualizzare in anteprima il risultato corrispondente nella finestra di dialogo.

doc rinomina foglio di lavoro 10

3. Clic Ok, quindi puoi vedere tutti i fogli di lavoro selezionati che sono stati rinominati in base ai valori di cella specificati.

Sostituisci il nome del foglio originale

doc rinomina foglio di lavoro 6

Inserisci prima del nome del foglio originale

doc rinomina foglio di lavoro 7

Inserisci dopo il nome del foglio originale

doc rinomina foglio di lavoro 8

Con l'utilità Rinomina fogli di lavoro, puoi anche rinominare i fogli di lavoro con un prefisso o suffisso specifico. Fare clic qui per saperne di più su Rinomina più fogli di lavoro.

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

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...

Descrizione


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!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Every time I look for a VBA routine and find an article like this from you guys, I try the sample code and it NEVER works. It always goes into Debug on the first try. I am starting to believe you deliberately publish poorly written code to drive people to try and purchase your Add-in.
This comment was minimized by the moderator on the site
Hi, Don, the VBA has updated twice, it may be works for most of conditions, but not for the all. 
This comment was minimized by the moderator on the site
In the VBA code example, what changes would be made to select A2 as the cell value rather than A1?
This comment was minimized by the moderator on the site
Hi, Henry, select A2 instead of A1, all sheets will renamed with the value of cell A2.
This comment was minimized by the moderator on the site
'Updateby20150602
This code showing error..............Only works ActiveSheet & RunTime Error 1004 [Object_Worksheet faild]
This comment was minimized by the moderator on the site
Hi, Biplab Das, maybe the original code cannot work at new versions (2013 or later), I have upadated a new code in the tutorial, you could try again.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations