Essendo in grado di copiare dati da un foglio di lavoro a altro in Excel salva il tempo utente dato che non ha a copiarlo manualmente. Il modo migliore per copiare dati tra fogli è quello di utilizzare gli Appunti di sistema. In VBA, è possibile utilizzare la proprietà di "Select" per selezionare un foglio di lavoro ed è possibile utilizzare l'oggetto di "Selezione" per copiare i dati negli Appunti di sistema. Il metodo di "Incolla" incolla il contenuto degli Appunti nel foglio che è attualmente selezionato.
Istruzioni
1
Fare clic su "Sheet1" scheda e digitare "dati in sheet1" nella cella A1. Fare clic su "Foglio2" e digitare "dati in Foglio2" nella cella A1.
2
Fare clic sulla scheda "Developer", fare clic su "Visual Basic" e scegliere dal menu "Inserisci". Fare clic su "Modulo" per inserire un nuovo modulo di codice.
3
Creare una nuova routine sub.
Private Sub copyDataBetweenSheets()
4
Aggiungere il codice riportato di seguito per selezionare il Foglio1 e copiare i dati in A1:
Sheets("Sheet1").Select
Range("A1").Select
Selection.Copy
5
Aggiungere il codice riportato di seguito per selezionare Foglio2 e incollare i dati copiati dal Foglio1:
Sheets("Sheet2").Select
Range("A2").Select
ActiveSheet.Paste
6
Selezionare i dati nella cella A1 e copiarlo aggiungendo il codice seguente:
Range("A1").Select
Selection.Copy
7
Incollare i dati copiati da Foglio2 aggiungendo il codice seguente:
Sheets("Sheet1").Select
Range("A2").Select
ActiveSheet.Paste
8
Terminare la procedura aggiungendo "End Sub". Premere "F5" per eseguire la routine sub.