Vai al contenuto principale

 Come copiare il foglio e rinominare in base al valore della cella in Excel?

Normalmente puoi applicare l'estensione Sposta o copia funzione per copiare un foglio di lavoro, quindi digitare manualmente un nuovo nome per la copia di cui hai bisogno. Ma hai mai provato a rinominare il foglio in base al valore di una cella dopo aver copiato il foglio di lavoro? In questo articolo, parlerò di come rinominare automaticamente il foglio di lavoro in base al valore della cella quando fai una copia.

Copia un foglio di lavoro e rinominalo in base al valore della cella con codice VBA

Copia un foglio di lavoro più volte e rinominalo in base ai valori della cella con Kutools per Excel


Copia un foglio di lavoro e rinominalo in base al valore della cella con codice VBA

Il seguente codice VBA può aiutarti a copiare un foglio di lavoro e rinominarlo automaticamente con un valore di cella specifico, per favore fai come segue:

1. Attiva il foglio di lavoro che desideri copiare e quindi tieni premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.

Codice VBA: copia un foglio di lavoro e rinominalo con un valore di cella:

Sub Copyrenameworksheet()
'Updateby Extendoffice
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value <> "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
End Sub

3. E poi premere F5 chiave per eseguire questo codice e il tuo foglio di lavoro corrente è stato copiato nella cartella di lavoro corrente dopo tutti i fogli di lavoro e viene rinominato con il valore della cella specificato, vedi screenshot:

doc copia raname per valore 1

Note:: Nel codice sopra, il riferimento di cella A1 è il valore della cella che vuoi rinominare per il nuovo foglio copiato, puoi cambiarlo secondo le tue necessità.


Copia un foglio di lavoro più volte e rinominalo in base ai valori della cella con Kutools per Excel

Il codice sopra può rinominare solo con un valore di cella, se è necessario copiare il foglio più volte e rinominarlo in base a un elenco di valori di cella, Kutools for Excel'S Crea foglio di lavoro sequenza può aiutarti a completare questa attività il più rapidamente possibile.

Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni. 

Dopo l'installazione Kutools for Excel, si prega di fare come segue:

1. Clic Kutools Plus > Foglio di lavoro > Crea fogli di lavoro per sequenze, vedi screenshot:

doc copia raname per valore 3

2. Nel Crea foglio di lavoro sequenza finestra di dialogo, eseguire le seguenti operazioni:

(1.) Selezionare il nome del foglio di lavoro che si desidera copiare dal file Foglio di lavoro di base menu `A tendina;

(2.) Selezionare l'opzione Dati in un intervallo sotto Nomi dei fogli basati su sezione e fare clic doc copia raname per valore 5 pulsante per selezionare i valori della cella su cui si desidera rinominare i fogli di lavoro copiati.

Scarica Kutools per Excel adesso!

3. Quindi fare clic Ok pulsante e il foglio di lavoro specifico è stato copiato più volte e rinominato con i valori di cella selezionati in una nuova cartella di lavoro, vedi screenshot:

doc copia raname per valore 4

Scarica e prova gratuitamente Kutools per Excel ora!


Demo: copia un foglio di lavoro più volte e rinomina in base ai valori della cella con Kutools per Excel

Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Scarica e prova gratuita ora!

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 (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Your code is what I have been looking for, however the cell contents that I wish to use to rename the sheet is a date. For example, on the first sheet, cell A2 displays a date as Monday 3 April 2017. What I would like to happen is when the next sheet is created by the macro would be to take the date from A2, add 7 to display, for example, "Monday 10 July, 2017" but rename the new sheet in the dd-mm-yy format, so "10-07-17". Is this possible? By the way, I have Kutools for Excel, but this spreasheet will be a blood pressure record for my dad who doesnt have Kutools. Thanks in advance!
This comment was minimized by the moderator on the site
The code below works great. My question is, is it possible to automatically open the new worksheet (based on A1) and delete the content from the previous sheet as it is being used as the template. Sub Copyrenameworksheet() 'Updateby Extendoffice 20160704 Dim ws As Worksheet Set wh = Worksheets(ActiveSheet.Name) ActiveSheet.Copy After:=Worksheets(Sheets.Count) If wh.Range("A1").Value "" Then ActiveSheet.Name = wh.Range("A1").Value End If wh.Activate End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations