VBA kopijų įklijavimas Populiariausi VBA kopijavimo ir įklijavimo būdai (su pavyzdžiais)

Kopijuoti įklijavimą VBA yra panašus į tai, ką darome „Excel“ darbalapyje, pavyzdžiui, galime nukopijuoti vertę ir įklijuoti ją į kitą langelį, taip pat galime naudoti specialųjį įklijavimą, kad įklijuotumėte tik vertes, panašiai kaip VBA, mes naudojame kopijavimo metodą su diapazono ypatybe nukopijuokite vertę iš vieno langelio į kitą ir įklijuokite vertę, mes naudojame darbalapio funkciją specialus įklijuoti arba įklijuoti.

Kaip nukopijuoti įklijas į VBA?

Toliau pateikiami keli pavyzdžiai, kaip kopijuoti ir įklijuoti „Excel“ naudojant VBA.

Pagrindinis dalykas, kurį darome „Excel“ programoje, yra tai, kad mes nukopijuojame, supjaustome ir įklijuojame duomenis iš vienos langelio į kitą. Tai taip pat nereikalauja specialaus pristatymo. Tačiau norint išmokti VBA kodavimo svarbu suprasti tą pačią kodavimo kalbos sampratą. Kopijavimo įklijavimas VBA yra įprasta užduotis, kurią atliekame kiekvieną dieną „Excel“. Norėdami pirmiausia nukopijuoti, turime nuspręsti, kurią langelį kopijuoti.

1 pavyzdys - kopijuoti ir įklijuoti reikšmes naudojant „Range Object“

Tarkime, kad langelyje A1 yra žodis „Excel VBA“.

Tarkime, pavyzdžiui, jei norite nukopijuoti langelį A1, galime naudoti objektą VBA RANGE.

Kodas:

Papildomos kopijos_pavyzdys () diapazonas („A1“). Pabaigos sub

Tą akimirką, kai nurodote langelį, galime pamatyti visas jo savybes ir metodus. Taigi pasirinkite metodą „ Kopijuoti“.

Kodas:

Antrinio kopijavimo_pavyzdžio () diapazonas („A1“). Kopijavimo pabaigos antrinis

Pasirinkę metodą, paspauskite tarpo klavišą, kad pamatytumėte metodo Kopijavimas argumentą.

Joje parašyta Paskirtis.

Tai nėra nieko, bet kur norite nukopijuoti ir įklijuoti reikšmes VBA, nepasirinkdami PASTE metodo.

Jei įklijuojame tame pačiame lape, galime pasirinkti langelį naudodami objektą Range. Tarkime, jei norime įklijuoti vertę į B3 langelį, paskirties vietą galime įdėti kaip „Range („ B3 “).“

Kodas:

Sub Copy_Pavyzdys () Diapazonas ("A1"). Kopijavimo tikslas: = Diapazonas ("B3") Pabaiga Sub

Tai nukopijuos duomenis iš langelio A1 ir įklijuos į langelį B3.

Duomenims įklijuoti taip pat galime naudoti žemiau pateiktą metodą.

Kodas:

Antrinis kopijavimo_pavyzdys () diapazonas („A1“). Kopijavimo diapazonas („B3“). Pasirinkite „ActiveSheet.Paste End Sub“

Pirmiausia nukopijuosime ir išrinksime duomenis iš langelio A1 ir įklijuosime į langelį B3.

2 pavyzdys - nukopijuokite į kitą tos pačios darbaknygės darbalapį

Dabar, jei norime nukopijuoti vertę iš skirtingų darbalapių naudodami VBA makrokomandą, tada argumente „Paskirties vieta“ turime nurodyti lapo pavadinimą naudodami objektą WORKSHEETS, tada paminėti to WORKSHEET langelių diapazoną. Žemiau pateiktas kodas atliks darbą.

Kodas:

Sub Copy_Example () diapazonas ("A1"). Kopijavimo tikslas: = darbalapiai ("Sheet2"). Diapazonas ("B3") Pabaiga Sub

Jei norime nukopijuoti duomenis iš konkretaus lapo ir norime įklijuoti į kitą konkretų lapą, turime paminėti abu lapų pavadinimus.

Pirmiausia turime paminėti kopijavimo lapą.

Darbalapiai („Sheet1“). Diapazonas („A1“). Kopija

Tada argumente „Paskirties vieta“ turime paminėti tikslinį darbalapio pavadinimą ir langelio diapazoną.

Paskirties vieta: = darbalapiai („2 lapas“). Diapazonas („B3“)

Taigi kodui tai turėtų patikti.

Kodas:

Sub Copy_Example () darbalapiai ("Sheet1"). Diapazonas ("A1"). Copy Destination: = darbalapiai ("Sheet2"). Range ("B3") End Sub

3 pavyzdys - nukopijuokite iš vienos darbaknygės į kitą darbaknygę

Matėme, kaip kopijuoti iš darbalapio į kitą tos pačios darbaknygės darbalapį. Bet mes taip pat galime tai padaryti nuo vienos darbaknygės prie kitos.

Pažvelkite į žemiau pateiktą kodą.

Kodas:

„SubCopy_Example“) darbaknygės („Book 1.xlsx“). Darbalapiai („Sheet1“). Diapazonas („A1“). Kopijuoti darbaknyges („Book 2.xlsx“). Suaktyvinkite „ActiveWorkbook.Worksheets“ („2 lapas“). Pasirinkite „ActiveSheet“. Įklijuoti pabaigos antrinį

Pirmiausia ji nukopijuos duomenis iš darbaknygės „Book1.xlsx“ darbalapio „Sheet1“ iš langelio 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:

Sub Copy_Example2 () darbalapiai („Sheet1“). UsedRange.Copy paskirties vieta: = darbalapiai („Sheet2“). Diapazonas („A1“) Pabaiga Sub

Tai nukopijuos visą naudojamą diapazoną darbalapyje „Sheet1“ ir tą patį įklijuos į „Sheet2“ darbalapį.

Įdomios straipsniai...