VBA Kopírovat Vložit - Nejlepší způsoby kopírování a vkládání ve VBA (s příklady)

Kopírovat Vložit do VBA je podobné tomu, co děláme v excelovém listu, jako bychom mohli zkopírovat hodnotu a vložit ji do jiné buňky, také můžeme použít paste speciální pro vložení pouze hodnot, podobně ve VBA použijeme metodu copy s vlastností range to zkopírujte hodnotu z jedné buňky do druhé a pro vložení hodnoty použijeme funkci listu vložit speciální nebo vložit metodu.

Jak kopírovat Vložit do VBA?

Níže uvádíme několik příkladů, jak kopírovat a vložit do aplikace Excel pomocí VBA.

Základní věcí, kterou v aplikaci Excel děláme, je kopírování, vyjímání a vkládání dat z jedné buňky do druhé. Také to nevyžaduje žádné zvláštní představení. Při učení kódování VBA je však důležité porozumět stejnému konceptu v kódovacím jazyce. Kopírovat Vložit do VBA je rutinní úkol, který děláme každý den v aplikaci Excel. Aby bylo možné nejprve kopírovat, musíme se rozhodnout, kterou buňku zkopírovat.

Příklad č. 1 - Kopírování a vkládání hodnot pomocí objektu rozsahu

Předpokládejme, že v buňce A1 máte slovo „Excel VBA“.

Řekněme například, že pokud chcete kopírovat buňku A1, můžeme použít objekt VBA RANGE.

Kód:

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

V okamžiku, kdy odkazujete na buňku, můžeme vidět všechny její vlastnosti a metody. Vyberte tedy metodu „ Kopírovat“.

Kód:

Sub Copy_Example () Range ("A1"). Kopírovat End Sub

Po výběru metody stisknutím mezerníku zobrazíte argument metody Copy.

Píše se v něm Cíl.

To není nic, ale kam chcete kopírovat a vkládat hodnoty ve VBA bez výběru metody PASTE.

Pokud vkládáme do stejného listu, můžeme buňku vybrat pomocí objektu Rozsah. Řekněme, že pokud chceme vložit hodnotu do buňky B3, můžeme cíl zadat jako „Rozsah („ B3 “).“

Kód:

Sub Copy_Example () Rozsah ("A1"). Místo kopírování: = Range ("B3") End Sub

Tím se zkopírují data z buňky A1 a vloží se do buňky B3.

Můžeme také použít níže uvedenou metodu k vložení dat.

Kód:

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

Nejprve zkopírujeme a vybereme data z buňky A1 a vložíme do buňky B3.

Příklad č. 2 - Kopírování do jiného listu ve stejném sešitu

Nyní, pokud chceme zkopírovat a vložit hodnotu z různých listů pomocí makra VBA, pak v argumentu Cíl musíme odkazovat na název listu pomocí objektu WORKSHEETS a poté uvést rozsah buněk v tomto WORKSHEETu. Níže uvedený kód bude dělat svou práci.

Kód:

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

Pokud chceme zkopírovat data z konkrétního listu a vložit jej do jiného konkrétního listu, musíme uvést oba názvy listů.

Nejprve musíme zmínit kopírovací list.

Pracovní listy ("List1"). Rozsah ("A1"). Kopie

V argumentu Cíl musíme uvést název cílového listu a rozsah buňky.

Destination:=Worksheets("Sheet2").Range("B3")

So the code should like this.

Code:

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

Example #3 - Copy from One Workbook to another Workbook

We have seen how to copy from worksheet to another worksheet in the same workbook. But we can also do this from one workbook to another workbook.

Take a look at the below code.

Code:

SubCopy_Example() Workbooks("Book 1.xlsx").Worksheets("Sheet1").Range("A1").Copy Workbooks("Book 2.xlsx").Activate ActiveWorkbook.Worksheets("Sheet 2").Select ActiveSheet.Paste End Sub

Firstly it will copy the data from the worksheet “Sheet1” in the workbook “Book1.xlsx” from the cell 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ím se zkopíruje celý použitý rozsah v listu „List1“ a stejný se vloží do listu „List2“.

Zajímavé články...