VBA koopiate kleepimine | VBA kopeerimise ja kleepimise parimad viisid (koos näidetega)

VBA-sse Kopeeri kleepimine sarnaneb see, mida teeme Exceli töölehel, näiteks võime kopeerida väärtuse ja kleepida selle teise lahtrisse, samuti saame kasutada väärtuste kleepimiseks spetsiaalset kleepimist, samamoodi VBA-s kasutame vahemiku omadusega kopeerimismeetodit kopeerige väärtus ühest lahtrist teise ja väärtuse kleepimiseks kasutame töölehe funktsiooni paste special või paste meetodit.

Kuidas kleepida VBA-sse?

Allpool on toodud mõned näited selle kohta, kuidas kopeerida Excelisse VBA abil.

Põhiline, mida excelis teeme, on see, et kopeerime, lõikame ja kleepime andmed ühest lahtrist teise lahtrisse. See ei vaja ka erilist tutvustamist. Kuigi VBA kodeerimise õppimine on oluline, et mõista sama mõistet kodeerimiskeeles. Copy Paste in VBA on rutiinne ülesanne, mida teeme Excelis igapäevaselt. Esmalt kopeerimiseks peame otsustama, millise lahtri kopeerida.

Näide # 1 - väärtuste kopeerimine ja kleepimine vahemiku objekti abil

Selle VBA Copy Paste Exceli malli saate alla laadida siit - VBA Copy Paste Exceli mall

Oletame, et lahtris A1 on sõna „Excel VBA”.

Oletame näiteks, et kui soovite kopeerida lahtrit A1, saame kasutada objekti VBA RANGE.

Kood:

Alamkoopia_näide () vahemik ("A1"). Lõpeta alam

Kui viidate lahtrile, näeme koos sellega kõiki omadusi ja meetodeid. Seega valige meetod “ Kopeeri ”.

Kood:

 Alamkoopia_näide () vahemik ("A1"). Kopeeri lõigu alamkopeerimine 

Pärast meetodi valimist vajutage tühikuklahvi, et näha meetodi Kopeerimine argumenti.

Seal on kirjas Sihtkoht.

See pole midagi muud, kui kuhu soovite VBA-s väärtused kopeerida ja kleepida, ilma et valiksite meetodi PASTE.

Kui kleepime samale lehele, saame lahtri valida objekti Range abil. Oletame, et kui tahame väärtuse lahtrisse B3 kleepida, võime sihtkoha panna vahemikuks „Range („ B3 ”)” .

Kood:

 Alamkoopia_näide () vahemik ("A1"). Kopeerimise sihtkoht: = vahemik ("B3") Lõpp alam 

See kopeerib lahtrist A1 andmed ja kleebib lahtrisse B3.

Andmete kleepimiseks võime kasutada ka allpool toodud meetodit.

Kood:

 Alamkopeeri_näide () vahemik ("A1"). Kopeerimisvahemik ("B3"). Valige ActiveSheet.Paste End Sub 

Esiteks kopeerime ja valime lahtrist A1 andmed ning kleepime lahtrisse B3.

Näide # 2 - kopeerimine teisele töölehele samas töövihikus

Kui nüüd soovime VBA makro abil erinevatelt töölehtedelt väärtuse kopeerida, siis tuleb argumendis Sihtkoht viidata lehe nimele objekti TÖÖLEHTEDE abil, seejärel mainida selle TÖÖLEHT lahtrite vahemikku. Allpool olev kood täidab selle töö.

Kood:

 Alamkopeeri_näide () vahemik ("A1"). Kopeerimise sihtkoht: = töölehed ("leht2"). Vahemik ("B3") lõpp-alam 

Kui tahame andmed kopeerida konkreetselt lehelt ja tahame kleepida teise kindla lehe juurde, peame mainima mõlemad lehtede nimed.

Esiteks peame mainima kopeerimislehte.

Töölehed ("Sheet1"). Vahemik ("A1"). Kopeeri

Seejärel peame argumendis Sihtkoht mainima lahtri sihitud töölehe nime ja vahemikku.

Sihtkoht: = töölehed ("Sheet2"). Vahemik ("B3")

Nii et kood peaks see meeldima.

Kood:

 Alamkoopia_näide () töölehed ("leht1"). Vahemik ("A1"). Koopia sihtkoht: = töölehed ("leht2"). Vahemik ("B3") lõpp-alam 

Näide # 3 - kopeerimine ühest töövihikust teise töövihikusse

Oleme näinud, kuidas samas töövihikus töölehelt teisele töölehele kopeerida. Kuid saame seda teha ka ühest töövihikust teise.

Heitke pilk allpool olevale koodile.

Kood:

 Alamkoopia_näide () töövihikud ("Book 1.xlsx"). Töölehed ("Sheet1"). Vahemik ("A1"). Töövihikute kopeerimine ("Book 2.xlsx"). Aktiveerige ActiveWorkbook.Worksheets ("Sheet 2"). Valige ActiveSheet.Paste End Sub 

Esiteks kopeerib see lahtrist A1 töövihiku „Book1.xlsx” töölehe „Sheet1” andmed.

" Töövihikud (" Book 1.xlsx "). Töölehed (" Sheet1 "). Range (" A1 "). Copy"

Seejärel aktiveerib see töövihiku “Book 2.xlsx”.

Töövihikud ("Book 2.xlsx"). Aktiveerige

Aktiivses töövihikus valib see töölehe “Leht 2”

ActiveWorkbook.Worksheets ("Sheet 2"). Valige

Nüüd aktiivses lehes see kleebitakse

ActiveSheet. Kleebi

Alternatiivne viis kopeerimispaste kasutamiseks VBA-s

Meil on veel üks alternatiivne viis andmete saamiseks ühest lahtrist teise. Oletame, et teil on lahtris A1 sõna „Excel VBA” ja vajate sama ka lahtrisse B3 tulekuks.

Üks meetod, mida oleme näinud, on VBA kopeerimise ja kleepimise meetodi kasutamine, nüüd näitan teile ühte alternatiivsetest viisidest. Selle mõistmiseks vaadake allolevat koodijuppi.

Kood:

 Alamkoopia_näide1 () Vahemik ("A1"). Väärtus = Vahemik ("B3"). Väärtus Lõpp Alam 

Ülaltoodu ütleb, et ükskõik milline väärtus lahtris A1 peaks olema võrdne lahtris B3 olevaga.

Vahemik ("A1"). Väärtus = Vahemik ("B3"). Väärtus

Ehkki see pole kopeerimise ja kleepimise meetod, lisab meie kodeerimisteadmistele siiski rohkem väärtust.

VBA väärtuste kopeerimise ja kleepimise peamised viisid

Nüüd näeme VBA väärtuste kopeerimise ja kleepimise erinevaid viise. Oletame, et olete lahtris A1, nagu on näidatud alloleval pildil.

  • Kui me tahame kopeerida ja kleepida, peame siin lahtrile viitama, pigem võime kasutada lihtsalt valiku omadust. Kopeerimismeetod.

Kood:

 Alamkoopia_näide1 () valik. Kopeeri sihtkoht: = Vahemik ("B3") Lõpp alam 

VÕI

 Alamkoopia_näide1 () ActiveCell.Copy sihtkoht: = Vahemik ("B3") Lõpp alam 
  • Kui soovite kopeerida kogu töölehe kasutatud vahemiku, võite kasutada allolevat koodi.

Kood:

 Alamkoopia_näide2 () töölehed ("leht1"). UsedRange.Copy sihtkoht: = töölehed ("leht2"). Vahemik ("A1") lõpp-alam 

See kopeerib töölehel “Sheet1” kogu kasutatud vahemiku ja kleepib sama töölehele “Sheet2”