Slik kopierer Between Sheets i Excel & VBA

March 31

Å kunne kopiere data fra ett regneark til en annen i Excel sparer brukeren tid siden han ikke trenger å kopiere den manuelt. Den beste måten å kopiere data mellom ark er å bruke systemets utklippstavle. I VBA, kan du bruke "Velg" eiendom for å velge et regneark, og du kan bruke "Selection" objekt for å kopiere data til systemets utklippstavle. Den "Lim inn" metoden limer innholdet på utklippstavlen på arket som er valgt.

Bruksanvisning

1 Klikk på "Ark1" -fanen og skriv "data i Ark1" i A1. Klikk "Ark2" og type "data i Ark2" i A1.

2 Klikk på "Utvikler" fanen, klikk på "Visual Basic," og klikk "Insert" -menyen. Klikk "Module" å sette inn en ny kode modul.

3 Opprett en ny sub prosedyre.

Private Sub copyDataBetweenSheets ()

4 Legg til følgende kode for å velge Ark1 og kopiere dataene i A1:

Sheets("Sheet1").Select

Range ( "A1"). Velg

Selection.Copy

5 Legg til følgende kode for å velge Ark2 og lime inn data kopiert fra Ark1:

Sheets("Sheet2").Select

Range ( "A2"). Velg

ActiveSheet.Paste

6 Velg data i celle A1 og kopier den ved å legge til følgende kode:

Range("A1").Select

Selection.Copy

7 Lim inn dataene du kopierte fra Ark2 ved å legge til følgende kode:

Sheets("Sheet1").Select

Range ( "A2"). Velg

ActiveSheet.Paste

8 Avslutt prosedyren ved å legge til "End Sub". Trykk "F5" for å utføre sub prosedyren.