VBA Copy Copy - Najboljši načini kopiranja in lepljenja v VBA (s primeri)

Kopiraj prilepi v VBA je podobno tistemu, kar počnemo v Excelovem delovnem listu, tako kot lahko kopiramo vrednost in jo prilepimo v drugo celico, prav tako lahko prilepimo posebno prilepite le vrednosti, podobno kot v VBA uporabljamo metodo kopiranja z lastnostjo obsega za kopirajte vrednost iz ene celice v drugo in za lepljenje vrednosti uporabimo funkcijo delovnega lista prilepi posebno ali prilepi metodo.

Kako kopirati lepljenje v VBA?

Spodaj je nekaj primerov, kako kopirati in prilepiti v Excelu z uporabo VBA.

Osnovna stvar, ki jo naredimo v Excelu, je kopiranje, rezanje in lepljenje podatkov iz ene celice v drugo celico. Prav tako ne zahteva posebnega uvoda. Med učenjem kodiranja VBA pa je pomembno razumeti isti koncept v kodnem jeziku. Copy Paste v VBA je rutinsko opravilo, ki ga v Excelu opravljamo vsak dan. Če želimo najprej kopirati, se moramo odločiti, katero celico bomo kopirali.

Primer # 1 - Kopiranje in lepljenje vrednosti z uporabo predmeta obsega

Predpostavimo, da imate v celici A1 besedo "Excel VBA".

Recimo, na primer, če želite kopirati celico A1, lahko uporabimo objekt VBA RANGE.

Koda:

Podkopija_Primer () Obseg ("A1"). Končaj pod

Ko se sklicujete na celico, lahko vidimo vse lastnosti in metode z njo. Torej izberite način » Kopiraj«.

Koda:

Sub Copy_Example () Obseg ("A1"). Kopiraj End Sub

Po izbiri metode pritisnite preslednico, da se prikaže argument metode Kopiranje.

Piše Destination.

To ni nič, kje pa želite kopirati in prilepiti vrednosti v VBA, ne da bi izbrali metodo PASTE.

Če prilepimo na isti list, lahko celico izberemo z uporabo predmeta Range. Recimo, da če želimo vrednost prilepiti v celico B3, lahko cilj postavimo kot "Razpon (" B3 ")."

Koda:

Sub Copy_Example () Obseg ("A1"). Cilj kopiranja: = obseg ("B3") Konec Sub

S tem bodo podatki kopirani iz celice A1 in prilepljeni v celico B3.

Za lepljenje podatkov lahko uporabimo tudi spodnjo metodo.

Koda:

Sub Copy_Example () Obseg ("A1"). Obseg kopiranja ("B3"). Izberite ActiveSheet.Paste End Sub

Najprej bomo podatke iz celice A1 kopirali in izbrali ter prilepili v celico B3.

2. primer - Kopirajte na drug delovni list v istem delovnem zvezku

Če želimo vrednost kopirati in prilepiti iz različnih delovnih listov z uporabo makra VBA, se moramo v argumentu Destination sklicevati na ime lista z uporabo predmeta WORKSHEETS in nato omeniti obseg celic v tem delovnem listu. Spodnja koda bo opravila delo.

Koda:

Sub Copy_Example () Obseg ("A1"). Cilj kopiranja: = Delovni listi ("Sheet2"). Obseg ("B3") Konec Sub

Če želimo podatke kopirati z določenega lista in jih želimo prilepiti na drug določen list, moramo omeniti obe imeni listov.

Najprej moramo omeniti list za kopiranje.

Delovni listi ("Sheet1"). Obseg ("A1"). Kopija

Nato v argumentu Destination moramo omeniti ciljno ime delovnega lista in obseg celice.

Cilj: = Delovni listi ("Sheet2"). Obseg ("B3")

Torej bi morala biti koda všeč.

Koda:

Sub Copy_Example () Delovni listi ("Sheet1"). Obseg ("A1"). Kopiraj cilj: = Worksheets ("Sheet2"). Obseg ("B3") End Sub

3. primer - Kopirajte iz enega delovnega zvezka v drugega

Videli smo, kako kopirati z delovnega lista na drug delovni list v istem delovnem zvezku. Lahko pa to storimo tudi iz enega delovnega zvezka v drugega.

Oglejte si spodnjo kodo.

Koda:

SubCopy_Example () Delovni zvezki ("Knjiga 1.xlsx"). Delovni listi ("List1"). Obseg ("A1"). Kopirajte delovne zvezke ("Knjiga 2.xlsx"). Aktivirajte ActiveWorkbook.Worksheets ("List 2"). Izberite ActiveSheet.Paste End Sub

Najprej bo kopiral podatke iz delovnega lista »List1« v delovnem zvezku »Book1.xlsx« iz celice 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 () Delovni listi ("Sheet1"). UseRange.Copy Destination: = Worksheets ("Sheet2"). Obseg ("A1") End Sub

S tem boste kopirali celoten uporabljeni obseg v delovni list »Sheet1« in ga prilepili v delovni list »Sheet2«.

Zanimive Članki...