Kopioi liittäminen VBA: ssa on samanlainen kuin mitä teemme excel-laskentataulukossa, kuten voimme kopioida arvon ja liittää sen toiseen soluun, myös voimme käyttää erityistä liittämistä vain arvojen liittämiseen, samalla tavalla VBA: ssa käytämme kopiointimenetelmää alueominaisuuden kopioi arvo solusta toiseen ja liitä arvo käytämme laskentataulukko-funktiota liitä erityinen tai liitä menetelmä.
Kuinka kopioida liitä VBA: hon?
Alla on joitain esimerkkejä siitä, miten voit kopioida ja liittää Excelissä VBA: n avulla.
Perustoiminnot, joita teemme excelissä, on kopiointi, leikkaus ja liittäminen tiedot solusta toiseen soluun. Se ei vaadi myöskään erityistä esittelyä. VBA-koodauksen oppiminen on kuitenkin tärkeää ymmärtää sama käsite koodauskielessä. Copy Paste in VBA on rutiinitehtävä, jonka teemme päivittäin excelissä. Jotta voimme kopioida ensin, meidän on päätettävä kopioitava solu.
Esimerkki # 1 - Kopioi ja liitä arvot käyttämällä Range Objectia
Oletetaan, että solussa A1 on sana "Excel VBA".
Sanotaan esimerkiksi, että jos haluat kopioida solun A1, voimme käyttää VBA RANGE -objektia.
Koodi:
Alikopio_esimerkki () -alue ("A1"). End Sub
Heti kun viittaat soluun, voimme nähdä kaikki sen ominaisuudet ja menetelmät. Joten valitse menetelmä " Kopioi".
Koodi:
Alikopio_esimerkki () -alue ("A1"). Kopioi loppu -alaryhmä
Kun olet valinnut menetelmän, paina välilyöntiä nähdäksesi Kopiointimenetelmän argumentin.
Siinä lukee Kohde.
Tämä ei ole mitään, mutta mihin haluat kopioida ja liittää arvot VBA: ssa valitsemalla PASTE-menetelmää
Jos liitämme saman arkin, voimme valita solun käyttämällä Range-objektia. Sanotaan, jos haluamme liittää arvon B3-soluun, voimme lisätä määränpään "Range (" B3 ")."
Koodi:
Alikopio_esimerkki () Alue ("A1"). Kopiointikohde: = Alue ("B3") Alalohko
Tämä kopioi tiedot solusta A1 ja liittää soluun B3.
Voimme myös käyttää alla olevaa menetelmää tietojen liittämiseen.
Koodi:
Alikopio_esimerkki () -alue ("A1"). Kopiointialue ("B3"). Valitse ActiveSheet.Paste End Sub
Ensin kopioidaan ja valitaan tiedot solusta A1 ja liitetään soluun B3.
Esimerkki # 2 - Kopioi toiselle laskentataulukolle samassa työkirjassa
Jos nyt haluamme kopioida-liittää arvon eri laskentataulukoista VBA-makroa käyttäen, sitten Kohde-argumentissa meidän on viitattava arkin nimeen WORKSHEETS -objektilla ja mainittava sitten kyseisen WORKSHEET-solualue. Alla oleva koodi tekee työn.
Koodi:
Alikopio_esimerkki () Alue ("A1"). Kopioinnin kohde: = Laskentataulukot ("Arkki2"). Alue ("B3") Alalohko
Jos haluamme kopioida tiedot tietyltä arkilta ja haluat liittää toiseen tiettyyn taulukkoon, meidän on mainittava molemmat arkkien nimet.
Ensinnäkin meidän on mainittava kopiointiarkki.
Laskentataulukot ("Arkki1"). Alue ("A1"). Kopioi
Sitten Kohde-argumentissa meidän on mainittava kohdennettu laskentataulukon nimi ja solun alue.
Kohde: = laskentataulukot ("Arkki2"). Alue ("B3")
Joten koodin pitäisi pitää tästä.
Koodi:
Alikopio_esimerkki () Taulukot ("Arkki1"). Alue ("A1"). Kopioinnin kohde: = Laskentataulukot ("Arkki2"). Alue ("B3") Alalohko
Esimerkki # 3 - Kopioi yhdestä työkirjasta toiseen työkirjaan
Olemme nähneet, kuinka kopioidaan laskentataulukosta toiseen taulukkoon samassa työkirjassa. Mutta voimme tehdä tämän myös työkirjasta toiseen.
Katso alla oleva koodi.
Koodi:
SubCopy_Example () Työkirjat ("Kirja 1.xlsx"). Laskentataulukot ("Sheet1"). Alue ("A1"). Kopioi työkirjat ("Book 2.xlsx"). Aktivoi ActiveWorkbook.Worksheet ("Sheet 2"). Valitse ActiveSheet.Paste End Sub
Ensinnäkin se kopioi tiedot työkirjan ”Book1.xlsx” laskentataulukosta ”Sheet1” solusta A1.
“Workbooks("Book 1.xlsx").Worksheets("Sheet1").Range("A1").Copy”
Then it will activate the workbook “Book 2.xlsx”.
Workbooks("Book 2.xlsx").Activate
In the active workbook, it will select the worksheet “Sheet 2.”
ActiveWorkbook.Worksheets("Sheet 2").Select
Now in the active sheet, it will paste.
ActiveSheet.Paste
Alternative Way for using Copy-Paste in VBA
We have one more alternative way of having the data from one cell to another cell. Assume you have the word “Excel VBA” in the cell A1 and you need the same to come in cell B3.
One method we have seen is using the VBA copy and paste method. Now I will show you one of the alternative ways. Look at the below piece of code to understand.
Code:
Sub Copy_Example1() Range("A1").Value = Range("B3").Value End Sub
The above says whatever the value is there in the cell A1 should be equal to the value in the cell B3.
Range("A1").Value = Range("B3").Value
Even though this is not a copy and paste method still adds more value to our coding knowledge.
Top Ways of VBA Copy and Paste as Values
Now we will see different ways of VBA copy and paste values. Assume you are in the cell A1 as shown in the below image.
- If we want to copy and paste, we need to reference the cell here. Rather we can just use a property of Selection. Copy method.
Code:
Sub Copy_Example1() Selection.Copy Destination:=Range("B3") End Sub
OR
Sub Copy_Example1() ActiveCell.Copy Destination:=Range("B3") End Sub
- If you want to copy the entire used range of the worksheet, you can use the below code.
Code:
Alikopio_esimerkki2 () laskentataulukot ("Arkki1"). UsedRange.Copy Kohde: = Laskentataulukot ("Arkki2"). Alue ("A1") Alalohko
Tämä kopioi koko käytetyn alueen taulukkoon "Sheet1" ja liittää sen taulukkoon "Sheet2".
