Kopier data til en annen arbeidsbok i Excel

Når du manipulerer data i Microsoft Excel, er kommandoen Flytt eller Kopier ark en rask og enkel måte å flytte eller kopiere hele arkene til andre steder, enten i samme fil eller i en annen arbeidsbok. Alternativt kan du bruke VBA (Visual Basic for Applications) til å automatisere oppgaven og gjøre det mye mindre kjedelig.

Denne artikkelen vil introdusere deg til begge metodene for å kopiere data til en annen arbeidsbok i Microsoft Excel.

• Flytt eller kopier data i samme arbeidsbok
• Flytt eller kopier data i forskjellige arbeidsbøker
• Flytt eller kopier data ved hjelp av VBA

Flytt eller kopier data i samme arbeidsbok

Det første trinnet er å velge arket / arkene som du vil flytte eller kopiere. For å velge flere ark, velg du først det første arket, og hold nede Control- tasten mens du klikker på de ekstra arkene du vil kopiere.

I kategorien Startside på den øvre verktøylinjen finner du Celle- gruppen, og klikker Format . Under Organiser ark, klikk på Flytt eller Kopier ark .

En dialogboks åpnes. I listen Før kan du enten klikke på arket som du vil sette inn de flyttede eller kopierte arkene på, eller du kan klikke flytte for å avslutte for å sette inn arkene etter det siste arket i arbeidsboken.

Hvis du vil kopiere arkene i stedet for å flytte dem, velger du Opprett en kopi i dialogboksen Flytt eller Kopier .

Flytt eller kopier data i forskjellige arbeidsbøker

Hvis du vil flytte eller kopiere Excel-regneark til en annen arbeidsbok, må du først sørge for at målboken er åpen i samme versjon av Microsoft Excel.

Velg arkene du vil flytte eller kopiere. Deretter går du til fanen Hjem på verktøylinjen og klikker på Celle- gruppen> Format . Under Organiser ark, klikk på Flytt eller Kopier ark .

En dialogboks åpnes. I listen To book velger du enten å flytte eller kopiere de valgte arkene til en eksisterende arbeidsbok eller for å flytte eller kopiere arkene til en ny arbeidsbok.

I listen Før kan du enten klikke på arket som du vil sette inn de flyttede eller kopierte arkene på, eller du kan klikke flytte for å avslutte for å sette inn arkene etter det siste arket i arbeidsboken.

Flytt eller kopier data ved hjelp av VBA

Sub CopyOpenItems ()
'
'CopyOpenItems Macro
'Kopier åpne elementer til ark.
'
'Tastatursnarvei: Ctrl + Shift + O
'
Dim wbTarget As Workbook 'arbeidsbok der dataene skal limes inn
Dim wbThis As Workbook-arbeidsboken der dataene skal kopieres
Dim strName As String 'navn på kildearket / mål-arbeidsboken
'satt til gjeldende aktiv arbeidsbok (kildeboken)
Angi wbThis = ActiveWorkbook
'få det aktive navnet på boken
strName = ActiveSheet.Name
'Åpne en arbeidsbok med samme navn som arknavnet
Angi wbTarget = Workbooks.Open ("C: \ filepath \" & strName & ".xlsx")
'velg celle A1 på målboken
wbTarget.Range ( "A1"). Velg
'Fjern eksisterende verdier danner målbok
wbTarget.Range ( "A1: M51") ClearContents.
'Aktiver kildeboken
wbThis.Activate
'Fjern noe på utklippstavlen for å maksimere tilgjengelig minne
Application.CutCopyMode = False
'kopier rekkevidden fra kildeboken
wbThis.Range. ( "A12: M62") Copy
'Lim inn dataene på målboken
wbTarget.Range ( "A1"). PasteSpecial
'Fjern noe på utklippstavlen for å maksimere tilgjengelig minne
Application.CutCopyMode = False
'lagre målboken
wbTarget.Save
'lukk arbeidsboken
wbTarget.Close
'Aktiver kildeboken igjen
wbThis.Activate
'klart minne
Angi wbTarget = Ingenting
Angi wbThis = Ingenting
Slutt Sub