VBA kopírovanie a vkladanie Najlepšie spôsoby kopírovania a vkladania vo formáte VBA (s príkladmi)

Kopírovať Vložiť do VBA je podobné tomu, čo robíme v excelovom hárku, napríklad môžeme skopírovať hodnotu a vložiť ju do inej bunky. Na prilepenie iba hodnôt môžeme použiť špeciálne vloženie, podobne vo VBA použijeme metódu kopírovania s vlastnosťou rozsahu skopírujte hodnotu z jednej bunky do druhej a na vloženie hodnoty použijeme funkciu listu vložiť špeciálnu alebo vložiť metódu.

Ako kopírovať a vložiť do VBA?

Ďalej uvádzame niekoľko príkladov, ako kopírovať a vkladať v programe Excel pomocou VBA.

Základná vec, ktorú robíme v programe Excel, je kopírovanie, strihanie a vkladanie údajov z jednej bunky do druhej. Rovnako to nevyžaduje nijaké špeciálne predstavenie. Pri učení sa kódovania VBA je však dôležité porozumieť rovnakému konceptu v kódovacom jazyku. Kopírovanie Prilepiť do VBA je rutinná úloha, ktorú robíme každý deň v programe Excel. Ak chcete najskôr skopírovať, musíme sa rozhodnúť, ktorú bunku skopírujete.

Príklad č. 1 - Kopírovanie a vkladanie hodnôt pomocou rozsahu objektu

Predpokladajme, že v bunke A1 máte slovo „Excel VBA“.

Povedzme napríklad, že ak chcete skopírovať bunku A1, môžeme použiť objekt VBA RANGE.

Kód:

Rozsah Sub Sub__Example () ("A1"). Koniec Sub

V okamihu, keď odkazujete na bunku, môžeme vidieť všetky jej vlastnosti a metódy. Vyberte teda metódu „ Kopírovať“.

Kód:

Sub Copy_Example () Range ("A1"). Copy End Sub

Po výbere metódy stlačte medzerník, aby ste videli argument metódy Copy.

Je tam napísané Cieľ.

To nie je nič, ale kam chcete kopírovať a vkladať hodnoty vo VBA bez výberu metódy PASTE.

Ak vkladáme do toho istého hárku, môžeme bunku vybrať pomocou objektu Rozsah. Povedzme, že ak chceme vložiť hodnotu do bunky B3, môžeme cieľ označiť ako „Rozsah („ B3 “).“

Kód:

Sub Copy_Example () Range ("A1"). Cieľ kopírovania: = Range ("B3") End Sub

Týmto sa skopírujú údaje z bunky A1 a prilepia sa do bunky B3.

Na prilepenie údajov môžeme použiť aj nižšie uvedenú metódu.

Kód:

Sub Copy_Example () Range ("A1"). Copy Range ("B3"). Vyberte ActiveSheet.Paste End Sub

Najskôr skopírujeme a vyberieme údaje z bunky A1 a prilepíme do bunky B3.

Príklad č. 2 - Kopírovanie do iného pracovného hárka v rovnakom pracovnom zošite

Teraz, ak chceme skopírovať a vložiť hodnotu z rôznych pracovných hárkov pomocou makra VBA, potom v argumente Cieľ musíme odkazovať na názov hárka pomocou objektu WORKSHEETS a potom spomenúť rozsah buniek v tomto WORKSHEET. Nasledujúci kód urobí prácu.

Kód:

Sub Copy_Example () Range ("A1"). Copy Destination: = Worksheets ("Sheet2"). Range ("B3") End Sub

Ak chceme kopírovať údaje z konkrétneho hárku a chceme ich vložiť do iného konkrétneho hárku, musíme spomenúť obidva názvy hárkov.

Najskôr je potrebné spomenúť kopírovací list.

Pracovné listy ("List1"). Rozsah ("A1"). Kópia

Potom v argumente Cieľ musíme spomenúť cieľový názov pracovného hárka a rozsah bunky.

Cieľ: = Pracovné listy ("List2"). Rozsah ("B3")

Kód by sa mal teda páčiť tomuto.

Kód:

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

Príklad č. 3 - Kopírovanie z jedného zošita do druhého zošita

Videli sme, ako kopírovať z hárka do iného hárka v rovnakom zošite. Môžeme to však robiť aj z jedného zošita do druhého zošita.

Prezrite si nižšie uvedený kód.

Kód:

Zošity SubCopy_Example () ("Kniha 1.xlsx"). Pracovné listy ("List1"). Rozsah ("A1"). Kopírujte zošity ("Kniha 2.xlsx"). Aktivujte ActiveWorkbook.Worksheets ("List 2"). Vyberte ActiveSheet.Paste End Sub

Najskôr skopíruje údaje z pracovného hárka „List1“ v zošite „Book1.xlsx“ z bunky 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 () Worksheets ("Sheet1"). UsedRange.Copy Destination: = Worksheets ("Sheet2"). Range ("A1") End Sub

Týmto sa skopíruje celý použitý rozsah v hárku „List1“ a rovnaké sa vloží do hárka „List2“.

Zaujímavé články...