VBA-indsæt

VBA Paste fungerer på samme måde som vi Kopier / Klip og indsæt i Excel. VBA Indsæt det den automatiserede version af, hvad vi regelmæssigt gør i almindeligt excel-arbejde. Det er den rutinemæssige opgave at indsætte data på ethvert ønsket sted. For at udføre denne aktivitet, er vi nødt til at definere det sted, hvorfra vi vælger dataene, og hvor vi vil indsætte dem.

Sådan bruges Excel VBA-indsætning?

Vi lærer, hvordan man bruger en VBA-indsætning med få eksempler i Excel.

Du kan downloade denne VBA Indsæt Excel-skabelon her - VBA Indsæt Excel-skabelon

VBA-indsæt - eksempel # 1

Lad os overveje enhver celle i Excel, der har nogle tekster. Her har vi opbevaret teksten “ VBA Paste ” i celle B3 som vist nedenfor.

Følg nedenstående trin for at bruge VBA-indsæt.

Trin 1: Gå nu til VBA-vinduet og åbn et nyt modul fra menuen Indsæt som vist nedenfor.

Trin 2: Når vi gør det, får vi et tomt modul. I det begynd at skrive underkategori. Det anbefales at skrive underkategori i navnet på den funktion, som vi udfører.

Kode:

 Sub VBAPaste1 () End Sub

Trin 3: Vælg først Range-cellen, hvor vi har de data, som vi har brug for at kopiere. Her er vores Range-celle B3, efterfulgt af. Kopifunktion . Dette kopierer dataene i Range celle, som vi har valgt.

Kode:

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

Trin 4: Nu har vi brug for en destinationscelle, hvor vi har brug for at indsætte denne kopierede værdi. Vælg Range cellen ved hjælp af kommandoen Destination. Her har vi valgt celle D1, hvor vi vil se værdien.

Kode:

 Sub VBAPaste1 () Range ("B3"). Kopi Destination: = Range ("D1") End Sub

Trin 5: Når det er gjort, skal du kompilere koden og køre den.

Vi vil se, at celleindholdet i celle B3 nu kopieres og indsættes i celle D3 som vist ovenfor.

VBA-indsætning - eksempel # 2

Lad os overveje et andet eksempel på VBA-pasta. For dette gå til VBA-vinduet og åbne et modul og følg derefter nedenstående trin.

Trin 1: Begynd at skrive underkategori i navnet på VBA-indsæt eller i et hvilket som helst andet navn som vist nedenfor.

Kode:

 Sub VBAPaste2 () End Sub

Trin 2: Her vil vi overveje de samme data eller referencecelle B3, som vi har set i eksempel-1. Vælg Range celle B3 efterfulgt af .Copy kommando. Dette kopierer dataene.

Kode:

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

Trin 3: Vælg nu den celle, hvor vi skal indsætte de kopierede data. Her vælger vi celler D1 til D3 i modsætning til kun at vælge en celle som vist i eksempel-1.

Kode:

 Sub VBAPaste2 () Range ("B3"). Copy Range ("D1: D3"). Vælg End Sub

Trin 4: Når vi først har kopieret dataene og valgt de celler, hvor de skal indsættes. Vælg nu Indsæt kommando ved hjælp af ActiveSheet- funktion. Dette aktivitetsark tillader den kopierede celle indsat i rækkeceller.

Kode:

 Sub VBAPaste2 () Range ("B3"). Copy Range ("D1: D3"). Vælg ActiveSheet.Paste End Sub

Trin 5: Kompilér nu koden og kør den. Vi vil se, celleværdi fra celle B3 vil blive indsat fra celler D1 til D3.

VBA-indsætning - eksempel # 3

En anden metode til VBA-indsætning er at bruge den manuelle proces, som vi gør til kopiering og indsætning.

Følg nedenstående trin:

Trin 1: Skriv underkategori af VBA-indsæt som vist nedenfor.

Kode:

 Sub VBAPaste3 () End Sub

Trin 2: Det er bedre at give sekvensen til underkategori, hvis du skriver flere sæt koder i en enkelt fil. For at indsætte noget skal vi først kopiere disse data. Her har vi valgt Copy kommando.

Kode:

 Sub VBAPaste3 () Selection.Copy End Sub

Trin 3: Vælg nu det interval eller den referencecelle, som vi har brug for at kopiere og indsætte. Her har vi Cell D3 med data “VBA Paste” i den.

Kode:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Vælg End Sub

Trin 4: Nu i Excel vælger vi de celler, hvor vi har brug for at indsætte dataene manuelt eller med Shift + Ctrl + Op / Ned-taster. Her vil vi også vælge placeringen af ​​celler ved hjælp af Ende (xlUp) -kommando til valg af række af outputceller .

Kode:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Vælg Range (Selection, Selection.End (xlUp)). Vælg End Sub

Trin 5: Vælg nu outputcelleområdet, her har vi valgt celler D1 til D3, hvor vi vil se de indsatte data.

Kode:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Vælg Range (Selection, Selection.End (xlUp)). Vælg Range ("D1: D3"). Vælg End Sub

Trin 6: Som funktion er vi nødt til at udføre paste-funktion, så vi er nødt til at aktivere pasta-kommandoen i VBA af ActiveSheet- kommando efterfulgt af punkt (.) Indsæt.

Kode:

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

Trin 7: Tillad nu endelig CutCopyMode-applikation som FALSE, hvilket betyder kun at kopiere dataene i stedet for at klippe dem også ud fra referencecellen.

Kode:

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

Trin 8: Før markøren køres, skal du placere markøren på Cell B3 først. Kompilér derefter koden, og kør den. Vi vil se, at vores data bliver kopieret til celler D1 til D3.

VBA-indsætning - eksempel # 4

Der er en anden måde at bruge VBA-indsæt i en enkelt kodelinie.

Følg nedenstående trin:

Trin 1: Skriv underkategorien i rækkefølge og navn på en udført funktion.

Kode:

 Sub VBAPaste4 () End Sub

Trin 2: Brug arbejdsarkkommandoen og vælg det ark, hvor vi vil arbejde. Her er vores arknavn “Ark1”. Vi kan bruge Workbook.Sheet (1) også til at vælge “Sheet1” i stedet for dette.

Kode:

 Sub VBAPaste4 () Arbejdsark ("Ark1"). Afslut under

Trin 3: Vælg cellen, hvorfra vi vil kopiere dataene. Her er vores Range-celle B3, som har de samme data, som vi har set i ovenstående eksempler.

Kode:

 Sub VBAPaste4 () Arbejdsark ("Ark1"). Område ("B3"). Afslut under

Trin 4: Indsæt nu Copy- kommandoen efter et punktum (.) Til kopiering af dataene fra den valgte Range-celle.

Kode:

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

Trin 5: Brug nu Destination-kommandoen til at vælge det sted, hvor vi vil indsætte de kopierede data. For dette vælg Arbejdsark som "Ark1", som vi gjorde i begyndelsen af ​​dette eksempel, og vælg Range celler hvor som helst på det samme ark. 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

Trin 6: Kompilér og kør nu. Vi vil teksten "VBA Paste" fra celle B3 kopieres og indsættes i celler D1 til D3 som vist nedenfor.

Fordele ved Excel VBA-indsæt

  • Anvendelse af de første 2 eksempler er den nemme og hurtigste måde at anvende VBA-pasta.
  • For enorme data, hvor det er vanskeligt at udføre flere aktiviteter, er der, hvis vi automatiserer denne form for lille funktion, det vil spare enorm tid på at udføre manuelle ting.
  • Der er ingen grænser for kopiering og indsættelse af dataene.

Ting at huske

  • Brug underkategori på en sådan måde, at hvis du bruger flere moduler, så lægger sekvensen i det, vil det være let at spore og vælge den rigtige makro.
  • Gem excel-fil i Macro Enable Format, så den skriftlige kode vil blive bevaret til næste brugstid.
  • Hvis du skriver flere kodelinjer, anbefales det, at koden samles linje for linje for at finde ud af, om der er en fejl i den.
  • Det anbefales at placere markøren på celle B3, hvis du bruger eksempel-3.

Anbefalede artikler

Dette har været en guide til VBA-pasta. Her diskuterede vi VBA-indsæt, og hvordan man bruger Excel VBA-indsæt sammen med praktiske eksempler og downloadbar excel-skabelon. Du kan også gennemgå vores andre foreslåede artikler -

  1. VBA-kamp | Sådan bruges?
  2. Excel TRANSPOSE-formel
  3. VBA Range | Nem Excel-makroer
  4. Indlejret IF-formel i Excel

Kategori:

VBA