Note: The other languages of the website are Google-translated. Back to English
English English

 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 delle celle 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 > Moduloe incolla il codice seguente nel file Modulo 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 delle celle 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 subito Kutools per Excel!

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 rinominalo in base ai valori delle celle 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

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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 centinaia di clic del mouse ogni giorno!
fondo officetab
Commenti (2)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Il codice qui sotto funziona benissimo. La mia domanda è: è possibile aprire automaticamente il nuovo foglio di lavoro (basato su A1) ed eliminare il contenuto dal foglio precedente poiché viene utilizzato come modello. Sub Copyrenameworksheet() 'Aggiorna entro 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
Questo commento è stato fatto dal moderatore sul sito
Il tuo codice è quello che stavo cercando, tuttavia il contenuto della cella che desidero utilizzare per rinominare il foglio è una data. Ad esempio, sul primo foglio, la cella A2 visualizza una data come lunedì 3 aprile 2017. Quello che vorrei che accadesse è quando il foglio successivo viene creato dalla macro sarebbe prendere la data da A2, aggiungere 7 per visualizzare, per esempio, "lunedì 10 luglio 2017" ma rinomina il nuovo foglio nel formato gg-mm-aa, quindi "10-07-17". È possibile? A proposito, ho Kutools per Excel, ma questo foglio di calcolo sarà un record di pressione sanguigna per mio padre che non ha Kutools. Grazie in anticipo!
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite