VBA Paste

VBA Paste fungerer på samme måte som vi Copy / Cut and Paste in Excel. VBA Lim inn den automatiserte versjonen av det vi regelmessig gjør i vanlig Excel-arbeid. Å lime inn data på et hvilket som helst ønsket sted er den rutinemessige oppgaven. For å utføre denne aktiviteten, må vi definere stedet der vi vil velge dataene og stedet der vi vil lime dem inn.

Hvordan bruke Excel VBA-lim?

Vi lærer hvordan du bruker en VBA Paste med få eksempler i Excel.

Du kan laste ned denne VBA Lim inn Excel Mal her - VBA Lim inn Excel Mal

VBA Paste - Eksempel # 1

La oss vurdere hvilken som helst celle i Excel som har tekst. Her har vi beholdt teksten “ VBA Paste ” i celle B3 som vist nedenfor.

Følg trinnene nedenfor for å bruke VBA Paste.

Trinn 1: Gå nå til VBA-vinduet og åpne en ny modul fra Sett inn-menyen som vist nedenfor.

Trinn 2: Når vi har gjort det, vil vi få en tom modul. I den begynnelsen av å skrive underkategori. Det anbefales å skrive underkategori i navnet på funksjonen vi utfører.

Kode:

 Sub VBAPaste1 () Slutt Sub

Trinn 3: Velg først Range-cellen der vi har dataene som vi trenger å kopiere. Her er vår Range celle B3, etterfulgt av. Kopifunksjon . Dette kopierer dataene i Range celle som vi har valgt.

Kode:

 Sub VBAPaste1 () Range ("B3"). Copy End Sub

Trinn 4: Nå trenger vi en destinasjonscelle der vi trenger å lime inn denne kopierte verdien. Velg Range cellen ved hjelp av Destination-kommandoen. Her har vi valgt celle D1, der vi vil se verdien.

Kode:

 Sub VBAPaste1 () Range ("B3"). Kopier destinasjon: = Range ("D1") End Sub

Trinn 5: Sett sammen koden og kjør den når du er ferdig.

Vi vil se at celleinnholdet i celle B3 nå er kopiert og limt inn i celle D3 som vist ovenfor.

VBA Paste- Eksempel nr. 2

La oss vurdere et annet eksempel på VBA Paste. For dette går du til VBA-vinduet og åpner en modul og følger deretter trinnene nedenfor.

Trinn 1: Begynn å skrive underkategori i navnet til VBA Paste eller i et hvilket som helst annet navn som vist nedenfor.

Kode:

 Sub VBAPaste2 () Slutt Sub

Trinn 2: Her vil vi vurdere de samme dataene eller referansecellen B3 som vi har sett i eksempel-1. Velg Range celle B3 etterfulgt av .Copy kommando. Dette vil kopiere dataene.

Kode:

 Sub VBAPaste2 () Range ("B3"). Copy End Sub

Trinn 3: Velg nå avstandscellen der vi trenger å lime inn de kopierte dataene. Her velger vi celler D1 til D3 i motsetning til bare å velge en celle som vist i eksempel-1.

Kode:

 Sub VBAPaste2 () Range ("B3"). Copy Range ("D1: D3"). Velg End Sub

Trinn 4: Når vi har kopiert dataene og valgt cellene der de må limes inn. Velg nå Lim inn kommando ved hjelp av ActiveSheet- funksjonen. Dette aktivitetsarket lar den kopierte cellen limes inn i avstandsceller.

Kode:

 Sub VBAPaste2 () Range ("B3"). Copy Range ("D1: D3"). Velg ActiveSheet.Paste End Sub

Trinn 5: Sett sammen koden og kjør den. Vi vil se, celleverdi fra celle B3 vil limes inn fra celler D1 til D3.

VBA-lim - eksempel # 3

En annen metode for VBA Paste er å bruke den manuelle prosessen som vi gjør for kopiering og liming.

Følg trinnene nedenfor:

Trinn 1: Skriv underkategori av VBA-lim som vist nedenfor.

Kode:

 Sub VBAPaste3 () Slutt Sub

Trinn 2: Det er bedre å gi sekvensen til underkategori hvis du skriver flere sett med koder i en enkelt fil. For å lime inn noe må vi først kopiere dataene. Her har vi valgt Copy- kommando.

Kode:

 Sub VBAPaste3 () Valg.Kopi Slutt Sub

Trinn 3: Velg nå området eller referansecellen som vi trenger å kopiere og lime inn. Her har vi Cell D3 med data “VBA Paste” i seg.

Kode:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Velg Slutt Sub

Trinn 4: Nå i excel, velger vi cellene der vi trenger å lime inn dataene manuelt eller med Shift + Ctrl + opp / ned-tastene. Her vil vi også velge plasseringen av celler etter End (xlUp) -kommando for å velge utvalget av utgangsceller.

Kode:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Velg Range (Selection, Selection.End (xlUp)). Velg End Sub

Trinn 5: Velg nå utdatacelleområdet, her har vi valgt cellene D1 til D3, der vi vil se de limte dataene.

Kode:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Velg Range (Selection, Selection.End (xlUp)). Velg Range ("D1: D3"). Velg End Sub

Trinn 6: Som funksjon må vi utføre limefunksjon, så vi må aktivere lime-kommandoen i VBA av ActiveSheet- kommando etterfulgt av punkt (.) Lim inn.

Kode:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Velg Range (Selection, Selection.End (xlUp)). Velg Range ("D1: D3"). Velg ActiveSheet.Paste End Sub

Trinn 7: La endelig CutCopyMode-applikasjonen som FALSE, som betyr bare å kopiere dataene i stedet for å kutte dem også fra referansecellen.

Kode:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Velg Range (Selection, Selection.End (xlUp)). Velg Range ("D1: D3"). Velg ActiveSheet.Paste Application.CutCopyMode = False End Sub

Trinn 8: Før markøren kjøres, sett først markøren på Cell B3. Deretter kompilerer du koden og kjører den. Vi vil se at dataene våre blir kopiert til cellene D1 til D3.

VBA Paste- Eksempel # 4

Det er en annen måte å bruke VBA Paste på en enkelt kodelinje.

Følg trinnene nedenfor:

Trinn 1: Skriv underkategorien i sekvensen og navnet på en utført funksjon.

Kode:

 Sub VBAPaste4 () Slutt Sub

Trinn 2: Bruk Worksheets-kommandoen og velg Arket hvor vi skal jobbe. Her er navnet på arket “Ark1”. Vi kan bruke Workbook.Sheet (1) også for å velge “Sheet1” i stedet for dette.

Kode:

 Sub VBAPaste4 () Worksheets ("Sheet1"). Slutt sub

Trinn 3: Velg cellen der vi vil kopiere dataene. Her er vår Range celle B3 som har de samme dataene som vi har sett i eksemplene ovenfor.

Kode:

 Sub VBAPaste4 () Worksheets ("Sheet1"). Range ("B3"). Slutt sub

Trinn 4: Sett inn Copy- kommandoen etter et punktum (.) For å kopiere dataene fra den valgte Range cellen.

Kode:

 Sub VBAPaste4 () Worksheets ("Sheet1"). Range ("B3"). Copy End Sub

Trinn 5: Bruk nå Destinasjon-kommandoen til å velge stedet der vi vil lime inn de kopierte dataene. For dette velger du regneark som "Sheet1" som vi gjorde i begynnelsen av dette eksemplet og velger Range celler hvor som helst i det samme arket. Her har vi valgt Range output celler fra D1 til D3.

Kode:

 Sub VBAPaste4 () Worksheets ("Sheet1"). Range ("B3"). Copy Destination: = Worksheets ("Sheet1"). Range ("D1: D3") End Sub

Trinn 6: Sett sammen og kjør. Vi vil at teksten “VBA Paste” fra celle B3 blir kopiert og limt inn i cellene D1 til D3 som vist nedenfor.

Fordeler med Excel VBA-lim

  • Bruk av de to første eksemplene er den enkle og raskeste måten å bruke VBA Paste på.
  • For enorme data der det er vanskelig å utføre flere aktiviteter, hvis vi automatiserer denne typen små funksjoner, vil det spare enorm tid for å gjøre manuelle ting.
  • Det er ingen begrensning for å kopiere og lime inn dataene.

Ting å huske

  • Bruk underkategori på en slik måte at hvis du bruker flere moduler, så setter du inn sekvensen som vil gjøre det enkelt å spore og velge riktig makro.
  • Lagre excel-fil i makroaktiver format slik at skrevet kode blir bevart for neste brukstid.
  • Hvis du skriver flere kodelinjer, anbefales det å sette sammen koden linje for linje for å finne ut om det er en feil i den.
  • Det anbefales å sette markøren på celle B3 hvis du bruker eksempel-3.

Anbefalte artikler

Dette har vært en guide til VBA Paste. Her diskuterte vi VBA Paste og hvordan du bruker Excel VBA Paste sammen med praktiske eksempler og nedlastbar Excel-mal. Du kan også gå gjennom andre foreslåtte artikler -

  1. VBA-kamp | Hvordan å bruke?
  2. Excel TRANSPOSE Formula
  3. VBA Range | Enkel Excel-makroer
  4. Nested IF Formula in Excel

Kategori:

VBA