Nwlapcug.com


Come copiare tra fogli in Excel e VBA

Come copiare tra fogli in Excel e VBA


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

Aggiungere il codice riportato di seguito per selezionare Foglio2 e incollare i dati copiati dal Foglio1:

Sheets("Sheet2").Select

Range("A2").Select

ActiveSheet.Paste6

Selezionare i dati nella cella A1 e copiarlo aggiungendo il codice seguente:

Range("A1").Select

Selection.Copy7

Incollare i dati copiati da Foglio2 aggiungendo il codice seguente:

Sheets("Sheet1").Select

Range("A2").Select

ActiveSheet.Paste8

Terminare la procedura aggiungendo "End Sub". Premere "F5" per eseguire la routine sub.