Kopier lim inn VBA - Topp måter å kopiere og lime inn i VBA (med eksempler)

Innholdsfortegnelse

Kopier lim inn i VBA ligner på det vi gjør i Excel-regneark, som om vi kan kopiere en verdi og lime den inn i en annen celle, kan vi også bruke lim inn spesiell for å lime inn bare verdiene, på samme måte i VBA bruker vi kopimetoden med rekkeviddeegenskap til kopier en verdi fra en celle til en annen, og for å lime inn verdien bruker vi regnearkfunksjonen lim inn spesial eller lim inn metoden.

Hvordan kopiere lim inn i VBA?

Nedenfor er noen eksempler på hvordan du kopierer og limer inn excel ved hjelp av VBA.

Den grunnleggende tingen vi gjør i excel er at vi kopierer, vi klipper og limer inn dataene fra en celle til en annen celle. Det krever ingen spesiell introduksjon også. Imidlertid er det viktig å forstå det samme konseptet i kodingspråk mens du lærer VBA-koding. Copy Paste i VBA er den rutinemessige oppgaven vi gjør i dag i dag i excel. For å kopiere først, må vi bestemme hvilken celle som skal kopieres.

Eksempel 1 - Kopier og lim inn verdier ved hjelp av rekkeviddeobjekt

Anta at du har ordet "Excel VBA" i cellen A1.

La oss for eksempel si at hvis du vil kopiere cellen A1, kan vi bruke VBA RANGE-objektet.

Kode:

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

I det øyeblikket du refererer til cellen, kan vi se alle egenskapene og metodene med den. Så velg metoden " Kopier".

Kode:

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

Når du har valgt metoden, trykker du på mellomromstasten for å se argumentet for kopimetoden.

Det står Destination.

Dette er ingenting, men hvor vil du kopiere og lime inn verdier i VBA uten å velge PASTE-metoden.

Hvis vi limer inn i det samme arket, kan vi velge cellen ved å bruke Range-objektet. La oss si at hvis vi vil lime inn verdien i B3-celle, kan vi sette destinasjonen som "Område (" B3 ")."

Kode:

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

Dette vil kopiere dataene fra celle A1 og lime inn i celle B3.

Vi kan også bruke metoden nedenfor for å lime inn dataene.

Kode:

Sub Copy_Example () Range ("A1"). Copy Range ("B3"). Velg ActiveSheet. Lim inn End Sub

Først vil vi kopiere og velge dataene fra celle A1 og lime inn i celle B3.

Eksempel 2 - Kopier til et annet regneark i samme arbeidsbok

Nå, hvis vi vil kopiere og lime inn verdien fra de forskjellige regnearkene ved hjelp av VBA-makro, må vi i destinasjonsargumentet referere til arknavnet ved å bruke WORKSHEETS-objektet og deretter nevne celleområdet i det WORKSHEET. Koden nedenfor gjør jobben.

Kode:

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

Hvis vi vil kopiere dataene fra et bestemt ark og ønsker å lime inn i et annet bestemt ark, må vi nevne begge navnene på arkene.

For det første må vi nevne kopieringsarket.

Arbeidsark ("Ark1"). Område ("A1"). Kopi

Så i destinasjonsargumentet må vi nevne det målrettede regnearknavnet og celleområdet.

Destinasjon: = Regneark ("Sheet2"). Område ("B3")

Så koden skal like dette.

Kode:

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

Eksempel 3 - Kopier fra en arbeidsbok til en annen arbeidsbok

Vi har sett hvordan du kopierer fra regneark til et annet regneark i samme arbeidsbok. Men vi kan også gjøre dette fra en arbeidsbok til en annen arbeidsbok.

Ta en titt på koden nedenfor.

Kode:

SubCopy_Example () arbeidsbøker ("Book 1.xlsx"). Arbeidsark ("Sheet1"). Område ("A1"). Kopier arbeidsbøker ("Book 2.xlsx"). Aktiver ActiveWorkbook.Worksheets ("Sheet 2"). Velg ActiveSheet.Paste End Sub

For det første vil den kopiere dataene fra regnearket "Sheet1" i arbeidsboken "Book1.xlsx" fra cellen 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 () regneark ("Sheet1"). UsedRange.Copy Destination: = Worksheets ("Sheet2"). Range ("A1") End Sub

Dette vil kopiere hele det brukte området i regnearket "Sheet1" og lime inn det samme i regnearket "Sheet2."

Interessante artikler...