VBA kopiraj zalijepi - Najbolji načini kopiranja i lijepljenja u VBA (s primjerima)

Kopiraj zalijepi u VBA sličan je onome što radimo u Excel radnom listu, kao što možemo kopirati vrijednost i zalijepiti je u drugu ćeliju, također možemo koristiti zalijepiti specijalno za lijepljenje samo vrijednosti, slično kao u VBA koristimo metodu kopiranja sa svojstvom raspona za kopirajte vrijednost iz jedne ćelije u drugu i za lijepljenje vrijednosti koristimo funkciju radnog lista zalijepite specijalno ili zalijepite metodom.

Kako kopirati zalijepiti u VBA?

Ispod su neki primjeri kako kopirati-zalijepiti u Excelu pomoću VBA.

Osnovno što radimo u Excelu je kopiranje, izrezivanje i lijepljenje podataka iz jedne ćelije u drugu ćeliju. To također ne zahtijeva posebno predstavljanje. Međutim, dok je učenje VBA kodiranja važno je razumjeti isti koncept u jeziku kodiranja. Copy Paste u VBA rutinski je zadatak koji svakodnevno radimo u Excelu. Da bismo prvo kopirali, moramo odlučiti koju ćeliju kopirati.

Primjer # 1 - Kopiranje i lijepljenje vrijednosti pomoću objekta raspona

Pretpostavimo da imate riječ "Excel VBA" u ćeliji A1.

Recimo, na primjer, ako želite kopirati ćeliju A1, možemo koristiti objekt VBA RANGE.

Kodirati:

Podkopija_Primjer () Raspon ("A1"). Kraj pod

Onog trenutka kada referencirate ćeliju, moći ćemo vidjeti sva svojstva i metode s njom. Dakle, odaberite metodu " Kopiraj".

Kodirati:

Sub Copy_Example () Raspon ("A1"). Kopiraj Kraj Sub

Nakon odabira metode, pritisnite razmaknicu da biste vidjeli argument metode Kopiranje.

Kaže Odredište.

To nije ništa, ali gdje želite kopirati-zalijepiti vrijednosti u VBA bez odabira metode PASTE.

Ako lijepimo u isti list, možemo odabrati ćeliju pomoću objekta Range. Recimo ako želimo zalijepiti vrijednost u B3 ćeliju, odredište možemo staviti kao "Raspon (" B3 ")."

Kodirati:

Sub Copy_Example () Raspon ("A1"). Odredište kopije: = Raspon ("B3") Kraj Sub

To će kopirati podatke iz ćelije A1 i zalijepiti u ćeliju B3.

Također možemo koristiti donju metodu za lijepljenje podataka.

Kodirati:

Podkopiraj_primjer () Raspon ("A1"). Kopiraj raspon ("B3"). Odaberite ActiveSheet.Paste End Sub

Prvo ćemo kopirati i odabrati podatke iz ćelije A1 i zalijepiti u ćeliju B3.

Primjer # 2 - Kopirajte na drugi radni list u istoj radnoj knjizi

Sada, ako želimo kopirati-zalijepiti vrijednost iz različitih radnih listova pomoću VBA makronaredbe, tada u argumentu Odredište trebamo se pozvati na naziv lista pomoću objekta WORKSHEETS, a zatim spomenuti raspon ćelija u tom WORKSHEET-u. Kôd u nastavku će obaviti posao.

Kodirati:

Podkopija_Primjer () Raspon ("A1"). Odredište kopije: = Radni listovi ("List2"). Raspon ("B3") Kraj pod

Ako želimo kopirati podatke s određenog lista i želimo ih zalijepiti u drugi određeni list, moramo spomenuti oba imena listova.

Prvo moramo spomenuti list za kopiranje.

Radni listovi ("Sheet1"). Raspon ("A1"). Kopija

Zatim u argumentu Odredište moramo spomenuti ciljani naziv radnog lista i raspon ćelije.

Odredište: = Radni listovi ("Sheet2"). Raspon ("B3")

Dakle, kod bi se trebao svidjeti ovo.

Kodirati:

Sub Copy_Example () Radni listovi ("Sheet1"). Raspon ("A1"). Kopiraj odredište: = Radni listovi ("Sheet2"). Raspon ("B3") Kraj Sub

Primjer # 3 - Kopirajte iz jedne u drugu radnu knjigu

Vidjeli smo kako kopirati s radnog lista na drugi radni list u istoj radnoj knjizi. Ali to možemo učiniti i iz jedne u drugu radnu knjigu.

Pogledajte donji kod.

Kodirati:

SubCopy_Example () Radne knjige ("Knjiga 1.xlsx"). Radni listovi ("List1"). Raspon ("A1"). Kopirajte radne knjige ("Knjiga 2.xlsx"). Aktivirajte ActiveWorkbook.Worksheets ("Sheet 2"). Odaberite ActiveSheet.Paste End Sub

Prvo će kopirati podatke iz radnog lista „List1“ u radnu knjigu „Book1.xlsx“ iz ćelije 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 () Radni listovi ("Sheet1"). UsedRange.Copy Destination: = Worksheets ("Sheet2"). Range ("A1") End Sub

Ovo će kopirati cijeli korišteni raspon u radni list "Sheet1" i zalijepiti isti u radni list "Sheet2".

Zanimljivi članci...