VBA -kopiointikohde (kopioalue toiselle arkille)

Tässä artikkelissa kerrotaan, kuinka VBA: n avulla voidaan kopioida soluväli toiselle arkille tai työkirjaan.

Lisätietoja on VBA -kopiointi- ja liittämisoppaassamme.

Kopioi olemassa olevaan taulukkoon

Voit kopioida solualueen yhdeltä arkilta toiselle, joka on jo olemassa, käyttämällä seuraavaa koodia:

123456

Sub CopyAndPasteActiveSheet.Range ("A1: D10"). ValitseValinta KopioiSheets ("Sheet2"). ValitseActiveSheet.PasteEnd Sub

Tämä kopioi aktiiviselle arkki -alueelle A1: D10 tallennetut tiedot ja liittää ne olemassa olevaan taulukkoon2. Koska emme ole määrittäneet taulukossa 2 valittavaa aluetta, se liittää sen automaattisesti alueelle (”A1”). Se liittää myös kaikki muotoilut taulukkoon 2, joka oli taulukon 1 alueella.

Jos haluamme liittää sen toiseen paikkaan taulukossa 2, voimme valita aloitussolun tai alueen liitettäväksi. Alla oleva koodi liittää tiedot alkaen solusta E2.

1234567

Sub CopyAndPasteToRangeActiveSheet.Range ("A1: D10"). ValitseValinta KopioiSheets ("Sheet2"). ValitseAlue ("E1"). ValitseActiveSheet.PasteEnd Sub

Jos haluat liittää arvot taulukkoon 2 eikä sisällyttää muotoilua, voimme käyttää seuraavaa koodia. Jälleen kerran meidän ei tarvitse määrittää sivun väliä, jos haluamme liittää soluun A1.

123456

Sub CopyAndPasteValuesActiveSheet.Range ("A1: D10"). ValitseValinta KopioiSheets ("Sheet2"). ValitseSelection.PasteSpecial Paste: = xlPasteValuesEnd Sub

Kopioi uudelle taulukolle

Voit kopioida ja liittää uuteen taulukkoon seuraavan koodin avulla:

123456

Sub CopyAndPasteNewSheetActiveSheet.Range ("A1: D10"). ValitseValinta KopioiSheets.Add After: = ActiveSheetActiveSheet.PasteEnd Sub

Voimme kopioida arvoja vain käyttämällä xlPasteValues ​​-arvoa.

Kopioi olemassa olevaan työkirjaan

Jos haluat kopioida ja liittää kokonaan toiseen työkirjaan, voimme joko avata molemmat työkirjat jo tai avata koodin avulla toisen työkirjan ja liittää sen sitten tähän työkirjaan.

Tämä alla oleva koodi kopioidaan olemassa olevaan työkirjaan, joka on jo avoinna.

1234567

Sub CopyAndPasteOlemassa oleva kirjaAlue ("A1: D10"). ValitseValinta KopioiWindows ("CombinedBranches.xlsx"). AktivoiSheets.Add After: = ActiveSheetActiveSheet.PasteEnd Sub

VBA -ohjelmointi | Koodigeneraattori toimii sinulle!

Tämä alla oleva koodi kopioidaan ja liitetään uudelle arkille 2. työkirjassa, joka avataan koodilla.

1234567

Sub CopyAndPasteOpenWorkbookAlue ("A1: D9"). ValitseValinta KopioiTyökirjat.Open Tiedostonimi: = "C: \ ExcelFiles \ CombinedBranches.xlsx"Sheets.Add After: = ActiveSheetActiveSheet.PasteLoppuarkki

VIHJE: korvaa tiedoston nimi työkirjoissa. Avaa argumentti omalla tiedostonimelläsi!

Kopioi uuteen työkirjaan

Voimme myös kopioida ja liittää uuteen työkirjaan.

123456

Sub CopyAndPasteNewWorkbookAlue ("A1: D9"). ValitseValinta KopioiTyökirjat LisääActiveSheet.PasteEnd Sub