VBA-klistra in

VBA Paste fungerar på samma sätt som vi Kopiera / klipp ut och klistra in i Excel. VBA Klistra in den automatiserade versionen av vad vi regelbundet gör i vanligt excelarbete. Att klistra in data på önskad plats är rutinuppgiften. För att kunna utföra den här aktiviteten måste vi definiera platsen varifrån vi väljer data och plats där vi klistrar in dem.

Hur använder jag Excel VBA-klistra in?

Vi kommer att lära dig att använda en VBA-klistra med några exempel i Excel.

Du kan ladda ner denna VBA-klistra in Excel-mall här - VBA-klistra in Excel-mall

VBA-klistra - exempel # 1

Låt oss överväga alla celler i Excel som har lite text. Här har vi behållit texten " VBA Paste " i cell B3 som visas nedan.

Följ nedanstående steg för att använda VBA-klistra in.

Steg 1: Gå nu till VBA-fönstret och öppna en ny modul från Insert-menyn som visas nedan.

Steg 2: När vi gör det kommer vi att få en tom modul. I det börjar du skriva Subcategory. Det rekommenderas att skriva underkategori i namnet på den funktion som vi utför.

Koda:

 Sub VBAPaste1 () Slut Sub

Steg 3: Välj nu först räckvidden där vi har de data som vi behöver kopiera. Här är vår Range-cell B3, följt av .Copy- funktion. Detta kopierar data i Range cell som vi har valt.

Koda:

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

Steg 4: Nu behöver vi en destinationscell där vi behöver klistra in det kopierade värdet. Med hjälp av kommandot Destination, välj Range-cellen. Här har vi valt cell D1, där vi ser värdet.

Koda:

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

Steg 5: När du är klar, kompilera koden och kör den.

Vi ser att cellinnehållet i cell B3 nu kopieras och klistras in i cell D3 som visas ovan.

VBA-klistra - exempel # 2

Låt oss överväga ett annat exempel på VBA-klistra. För detta gå till VBA-fönstret och öppna en modul och följ sedan stegen nedan.

Steg 1: Börja skriva underkategori i VBA-klistra eller i något annat namn som visas nedan.

Koda:

 Sub VBAPaste2 () Slut Sub

Steg 2: Här kommer vi att överväga samma data eller referenscell B3 som vi har sett i exempel-1. Välj Range cell B3 följt av .Copy- kommandot. Detta kommer att kopiera data.

Koda:

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

Steg 3: Välj nu intervallcellen där vi behöver klistra in den kopierade informationen. Här väljer vi celler D1 till D3 till skillnad från att bara välja en cell som visas i exempel-1.

Koda:

 Sub VBAPaste2 () Range ("B3"). Copy Range ("D1: D3"). Välj End Sub

Steg 4: När vi har kopierat data och valt cellerna där de behöver klistras in. Välj nu Klistra in kommando med hjälp av ActiveSheet- funktionen. Det här aktivitetsarket tillåter den kopierade cellen klistras in i intervallceller.

Koda:

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

Steg 5: Sätt nu koden och kör den. Vi ser att cellvärde från cell B3 klistras in från cellerna D1 till D3.

VBA-klistra - exempel # 3

En annan metod för VBA Paste använder den manuella processen som vi gör för att kopiera och klistra in.

Följ stegen nedan:

Steg 1: Skriv underkategori av VBA-klistra in som visas nedan.

Koda:

 Sub VBAPaste3 () Slut Sub

Steg 2: Det är bättre att ge sekvensen till underkategori om du skriver flera uppsättningar koder i en enda fil. För att klistra in något måste vi först kopiera dessa data. Här har vi valt Copy- kommando.

Koda:

 Sub VBAPaste3 () Selection.Copy End Sub

Steg 3: Välj nu det område eller referenscell som vi behöver för att kopiera och klistra in. Här har vi Cell D3 med data "VBA Paste" i den.

Koda:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Välj End Sub

Steg 4: Nu i Excel väljer vi cellerna där vi behöver klistra in informationen manuellt eller med Shift + Ctrl + Upp / Ner-tangenter. Här kommer vi också att välja platsen för celler efter End (xlUp) -kommando för att välja intervallet för utgångsceller.

Koda:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Välj Range (Selection, Selection.End (xlUp)). Välj End Sub

Steg 5: Välj nu utdatacellområdet, här har vi valt cellerna D1 till D3, där vi kommer att se de klistrade data.

Koda:

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

Steg 6: Som funktion måste vi utföra klistra in funktion, så vi måste aktivera klisterkommandot i VBA av ActiveSheet- kommando följt av punkt (.) Klistra in.

Koda:

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

Steg 7: Tillåt till sist CutCopyMode-applikationen som FALSE, vilket betyder att endast kopiera data istället för att klippa det också från referenscellen.

Koda:

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

Steg 8: Sätt först markören på Cell B3 innan du kör koden. Sedan kompilera koden och kör den. Vi ser att våra data kommer att kopieras till cellerna D1 till D3.

VBA-klistra - exempel # 4

Det finns ett annat sätt att använda VBA-klistra in i en kodrad.

Följ stegen nedan:

Steg 1: Skriv underkategorin i sekvensen och namnet på en utförd funktion.

Koda:

 Sub VBAPaste4 () Slut Sub

Steg 2: Använd kalkylarket och välj ark där vi ska arbeta. Här är vårt arknamn “Sheet1”. Vi kan använda Workbook.Sheet (1) också för att välja “Sheet1” istället för detta.

Koda:

 Sub VBAPaste4 () Worksheets ("Sheet1"). Avsluta under

Steg 3: Välj cellen där vi ska kopiera data. Här är vår Range-cell B3 som har samma data som vi har sett i exemplen ovan.

Koda:

 Sub VBAPaste4 () Worksheets ("Sheet1"). Range ("B3"). Avsluta under

Steg 4: Sätt nu in kommandot Kopiera efter en punkt (.) För att kopiera data från den valda intervallcellen.

Koda:

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

Steg 5: Använd nu Destination-kommandot för att välja den plats där vi ska klistra in den kopierade informationen. För detta väljer du kalkylblad som "Sheet1" som vi gjorde i början av detta exempel och välj Range celler var som helst i samma ark. Här har vi valt Range-utgångsceller från D1 till D3.

Koda:

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

Steg 6: Nu kompilera och kör. Vi kommer att texten "VBA Paste" från cell B3 kommer att kopieras och klistras in i cellerna D1 till D3 som visas nedan.

Fördelar med Excel VBA-klistra in

  • Att använda de två första exemplen är det enkla och snabbaste sättet att tillämpa VBA-klistra in.
  • För enorma data där det är svårt att göra flera aktiviteter, där om vi automatiserar den här typen av liten funktion, skulle det spara enorm tid att göra manuella saker.
  • Det finns ingen gräns för att kopiera och klistra in data.

Saker att komma ihåg

  • Använd underkategori på ett sådant sätt att om du använder flera moduler så lägger du in sekvensen så blir det enkelt att spåra och välja rätt makro.
  • Spara excel-fil i makroaktivera format så att skriftlig kod kommer att bevaras för nästa användningstid.
  • Om du skriver flera kodrader rekommenderas det att kompilera koden rad för rad för att hitta om det finns ett fel i den.
  • Det rekommenderas att placera markören vid cell B3 om du använder exempel-3.

Rekommenderade artiklar

Detta har varit en guide till VBA Paste. Här diskuterade vi VBA Paste och hur man använder Excel VBA Paste tillsammans med praktiska exempel och nedladdningsbar Excel-mall. Du kan också gå igenom våra andra föreslagna artiklar -

  1. VBA-match | Hur man använder?
  2. Excel TRANSPOSE-formel
  3. VBA Range | Enkla Excel-makron
  4. Häckt IF-formel i Excel

Kategori:

VBA