VBA kopijavimo paskirties vieta (kopijavimo diapazonas į kitą lapą)

Šiame straipsnyje bus parodyta, kaip naudojant VBA nukopijuoti ląstelių diapazoną į kitą lapą ar darbaknygę.

Norėdami gauti daugiau informacijos, skaitykite mūsų VBA kopijavimo ir įklijavimo pamoką.

Kopijuoti į esamą lapą

Norėdami nukopijuoti ląstelių diapazoną iš vieno lapo į kitą jau esamą lapą, galime naudoti šį kodą:

123456

Sub CopyAndPaste„ActiveSheet.Range“ („A1: D10“). PasirinkitePasirinkimas. KopijuotiSkaičiuoklės („Sheet2“). PasirinkiteActiveSheet.PastePabaiga Sub

Tai nukopijuos informaciją, saugomą aktyviame lapo diapazone A1: D10, ir įklijuos ją į esamą lapą2. Kadangi 2 lape nenurodėme diapazono, kurį reikia pasirinkti, jis automatiškai įklijuos jį į diapazoną („A1“). Jis taip pat įklijuos bet kokį formatavimą į 2 lapą, kuris buvo 1 lapo diapazone.

Jei norime įklijuoti jį į kitą 2 lapo vietą, galime pasirinkti pradinį langelį arba diapazoną, į kurį įklijuoti. Toliau pateiktas kodas įklijuos informaciją, pradedant langeliu E2.

1234567

Sub CopyAndPasteToRange„ActiveSheet.Range“ („A1: D10“). PasirinkitePasirinkimas. KopijuotiSkaičiuoklės („Sheet2“). PasirinkiteDiapazonas („E1“). PasirinkiteActiveSheet.PastePabaiga Sub

Norėdami tiesiog įklijuoti reikšmes į 2 lapą ir neįtraukti formatavimo, galime naudoti šį kodą. Dar kartą norime įklijuoti į langelį A1 neturime nurodyti puslapio diapazono.

123456

Sub CopyAndPasteValues„ActiveSheet.Range“ („A1: D10“). PasirinkitePasirinkimas. KopijuotiSkaičiuoklės („Sheet2“). PasirinkiteSelection.PasteSpecial Paste: = xlPasteValuesPabaiga Sub

Kopijuoti į naują lapą

Norėdami nukopijuoti ir įklijuoti į naują lapą, galime naudoti šį kodą:

123456

Sub CopyAndPasteNewSheet„ActiveSheet.Range“ („A1: D10“). PasirinkitePasirinkimas. KopijuotiSheets.Add After: = ActiveSheetActiveSheet.PastePabaiga Sub

Norėdami tiesiog nukopijuoti reikšmes, galime dar kartą naudoti „xlPasteValues“.

Kopijuoti į esamą darbaknygę

Norėdami visiškai nukopijuoti ir įklijuoti kitą darbaknygę, galime arba jau atidaryti abi darbaknyges, arba naudoti kodą kitai darbaknygei atidaryti, o tada įklijuoti į tą darbaknygę.

Šis toliau pateiktas kodas nukopijuojamas į jau atidarytą darbaknygę.

1234567

Sub CopyAndPasteExistingBookDiapazonas („A1: D10“). PasirinkitePasirinkimas. Kopijuoti„Windows“ („CombinedBranches.xlsx“). SuaktyvinkiteSheets.Add After: = ActiveSheetActiveSheet.PastePabaiga Sub

VBA programavimas | Kodo generatorius jums tinka!

Šis toliau pateiktas kodas nukopijuos ir įklijuos į naują antrosios darbo knygos lapą, kuris bus atidarytas kodu.

1234567

Sub CopyAndPasteOpenWorkbookDiapazonas („A1: D9“). PasirinkitePasirinkimas. KopijuotiDarbaknygės. Atidarykite failo pavadinimą: = "C: \ ExcelFiles \ CombinedBranches.xlsx"Sheets.Add After: = ActiveSheetActiveSheet.PastePabaigos lapas

PATARIMAS: pakeiskite failo pavadinimą darbaknygėse. Atidarykite argumentą savo failo pavadinimu!

Kopijuoti į naują darbaknygę

Taip pat galime nukopijuoti ir įklijuoti į naują darbaknygę.

123456

Sub CopyAndPasteNewWorkbookDiapazonas („A1: D9“). PasirinkitePasirinkimas. KopijuotiDarbaknygės. PridėtiActiveSheet.PastePabaiga Sub