At være i stand til at kopiere data fra ét regneark til en anden i Excel sparer brugeren tid, da han ikke behøver at kopiere den manuelt. Den bedste måde at kopiere data mellem ark er at bruge systemets udklipsholder . I VBA kan du bruge "Select " ejendom for at vælge et regneark , og du kan bruge " Selection " objekt til at kopiere data til systemets udklipsholder . "Indsæt "-metoden indsætter indholdet af udklipsholderen på arket , der er valgt i øjeblikket. Instruktioner
1
Klik på " Ark1 " fanen og skriv " data i Ark1 " i A1 . Klik på " Ark2 " og skrive " data i Ark2 " i A1 .
2
Klik på " Udvikler " fanen , klik på " Visual Basic ", og klik på "Indsæt "-menuen. Klik på " Modul " for at indsætte en ny kode modul.
3
Opret en ny sub procedure.
Private Sub copyDataBetweenSheets ( )
4
Føj følgende kode til at vælge Ark1 og kopiere data i A1: . .
Sheets ( " Ark1 " ) Vælg
Range (" A1" ) Vælg
Selection.Copy
5
Føj følgende kode til at vælge Ark2 og indsætte dataene kopieret fra Ark1 : .
Sheets ( " Ark2 " ) Vælg
Range ( . " A2 " ) Vælg
ActiveSheet.Paste
6
Vælg de data i celle A1 og kopiere det ved at tilføje følgende kode : Hej
Range (" A1 " ) Vælg
Selection.Copy
7
Indsæt de data, du har kopieret fra Ark2 ved at tilføje følgende kode : .
Sheets ( " . Ark1 " ) Vælg
Range (" A2 "). Vælg
ActiveSheet.Paste
8
afslutte proceduren ved at tilføje " End Sub ". Tryk på " F5 " for at udføre sub procedure.