Puoi utilizzare una macro per copiare i dati da un foglio di lavoro Excel a un altro foglio nella stessa cartella di lavoro
Vuoi trasferire i contenuti di un'area da un foglio di lavoro all'altro? È facile da fare con l'uso interattivo di Excel. Ma come si fa il lavoro con una macro? Crea un ciclo che itera su tutte le celle che vuoi copiare. Ecco come appare la macro:
Area di copia secondaria ()
Dim Quelltab come foglio di lavoro
Dim target tab Come foglio di lavoro
Cella fioca come intervallo
Contatore scuro quanto più a lungo
Contatore = 1
Intervallo = "A1: A10"
Imposta scheda origine = ActiveWorkbook.Worksheets ("Tabella1")
Imposta scheda di destinazione = ActiveWorkbook.Worksheets ("Tabella2")
Per ogni cella in SourceTab.Range ("A1: A10")
Celle della tabella di destinazione (contatore, 1) = cella
Contatore = contatore + 1
Cella successiva
Fine sottotitolo
Nella definizione della variabile "Scheda sorgente", si specifica il nome della tabella di origine all'interno della cartella di lavoro. Questo è il foglio di lavoro da cui vuoi copiare i dati. Nella macro è il foglio "Tabella1".
Utilizzare il tag "Scheda Target" per definire il nome del foglio di lavoro in cui si desidera copiare i dati.
L'area A1: A10 viene copiata nella macro. Se si desidera utilizzare un'area diversa, regolare la macro di conseguenza.
Si utilizza il tag "Contatore" per controllare la riga nella tabella di destinazione in cui deve iniziare l'inserimento delle celle. I dati vengono copiati uno sotto l'altro nelle celle
Per inserire la macro, premi ALT F11 in Excel per visualizzare l'editor VBA. Utilizzare il comando INSERT - MODULE per inserire un foglio modulo vuoto. Per avviare la macro direttamente da Excel, utilizzare la combinazione di tasti ALT F8.
Copia un intero foglio di lavoro all'interno di una cartella di lavoro
Hai anche la possibilità di copiare l'intero foglio di lavoro all'interno di una cartella di lavoro utilizzando una macro. Per copiare il foglio attivo della cartella di lavoro corrente alla fine della cartella di lavoro, utilizzare la seguente macro:
Sub CopyActiveTable ()
ActiveSheet.Copy After: = Fogli di lavoro (Worksheets.Count)
Fine sottotitolo
Dopo l'avvio della macro, un foglio di lavoro viene aggiunto alla cartella di lavoro attiva. Questa è la copia del foglio di lavoro che era attivo quando è stata chiamata la macro. Per distinguere i due fogli di lavoro l'uno dall'altro, Excel crea un numero consecutivo dietro il foglio di lavoro copiato. La figura seguente mostra come appare nel registro della tabella dopo che il foglio di lavoro "Vendite" è stato copiato:
