VBA Kopieren Einfügen - Top-Möglichkeiten zum Kopieren und Einfügen in VBA (mit Beispielen)

Das Einfügen in VBA kopieren ähnelt dem, was wir im Excel-Arbeitsblatt tun. Wir können einen Wert kopieren und in eine andere Zelle einfügen. Außerdem können wir mit insert special nur die Werte einfügen. In VBA verwenden wir die Kopiermethode mit der Eigenschaft range to Kopieren Sie einen Wert von einer Zelle in eine andere und um den Wert einzufügen, verwenden Sie die Arbeitsblattfunktion Paste Special oder Paste-Methode.

Wie kopiere ich das Einfügen in VBA?

Im Folgenden finden Sie einige Beispiele für das Kopieren und Einfügen in Excel mithilfe von VBA.

Das Grundlegende, was wir in Excel tun, ist, dass wir kopieren, ausschneiden und die Daten von einer Zelle in eine andere Zelle einfügen. Es bedarf auch keiner besonderen Einführung. Beim Erlernen der VBA-Codierung ist es jedoch wichtig, dasselbe Konzept in der Codierungssprache zu verstehen. Kopieren Einfügen in VBA ist die Routineaufgabe, die wir Tag für Tag in Excel erledigen. Um zuerst zu kopieren, müssen wir entscheiden, welche Zelle kopiert werden soll.

Beispiel 1 - Kopieren und Einfügen von Werten mit dem Bereichsobjekt

Angenommen, Sie haben das Wort "Excel VBA" in der Zelle A1.

Angenommen, Sie möchten die Zelle A1 kopieren, können Sie das VBA RANGE-Objekt verwenden.

Code:

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

Sobald Sie auf die Zelle verweisen, können wir alle Eigenschaften und Methoden damit sehen. Wählen Sie also die Methode " Kopieren".

Code:

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

Drücken Sie nach Auswahl der Methode die Leertaste, um das Argument der Copy-Methode anzuzeigen.

Es heißt Ziel.

Dies ist nichts, aber wo möchten Sie Werte in VBA kopieren und einfügen, ohne die PASTE-Methode auszuwählen?

Wenn wir dasselbe Blatt einfügen, können wir die Zelle mithilfe des Bereichsobjekts auswählen. Angenommen, wir möchten den Wert in die B3-Zelle einfügen und das Ziel als "Bereich (" B3 ")" festlegen.

Code:

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

Dadurch werden die Daten aus Zelle A1 kopiert und in Zelle B3 eingefügt.

Wir können auch die folgende Methode verwenden, um die Daten einzufügen.

Code:

Sub Copy_Example () Range ("A1"). Copy Range ("B3"). Wählen Sie ActiveSheet.Paste End Sub

Zuerst kopieren und wählen wir die Daten aus Zelle A1 aus und fügen sie in Zelle B3 ein.

Beispiel 2 - In ein anderes Arbeitsblatt in derselben Arbeitsmappe kopieren

Wenn wir nun den Wert aus den verschiedenen Arbeitsblättern mithilfe des VBA-Makros kopieren und einfügen möchten, müssen wir im Zielargument mithilfe des WORKSHEETS-Objekts auf den Blattnamen verweisen und dann den Zellenbereich in diesem WORKSHEET erwähnen. Der folgende Code erledigt den Job.

Code:

Sub Copy_Example () Range ("A1"). Copy Destination: = Arbeitsblätter ("Sheet2"). Range ("B3") End Sub

Wenn wir die Daten von einem bestimmten Blatt kopieren und in ein anderes bestimmtes Blatt einfügen möchten, müssen wir beide Namen der Blätter erwähnen.

Zunächst müssen wir das Kopierblatt erwähnen.

Arbeitsblätter ("Sheet1"). Bereich ("A1"). Kopieren

Dann müssen wir im Zielargument den Namen des Zielarbeitsblatts und den Bereich der Zelle erwähnen.

Ziel: = Arbeitsblätter ("Sheet2"). Bereich ("B3")

Der Code sollte also so aussehen.

Code:

Sub Copy_Example () Arbeitsblätter ("Sheet1"). Bereich ("A1"). Kopierziel: = Arbeitsblätter ("Sheet2"). Bereich ("B3") End Sub

Beispiel 3 - Kopieren von einer Arbeitsmappe in eine andere Arbeitsmappe

Wir haben gesehen, wie in derselben Arbeitsmappe von einem Arbeitsblatt in ein anderes Arbeitsblatt kopiert wird. Wir können dies aber auch von einer Arbeitsmappe zu einer anderen Arbeitsmappe tun.

Schauen Sie sich den folgenden Code an.

Code:

SubCopy_Example () Arbeitsmappen ("Buch 1.xlsx"). Arbeitsblätter ("Blatt1"). Bereich ("A1"). Arbeitsmappen kopieren ("Buch 2.xlsx"). Aktivieren Sie ActiveWorkbook.Worksheets ("Blatt 2"). Wählen Sie ActiveSheet.Paste End Sub

Zunächst werden die Daten aus dem Arbeitsblatt „Sheet1“ in der Arbeitsmappe „Book1.xlsx“ aus der Zelle A1 kopiert.

“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 () Arbeitsblätter ("Sheet1"). UsedRange.Copy Destination: = Arbeitsblätter ("Sheet2"). Range ("A1") End Sub

Dadurch wird der gesamte verwendete Bereich in das Arbeitsblatt „Sheet1“ kopiert und in das Arbeitsblatt „Sheet2“ eingefügt.

Interessante Beiträge...