Kopier data fra ett Excel -ark til et annet ved hjelp av en makro

Anonim

Du kan bruke en makro til å kopiere data fra ett Excel -regneark til et annet ark i samme arbeidsbok

Vil du overføre innholdet i et område fra et regneark til et annet? Det er enkelt å gjøre med den interaktive bruken av Excel. Men hvordan gjør du jobben med en makro? Bygg en løkke som går gjennom alle cellene du vil kopiere. Slik ser makroen ut:

Underkopi område ()
Dim Quelltab Som regneark
Dim målfanen som regneark
Dim Cell As Range
Dim Counter As Long
Teller = 1
Område = "A1: A10"
Angi kildefanen = ActiveWorkbook.Worksheets ("Tabell1")
Angi målfanen = ActiveWorkbook.Worksheets ("Tabell2")
For hver celle i SourceTab.Range ("A1: A10")
Måltabellceller (teller, 1) = celle
Teller = teller + 1
Neste celle
Slutt Sub

I definisjonen av "Kilde -fanen" -variabelen angir du navnet på kildetabellen i arbeidsboken. Dette er regnearket du vil kopiere dataene fra. I makroen er det arket "Tabell1".

Bruk "Mål -fanen" -taggen til å definere navnet på regnearket du vil kopiere dataene til.

Området A1: A10 kopieres i makroen. Hvis du vil bruke et annet område, må du justere makroen deretter.

Du bruker "Counter" -taggen til å kontrollere raden i måltabellen der innsetting av cellene skal begynne. Dataene blir kopiert under cellene

For å gå inn i makroen, trykk ALT F11 i Excel for å åpne VBA -editoren. Bruk kommandoen INSERT - MODULE for å sette inn et tomt modulark. For å starte makroen direkte fra Excel, bruk tastekombinasjonen ALT F8.

Kopier et helt regneark i en arbeidsbok

Du har også muligheten til å kopiere hele regnearket i en arbeidsbok ved hjelp av en makro. Hvis du vil kopiere det aktive arket i den gjeldende arbeidsboken til slutten av arbeidsboken, bruker du følgende makro:

Sub CopyActiveTable ()
ActiveSheet.Copy After: = Regneark (Worksheets.Count)
Slutt Sub

Etter at makroen har startet, legges et regneark til i den aktive arbeidsboken. Dette er kopien av regnearket som var aktivt da makroen ble kalt. For å skille de to regnearkene fra hverandre, oppretter Excel et nummer på rad bak det kopierte regnearket. Følgende figur viser hvordan dette ser ut i tabellregisteret etter at "Salg" -arket er kopiert: