VBA Paste
A VBA Paste ugyanúgy működik, mint a Másolás / Kivágás és Beillesztés Excelben. VBA illessze be az automatikus verzióját annak, amit rendszeresen elvégzünk a szokásos excel munkák során. Az adatok beillesztése a kívánt helyre a rutin feladat. Annak érdekében, hogy ezt a tevékenységet elvégezzük, meg kell határoznunk a helyet, ahonnan az adatokat kiválasztjuk, és a helyet, ahova beillesztjük.
Hogyan kell használni az Excel VBA beillesztést?
Megtanuljuk a VBA-paszta használatát, néhány példával az Excelben.
Itt letöltheti ezt a VBA Paste Excel sablont - VBA Paste Excel TemplateVBA beillesztés - 1. példa
Vizsgáljuk meg az excel bármely celláját, amelynek van valamilyen szövege. Itt tartottuk a „ VBA Paste ” szöveget a B3 cellában, az alább látható módon.
A VBA Paste használatához kövesse az alábbi lépéseket.
1. lépés: Most nyissa meg a VBA ablakot, és nyisson meg egy új modult a Beszúrás menüből, az alább látható módon.
2. lépés: Ha ezt megtesszük, kapunk egy üres modult. Ebben kezdje meg az alkategória írását. Javasoljuk, hogy alkategóriát írjon annak a funkciónak a nevére, amelyet végrehajtunk.
Kód:
Sub VBAPaste1 () End Sub
3. lépés: Most először válassza ki a Range cellot, ahol rendelkezünk az adatokkal, amelyeket be kell másolnunk. Itt a Range cellunk a B3, amelyet egy .Copy funkció követ. Ez lemásolja a kiválasztott tartomány tartományba tartozó adatokat.
Kód:
Sub VBAPaste1 () Range ("B3"). Másolás vége Sub
4. lépés: Most szükségünk van egy célcellára, ahova be kell illesztenünk ezt a másolt értéket. A Destination paranccsal válassza ki a Range cellot. Itt a D1 cellát választottuk, ahol látni fogjuk az értéket.
Kód:
Sub VBAPaste1 () Range ("B3"). Másolási cél: = Range ("D1") End Sub
5. lépés: Ha kész, fordítsa le a kódot, és futtassa.
Látni fogjuk, hogy a B3 cella sejttartalmát másoltuk és beillesztettük a D3 cellabe, a fent bemutatottak szerint.
VBA beillesztés - 2. példa
Vegyük egy másik példát a VBA Paste-ra. Ehhez nyissa meg a VBA ablakot, nyisson meg egy modult, majd kövesse az alábbi lépéseket.
1. lépés: Indítsa el az alkategóriák írását a VBA Paste vagy más nevek nevében, az alább látható módon.
Kód:
Sub VBAPaste2 () End Sub
2. lépés: Itt tekintjük ugyanazokat az adatokat vagy a B3 referenciacellát, amelyeket az 1. példában láttunk. Válassza ki a B3 tartomány cellát, majd a .Copy parancsot. Ez lemásolja az adatokat.
Kód:
Sub VBAPaste2 () Range ("B3"). Másolás vége Sub
3. lépés: Most válassza ki a tartomány cellát, ahova be kell illesztenünk a másolt adatokat. Itt a D1 – D3 cellákat választjuk meg, ellentétben csak egy cellával, az 1. példában bemutatottak szerint.
Kód:
Sub VBAPaste2 () Range ("B3"). Copy Range ("D1: D3"). Select Sub End
4. lépés: Miután másoltuk az adatokat, és kiválasztottuk a cellákat, ahova beillesztésre lenne szükség. Most válassza ki a Paste parancsot az ActiveSheet funkció segítségével. Ez az ActiveSheet lehetővé teszi a lemásolt cellák beillesztését a tartományba eső cellákba.
Kód:
Sub VBAPaste2 () Range ("B3"). Copy Range ("D1: D3"). Válassza az ActiveSheet.Paste End Sub menüpontot
5. lépés: Most fordítsa le a kódot, és futtassa azt. Látni fogjuk, hogy a B3 sejt értékét beillesztjük a D1 és D3 sejtekbe.
VBA beillesztés - 3. példa
A VBA Paste egy másik módszere a manuális eljárás használata, amelyet a másoláshoz és a beillesztéshez végezzünk.
Kövesse az alábbi lépéseket:
1. lépés: Írja be a VBA Paste alkategóriáját az alább látható módon.
Kód:
Sub VBAPaste3 () End Sub
2. lépés: Jobb, ha a sorozatot az Alkategória kategóriába sorolja, ha több kódkódot ír egyetlen fájlba. Bármely beillesztéshez először le kell másolnunk ezeket az adatokat. Itt választottuk a Másolás parancsot.
Kód:
Sub VBAPaste3 () Selection.Copy End Sub
3. lépés: Most válassza ki azt a tartományt vagy referenciacellát, amelyet be kell másolnunk és beillesztenünk. Itt van a D3 Cell, amelyben a “VBA Paste” adat szerepel.
Kód:
Sub VBAPaste3 () Selection.Copy Range ("D3"). Válassza a Sub Sub vége lehetőséget
4. lépés: Most excelben kiválasztjuk azokat a cellákat, ahol manuálisan vagy a Shift + Ctrl + Fel / Le gombokkal kell beilleszteni az adatokat. Itt is a End (xlUp) paranccsal választjuk ki a cellák helyét a kimeneti cellák tartományának kiválasztásához.
Kód:
Sub VBAPaste3 () Selection.Copy Range ("D3"). Select Range (Selection, Selection.End (xlUp)). Select Sub End
5. lépés: Most válassza ki a kimeneti cellatartományt, itt kiválasztottuk a D1 – D3 cellákat, ahol látni fogjuk a beillesztett adatokat.
Kód:
Sub VBAPaste3 () Selection.Copy Range ("D3"). Select Range (Selection, Selection.End (xlUp)). Select Range ("D1: D3"). Select Sub Sub End
6. lépés: Mint a függvény, amelyet végre kell hajtanunk, a paszta funkció, tehát a VBA-ban a paszta parancsot az ActiveSheet paranccsal kell aktiválnunk, majd pont (.) Beillesztést kell végrehajtanunk.
Kód:
Sub VBAPaste3 () Selection.Copy Range ("D3"). Select Range (Selection, Selection.End (xlUp)). Select Range ("D1: D3"). Select ActiveSheet.Paste End Sub
7. lépés: Most végre engedélyezze a CutCopyMode alkalmazást hamisként, ami azt jelenti, hogy csak az adatokat másolja, ahelyett, hogy azokat a referencia cellából is kivágná.
Kód:
Sub VBAPaste3 () Selection.Copy Range ("D3"). Select Range (Selection, Selection.End (xlUp)). Select Range ("D1: D3"). Select ActiveSheet.Paste Application.CutCopyMode = False End Sub
8. lépés: A kód futtatása előtt helyezze a kurzort először a B3 cellára. Ezután fordítsa le a kódot, és futtassa azt. Látni fogjuk, hogy adatait a D1 - D3 cellákba másoljuk.
VBA beillesztés - 4. példa
Van egy másik módszer a VBA Paste használatához egyetlen kódsorban.
Kövesse az alábbi lépéseket:
1. lépés: Írja be az alkategóriát a végrehajtott függvény sorrendjében és nevében.
Kód:
Sub VBAPaste4 () End Sub
2. lépés: Használja a Munkalapok parancsot, és válassza ki a Munkalapot, ahol dolgozunk. A lap neve itt: „1. lap”. Használhatjuk a Workbook.Sheet (1) fájlt is ehelyett a „Sheet1” kiválasztásához.
Kód:
Sub VBAPaste4 () munkalapok ("1. lap"). Befejezés Sub
3. lépés: Válassza ki a cellát, ahonnan lemásoljuk az adatokat. Itt a Range cell a B3, amely ugyanazokkal az adatokkal rendelkezik, mint amit a fenti példákban láthattunk.
Kód:
Sub VBAPaste4 () munkalapok ("Sheet1"). Range ("B3"). Befejezés Sub
4. lépés: Most illessze be a Másolás parancsot egy pont (.) Után az adatok másolásához a kiválasztott tartomány cellából.
Kód:
Sub VBAPaste4 () munkalapok ("Sheet1"). Range ("B3"). Másolás vége Sub
5. lépés: Most a Destination paranccsal válassza ki azt a helyet, ahova beillesztjük a másolt adatokat. Ehhez válassza a Munkalapot, mint „1. lap”, amelyet a példa elején tettünk, és válassza ki a Range cellákat ugyanazon a lapon bárhol. Itt kiválasztottuk a Range output kimeneti cellákat D1-től D3-ig.
Kód:
Sub VBAPaste4 () Munkalapok ("Sheet1"). Range ("B3"). Másolás cél: = Munkalapok ("She11"). Range ("D1: D3") End Sub
6. lépés: Most fordítsa le és futtassa. A B3 cellából a „VBA Paste” szöveget lemásoljuk és beillesztjük a D1 – D3 cellába, az alább látható módon.
Az Excel VBA Paste előnyei
- Az első 2 példa alkalmazása a VBA Paste alkalmazás egyszerű és leggyorsabb módja.
- Nagyon sok adat esetében, ahol nehéz több tevékenységet elvégezni, ott ha automatizálunk egy ilyen apró funkciót, ez óriási időt takaríthat meg a kézi munkák elvégzéséhez.
- Az adatok másolása és beillesztése nincs korlátozva.
Dolgok, amikre emlékezni kell
- Az alkategóriát oly módon használja, hogy ha több modult használ, akkor a sorozat beillesztése megkönnyíti a követést és a megfelelő makró kiválasztását.
- Mentse az Excel fájlt a Makro engedélyezése formátumba, hogy az írott kód megmaradjon a következő felhasználás alkalmával.
- Ha több sornyi kódot ír, akkor javasoljuk, hogy sorolja le a kódot, hogy megtalálja-e hibát.
- Javasoljuk, hogy helyezze a kurzort a B3 cellára, ha a 3. példát használja.
Ajánlott cikkek
Ez egy útmutató a VBA Paste-hoz. Itt tárgyaltuk a VBA Paste és az Excel VBA Paste használatának módját, valamint a gyakorlati példákat és a letölthető Excel sablont. Megnézheti más javasolt cikkeinket -
- VBA mérkőzés | Hogyan kell használni?
- Excel TRANSPOSE Formula
- VBA sorozat | Könnyű Excel makrók
- Beágyazott IF képlet az Excelben