Paste VBA
VBA Paste funcționează în același mod ca și Copiere / Tăiere și Lipire în Excel. VBA Lipeste-l versiunea automată a ceea ce facem în mod regulat în lucrările regulate Excel. Inserarea datelor în orice locație necesară este sarcina de rutină. Pentru a realiza această activitate, trebuie să definim locația de unde vom alege datele și locația în care le vom lipi.
Cum se folosește Excel VBA Paste?
Vom învăța cum să folosiți un VBA Paste cu câteva exemple în Excel.
Puteți descărca acest șablon VBA Paste Excel aici - Modelul VBA Paste ExcelPaste VBA - Exemplul # 1
Să luăm în considerare orice celulă din excel care are un text. Aici am păstrat textul „ VBA Paste ” în celula B3, așa cum se arată mai jos.
Urmați pașii de mai jos pentru a utiliza VBA Paste.
Pasul 1: Acum accesați fereastra VBA și deschideți un nou modul din meniul Insert, așa cum se arată mai jos.
Pasul 2: Odată ce facem asta, vom primi un modul gol. În acel început scrie Subcategorie. Este recomandat să scrieți subcategoria în numele funcției pe care o îndeplinim.
Cod:
Sub VBAPaste1 () End Sub
Pasul 3: Selectați mai întâi celula Range unde avem datele pe care trebuie să le copiem. Aici celula noastră Range este B3, urmată de funcția .Copy . Aceasta copiază datele din celula Range pe care am selectat-o.
Cod:
Sub VBAPaste1 () Interval ("B3")
Pasul 4: Acum avem nevoie de o celulă de destinație în care trebuie să lipim această valoare copiată. Cu ajutorul destinației selectați celula Range. Aici am selectat celula D1, unde vom vedea valoarea.
Cod:
Sub VBAPaste1 () Interval ("B3"). Destinație de copiere: = Interval ("D1")
Pasul 5: Odată terminat, compilați codul și executați-l.
Vom vedea că conținutul celulei celulei B3 este acum copiat și lipit în celula D3, așa cum se arată mai sus.
Paste VBA- Exemplul # 2
Să luăm în considerare un alt exemplu de VBA Paste. Pentru aceasta, accesați fereastra VBA și deschideți un modul, apoi urmați pașii de mai jos.
Pasul 1: Începeți să scrieți Subcategoria în numele VBA Paste sau în orice alt nume, așa cum se arată mai jos.
Cod:
Sub VBAPaste2 () End Sub
Pasul 2: Aici vom avea în vedere aceleași date sau celule de referință B3 pe care le-am văzut în exemplul 1. Selectați celula Range B3 urmată de comanda .Copy . Aceasta va copia datele.
Cod:
Sub VBAPaste2 () Interval ("B3")
Pasul 3: Acum selectați celula interval unde trebuie să lipiți datele copiate. Aici selectăm celule D1 până la D3 spre deosebire de selectarea unei singure celule, așa cum se arată în exemplul 1.
Cod:
Sub VBAPaste2 () Interval ("B3"). Copiere Interval ("D1: D3"). Selectați End Sub
Pasul 4: odată ce am copiat datele și am selectat celulele unde trebuie să fie lipite. Acum selectați Pasare comandă cu ajutorul funcției ActiveSheet . Această foaie de activare permite celulelor copiate lipite în celule de rază de acțiune.
Cod:
Sub VBAPaste2 () Interval ("B3"). Copiere Interval ("D1: D3"). Selectați ActiveSheet.Paste End Sub
Pasul 5: Acum compilați codul și rulați-l. Vom vedea, valoarea celulelor din celula B3 va fi lipită de la celulele D1 la D3.
Paste VBA- Exemplul # 3
O altă metodă de VBA Paste este utilizarea procesului manual pe care îl facem pentru copiere și lipire.
Urmați pașii de mai jos:
Pasul 1: Scrieți subcategoria Pastei VBA așa cum se arată mai jos.
Cod:
Sub VBAPaste3 () End Sub
Pasul 2: Este mai bine să dați secvența la Subcategorie dacă scrieți mai multe seturi de coduri într-un singur fișier. Pentru a lipi orice, mai întâi, trebuie să copiem datele respective. Aici am selectat comanda Copiere .
Cod:
Sub VBAPaste3 () Selection.Copy End Sub
Pasul 3: Acum selectați intervalul sau celula de referință pe care trebuie să le copiem și să le lipiți. Aici avem celula D3 cu date „VBA Paste”.
Cod:
Sub VBAPaste3 () Selection.Copy Range ("D3"). Selectați End Sub
Pasul 4: Acum în excel, selectăm celulele în care trebuie să lipiți datele manual sau prin tastele Shift + Ctrl + Sus / Jos. Tot aici vom selecta locația celulelor prin comanda End (xlUp) pentru selectarea gamei de celule de ieșire.
Cod:
Sub VBAPaste3 () Selection.Copy Range ("D3"). Select Select Range (Selection, Selection.End (xlUp)). Select Select End Sub
Pasul 5: Acum selectăm intervalul de celule de ieșire, aici am selectat celule D1 până la D3, unde vom vedea datele lipite.
Cod:
Sub VBAPaste3 () Selection.Copy Range ("D3"). Select Range (Selection, Selection.End (xlUp)). Select Select Range ("D1: D3"). Select Select End Sub
Pasul 6: Ca funcție, trebuie să executăm este funcția de lipire, de aceea trebuie să activăm comanda de paste în VBA prin comanda ActiveSheet urmată de punct (.) Paste.
Cod:
Sub VBAPaste3 () Selection.Copy Range ("D3"). Select Range (Selection, Selection.End (xlUp)). Select Select Range ("D1: D3"). Select Select ActiveSheet.Paste End Sub
Pasul 7: Acum, în sfârșit, permiteți aplicația CutCopyMode ca FALSE, ceea ce înseamnă că sunt doar copierea datelor în loc să le taie și din celula de referință.
Cod:
Sub VBAPaste3 () Selection.Copy Range ("D3"). Select Range (Selection, Selection.End (xlUp)). Select Select Range ("D1: D3"). Select ActiveSheet.Paste Application.CutCopyMode = False End Sub
Pasul 8: Înainte de a rula codul, puneți mai întâi cursorul pe celula B3. Apoi compilați codul și rulați-l. Vom vedea că datele noastre vor fi copiate în celulele D1 până la D3.
Paste VBA- Exemplul # 4
Există un alt mod de a utiliza VBA Paste într-o singură linie de cod.
Urmați pașii de mai jos:
Pasul 1: Scrieți subcategoria în secvența și numele unei funcții îndeplinite.
Cod:
Sub VBAPaste4 () End Sub
Pasul 2: Folosiți comanda Foi de lucru și selectați foaia unde vom lucra. Aici numele fișei noastre este „Foaie1”. Putem folosi Workbook.Sheet (1), de asemenea, pentru a selecta „Sheet1” în loc de aceasta.
Cod:
Sub VBAPaste4 () Fișe de lucru („Foaie1”). Sub final
Pasul 3: Selectați celula de unde vom copia datele. Aici celula noastră Range este B3, care are aceleași date pe care le-am văzut în exemplele de mai sus.
Cod:
Sub VBAPaste4 () Fișe de lucru („Foaie1”). Gama („B3”). Sub final
Pasul 4: Acum introduceți comanda Copy după un punct (.) Pentru copierea datelor din celula Range selectată.
Cod:
Sub VBAPaste4 () Fișele de lucru („Foaie1”). Gama („B3”).
Pasul 5: Folosiți acum comanda Destinație pentru a selecta locația în care vom lipi datele copiate. Pentru acest lucru, selectați Fișa de lucru drept „Foaie1” pe care am făcut-o la începutul acestui exemplu și selectați celulele Range oriunde în aceeași foaie. Aici am selectat celule de ieșire a intervalului de la D1 la D3.
Cod:
Sub VBAPaste4 () Fișe de lucru ("Foaie1"). Gama ("B3"). Destinație de copiere: = Fișe de lucru ("Foaie1"). Gama ("D1: D3")
Pasul 6: Acum Compilați și executați. Textul „VBA Paste” din celula B3 va fi copiat și lipit în celulele D1 până la D3, așa cum se arată mai jos.
Beneficii de Excel VBA Paste
- Aplicarea primelor 2 exemple este cea mai rapidă și rapidă modalitate de aplicare a VBA Paste.
- Pentru date uriașe în care este dificil să faci activități multiple, acolo dacă automatizăm acest tip de funcții mici, asta ar economisi timp uriaș pentru a face lucrurile manuale.
- Nu există nicio limită de copiere și lipire a datelor.
Lucruri de amintit
- Utilizați subcategoria în așa fel încât, dacă utilizați mai multe module, atunci introduceți secvența care va facilita urmărirea și alegerea macro-ului potrivit.
- Salvați fișierul excel în format Macro Enable, astfel încât codul scris să fie păstrat pentru data viitoare de utilizare.
- Dacă scrieți mai multe linii de cod, este recomandat să compilați linia de cod linie pentru a afla dacă există o eroare în el.
- Se recomandă să puneți cursorul la celula B3 dacă utilizați exemplul-3.
Articole recomandate
Acesta a fost un ghid pentru VBA Paste. Aici am discutat VBA Paste și cum să utilizăm Excel VBA Paste împreună cu exemple practice și șablon Excel descărcabil. De asemenea, puteți parcurge și alte articole sugerate -
- Meciul VBA | Cum se folosește?
- Formula Excel TRANSPOSE
- Gama VBA | Macro-uri Excel Excelente
- Formula IF cuibărită în Excel