VBA -kopieringsdestinasjon (kopieringsområde til et annet ark)

Denne artikkelen vil demonstrere hvordan du bruker VBA til å kopiere en rekke celler til et annet ark eller en arbeidsbok.

For mer informasjon, les vår VBA -veiledning for kopiering og liming.

Kopier til eksisterende ark

For å kopiere en rekke celler fra ett ark til et annet ark som allerede eksisterer, kan vi bruke følgende kode:

123456

Sub CopyAndPasteActiveSheet.Range ("A1: D10"). VelgValg. KopiArk ("Ark2"). VelgActiveSheet. Lim innSlutt Sub

Dette vil kopiere informasjonen som er lagret i det aktive arkområdet A1: D10, og lime det inn i et eksisterende ark2. Siden vi ikke har spesifisert området som skal velges i ark 2, limes det automatisk inn i område ("A1"). Det vil også lime inn enhver formatering i ark 2 som var i området i ark 1.

Hvis vi ønsker å lime den inn på et annet sted i ark 2, kan vi velge startcellen eller området vi vil lime inn på. Koden nedenfor vil lime inn informasjonen som starter i celle E2.

1234567

Sub CopyAndPasteToRangeActiveSheet.Range ("A1: D10"). VelgValg. KopiArk ("Ark2"). VelgOmråde ("E1"). VelgActiveSheet. Lim innSlutt Sub

For å bare lime inn verdiene i ark 2 og ikke inkludere formateringen, kan vi bruke følgende kode. Igjen trenger vi ikke å spesifisere området til side hvis vi ønsker å lime inn i celle A1.

123456

Sub CopyAndPasteValuesActiveSheet.Range ("A1: D10"). VelgValg. KopiArk ("Ark2"). VelgSelection.PasteSpecial Paste: = xlPasteValuesSlutt Sub

Kopier til nytt ark

For å kopiere og lime inn i et nytt ark, kan vi bruke følgende kode:

123456

Sub CopyAndPasteNewSheetActiveSheet.Range ("A1: D10"). VelgValg. KopiArk.Legg til etter: = ActiveSheetActiveSheet. Lim innSlutt Sub

For å bare kopiere verdier kan vi igjen bruke xlPasteValues.

Kopier til eksisterende arbeidsbok

For å kopiere og lime inn i en annen arbeidsbok helt, kan vi enten ha begge arbeidsbøkene allerede åpne, eller vi kan bruke koden til å åpne en annen arbeidsbok, og deretter lime den inn i arbeidsboken.

Denne koden nedenfor kopierer til en eksisterende arbeidsbok som allerede er åpen.

1234567

Sub CopyAndPasteExistingBookOmråde ("A1: D10"). VelgValg. KopiWindows ("CombinedBranches.xlsx"). AktiverArk.Legg til etter: = ActiveSheetActiveSheet. Lim innSlutt Sub

VBA -programmering | Kodegenerator fungerer for deg!

Denne koden nedenfor vil kopiere og lime inn i et nytt ark i en andre arbeidsbok som åpnes av koden.

1234567

Sub CopyAndPasteOpenWorkbookOmråde ("A1: D9"). VelgValg. KopiWorkbooks.Open Filename: = "C: \ ExcelFiles \ CombinedBranches.xlsx"Ark.Legg til etter: = ActiveSheetActiveSheet. Lim innSluttark

TIPS: erstatt navnet på filen i Workbooks.Open -argumentet med ditt eget filnavn!

Kopier til ny arbeidsbok

Vi kan også kopiere og lime inn i en ny arbeidsbok.

123456

Sub CopyAndPasteNewWorkbookOmråde ("A1: D9"). VelgValg. KopiArbeidsbøker.Legg tilActiveSheet. Lim innSlutt Sub