VBA Másolás beillesztése

Hasonlóan az Excel munkalap-funkciójához, másolhatjuk a beillesztési adatokat vagy az értékkészletet is a VBA-ban. Normál adatokban vagy a CTRL + C gombokat használjuk az adatok kiválasztásának másolásához, majd a CTRL + V gombbal illesztjük be a kiválasztott adatokat a célcellába. De a VBA-ban ugyanez történik bizonyos kódokkal, amelyeket ebben a cikkben megtanulunk.

Hogyan használhatjuk a másolást és beillesztést az Excel VBA-ban? Ehhez először aktiválnunk kell a cél munkalapot vagy munkafüzetet, ahonnan bármilyen adattartományt lemásolni szeretnénk, és ezt a választást egy bizonyos kód másolja, amikor a kiválasztás sikeresen lemásolódik, továbbléphetünk és beilleszthetjük az adatokat a célba sejttartomány.

Az adatok VBA-ba másolásának szintaxisa a következő:

 Tartomány (“Original Cell”) .Másolás

Az adatok más munkalapba vagy bármely más cellába való beillesztésének szintaxisa a következő:

 Tartomány (“Destination Cell”) .Paste

A Dot (.) Operátort használjuk a VBA másolási és beillesztési módszereinek használatához.

Másolhatunk egy teljes oszlopot, és beilleszthetjük egy másik oszlopba, és hasonlóképpen egy egész sort is másolhatunk, és egy másik sorba illeszthetjük. Mindezeket a cikkben megismerjük.

Megjegyzés: A VBA exkluzív használatához győződjön meg arról, hogy a Fejlesztői lap engedélyezve van a Fájl lapon, majd az opciók beállításai szakaszban.

Hogyan kell használni az Excel VBA másolási beillesztést?

Megtanuljuk, hogyan kell használni a VBA Másolás beillesztését néhány példával az Excelben.

Itt töltheti le a VBA Másolás beillesztése Excel sablonját - VBA Másolás beillesztése Excel sablon

VBA másolás beillesztése - 1. példa

A demonstrációs célokra véletlenszerű érték van az A1 cellában, amelyet át akarom másolni és beilleszteni a B1 cellába VBA kód használatával. Nézze meg az alábbiakban, mi az adat az A1 cellában, és a B1 cell üres.

Az Excel VBA Másolás beillesztés használatához kövesse az alábbi lépéseket:

1. lépés: Lépjen a fejlesztői fülre, és kattintson a Visual Basic-re a VB Editor megnyitásához.

2. lépés: Amint a VB szerkesztő megnyílik, kattintson a beszúrás elemre, majd a modul beillesztése elemkód-ablak beszúrásához.

3. lépés: Nyisson meg egy alfunkciót a kódírás elindításához.

Kód:

 Alminta () Alsó rész vége

4. lépés: A munkalap tulajdonságainak a következő kóddal történő használatához először aktiválja a munkalapot.

Kód:

 Alminta () munkalapok ("1.lap")

5. lépés: Másolja az A1 cellában található adatokat a következő kóddal.

Kód:

 Alminta () munkalapok ("1. lap"). Aktiválja a tartományt ("A1"). Másolás vége

6. lépés: Most illessze be a másolt adatokat a cél cellába, amely a B1 cella, a következő kóddal.

Kód:

 Alminta () Munkalapok ("1. lap"). Aktiválja a tartományt ("A1"). Másolási tartomány ("B1"). PasteSpecial End Sub

7. lépés: Futtassa a fenti kódot a mellékelt futtatás gombból, és tekintse meg az eredményt a B1 cellában.

VBA másolás beillesztése - 2. példa

A C oszlopban vannak adatok, és a teljes adatokat vagy értékeket át szeretném másolni, és VBA-kóddal beilleszteni a D. oszlopba. Nézze meg az alábbiakban, mi az a adat a C oszlopban, és hogy a D oszlop üres.

Az Excel VBA Másolás beillesztés használatához kövesse az alábbi lépéseket:

1. lépés: Lépjen a fejlesztői fülre, és kattintson a Visual Basic-re a VB Editor megnyitásához.

2. lépés: Kattintson a behelyezett modulra a kódablak megnyitásához,

3. lépés: Nyisson meg egy alfunkciót a kódírás elindításához.

Kód:

 1. alminta () az al

4. lépés: Először aktiválja a munkalapot a következő kóddal.

Kód:

 Alminta1 () munkalapok ("1.lap")

5. lépés: Másolja ki a C oszlopban szereplő adatokat a következő kóddal.

Kód:

 Alminta1 () munkalapok ("1.lap"). Aktiválja a tartományt ("C: C"). Másolás vége

6. lépés: Most illessze be az adatokat a D oszlopba, használja a következő kódot.

Kód:

 Alminta1 () munkalapok ("1.lap"). Aktiválja a tartományt ("C: C"). Másolási tartomány ("D: D"). PasteSpecial End Sub

7. lépés: Futtassa a következő kódot a mellékelt futtatás gombból, vagy nyomja meg az F5 billentyűt.

Futtassa a kódot a következő eredmény megtekintéséhez.

VBA másolás beillesztése - 3. példa

Most ehhez a példához egész csomó adattartományom van a G1: H3 cellatartományban, és szeretném másolni az I1: J3 cellatartományban található adatokat. Az alábbiakban nézze meg azokat az adatokat, amelyek a G1: H3 cellatartományban vannak, és az I1: J3 cellatartomány üres.

Az Excel VBA Másolás beillesztés használatához kövesse az alábbi lépéseket:

1. lépés: Lépjen a fejlesztői fülre, és kattintson a Visual Basic-re a VB Editor megnyitásához.

2. lépés: Kattintson a behelyezett modulra a kódablak megnyitásához,

3. lépés: Nyisson meg egy alfunkciót a kódírás elindításához.

Kód:

 2. alminta () az al

4. lépés: Először aktiválja a munkalapot annak tulajdonságainak a következő kóddal történő használatához.

Kód:

 Alminta2 () munkalapok ("1.lap")

5. lépés: Másolja az adatokat a célcellán belül a következő kóddal.

Kód:

 Alminta2 () munkalapok ("1.lap"). Aktiválja a tartományt ("G1: H3") Másolás vége

6. lépés: Az adatok beillesztéséhez a célcellába használja a következő kódot.

Kód:

 Alminta2 () munkalapok ("Lap1"). Aktiválja a tartományt ("G1: H3"). Másolási tartomány ("I1: J3"). PasteSpecial End Sub

7. lépés: Futtassa a fenti kódot a mellékelt futtatás gombból, vagy nyomja meg az F5 billentyűt a következő eredmény megjelenítéséhez.

VBA másolás beillesztése - 4. példa

Ebben a példában a 10. sorban vannak adatok, és be szeretném illeszteni az adatokat a 11. sorba. Vessen egy pillantást az alábbiakra, hogy megnézze, mi az adat a 10. sorban és a 11. sor üres.

Az Excel VBA Másolás beillesztés használatához kövesse az alábbi lépéseket:

1. lépés: Lépjen a fejlesztői fülre, és kattintson a Visual Basic-re a VB Editor megnyitásához.

2. lépés: Kattintson a behelyezett modulra a kódablak megnyitásához,

3. lépés: Nyisson meg egy alfunkciót a kódírás elindításához.

Kód:

 Alminta3 () Alsó rész vége

4. lépés: A munkalap tulajdonságainak használatához aktiválja a munkalapot.

Kód:

 Alminta3 () munkalapok ("1.lap")

5. lépés: Másolja a 10. sort a következő kóddal.

Kód:

 Alminta3 () munkalapok ("1.lap"). Aktiválja a sorokat (10) .EntireRow.Copy End Sub

6. lépés: Illessze be a 10. sor adatait a 11. sorba a következő kóddal.

Kód:

 Alminta3 () munkalapok ("1.lap"). Aktiválja a sorokat (10) .EntireRow.Másolat sorok (11) .EntireRow.PasteSpecial End Sub

7. lépés: Futtassa a fenti kódot az F5 megnyomásával, hogy megkapja a következő eredményt.

Dolgok, amikre emlékezni kell

  • Annak érdekében, hogy bármely munkalap adatait másolni lehessen, előbb aktiválnunk kell a munkalapot.
  • Hasonlóképpen, amikor az adatokat be kell illesztenünk a VBA bármely más munkalapjába, előbb aktiválnunk kell a cél munkalapot.
  • Abban az esetben, ha a teljes oszlopot vagy sort átmásoljuk, és az adatokat beillesztjük bármely más oszlopba, akkor a cél cellák sorának vagy oszlopának bárhol másolása és beillesztése a cél cellákba történik. Ennek oka lehet bizonyos nem kívánt adatok elérése.
  • Az adatok másolásának legjobb módja egy bizonyos tartomány másolása és az adatok beillesztése a célcellákba.

Ajánlott cikkek

Ez egy útmutató a VBA Copy Paste-hez. Itt megvitattuk, hogyan kell használni az Excel VBA Másolás beillesztését, néhány gyakorlati példával és letölthető Excel sablonnal együtt. Megnézheti más javasolt cikkeinket -

  1. Beillesztési módszer a VBA-ban
  2. Excel beillesztés parancsikonja
  3. Split függvény használata a VBA-ban
  4. Bal oldali TRIM Excelben

Kategória:

VBA