Másolja az adatokat egy másik munkafüzetbe az Excel programban

Az adatok Microsoft Excelben történő manipulálásakor az Áthelyezés vagy a Másolás lap parancs egy gyors és egyszerű módja a teljes lapok áthelyezésének vagy másolásának más helyekre, akár ugyanabban a fájlban, akár egy másik munkafüzetben. Alternatív megoldásként a VBA (Visual Basic for Applications) segítségével automatizálhatja a feladatot, és sokkal kevésbé fárasztóvá teszi.

Ez a cikk bemutatja mindkét módszert az adatok másolására a Microsoft Excel egy másik munkafüzetére.

• Adatok áthelyezése vagy másolása ugyanabban a munkafüzetben
• Adatok áthelyezése vagy másolása különböző munkafüzetekben
• Adatok áthelyezése vagy másolása VBA használatával

Adatok áthelyezése vagy másolása ugyanabban a munkafüzetben

Az első lépés az, hogy kiválasszuk a mozgatni vagy másolni kívánt lapot. Több lap kiválasztásához egyszerűen válassza ki az első lapot, majd tartsa lenyomva a Vezérlőgombot, miközben rákattint a másolandó további lapokra.

A felső eszköztár kezdőlapján keresse meg a Cellák csoportot, majd kattintson a Formázás gombra. A Szövegek rendezése alatt kattintson az Áthelyezés vagy másolás lapra .

Megnyílik egy párbeszédpanel. A Előző listában kattintson az előbbi lapra , amelybe be szeretné helyezni az áthelyezett vagy másolt lapokat, vagy kattintson a Vége gombra a lapok utólagos beillesztéséhez a munkafüzet utolsó lapja után.

A lapok áthelyezésének helyett a Másolás vagy Másolás párbeszédpanelen található Másolat jelölőnégyzetet jelölje be.

Adatok áthelyezése vagy másolása különböző munkafüzetekben

Ha szeretné áthelyezni vagy másolni az Excel munkalapokat egy másik munkafüzetbe, először győződjön meg arról, hogy a célmunkakönyvet a Microsoft Excel ugyanazon verziójában nyitja meg.

Jelölje ki az áthelyezni vagy másolni kívánt lapokat. Ezután ugorjon az eszköztár Home fülére, és kattintson a Cellák csoport> Formátum parancsra. A Szövegek rendezése alatt kattintson az Áthelyezés vagy másolás lapra .

Megnyílik egy párbeszédpanel. A Könyvjegyzék listában válassza ki, hogy áthelyezi vagy másolja a kiválasztott lapokat egy meglévő munkafüzetbe, vagy áthelyezi vagy másolja át a lapokat egy új munkafüzetbe.

A Előző listában kattintson az előbbi lapra , amelybe be szeretné helyezni az áthelyezett vagy másolt lapokat, vagy kattintson a Vége gombra a lapok utólagos beillesztéséhez a munkafüzet utolsó lapja után.

Adatok áthelyezése vagy másolása VBA használatával

Sub CopyOpenItems ()
'
'CopyOpenItems Makró
'Nyissa meg a nyitott elemeket lapra.
'
'Billentyűparancs: Ctrl + Shift + O
'
Dim wbTarget A munkafüzet munkafüzete, ahol az adatokat be kell illeszteni
Dim wbThis Mint Workbook munkafüzet, ahonnan az adatokat másolni kell
Dim strName A forráslap / cél munkafüzet karakterláncának neve
'beállítva az aktuális aktív munkafüzetre (a forráskönyv)
Állítsa be a wbThis = ActiveWorkbook parancsot
'kapja meg a könyv aktív lapnevét
strName = ActiveSheet.Name
„nyisson meg egy munkalapot, amelynek neve ugyanaz, mint a lap neve
Állítsa be a wbTarget = Workbooks.Open ("C: filepath" és a "strName &" .xlsx ")
'válassza ki az A1 cellát a célkönyvben
wbTarget.Range ( "A1"). Jelölje
„A meglévő értékek egyértelműen célkönyvet alkotnak
wbTarget.Range ( "A1: M51"). ClearContents
'aktiválja a forráskönyvet
wbThis.Activate
„Távolítson el minden dolgot a vágólapon a rendelkezésre álló memória maximalizálása érdekében
Application.CutCopyMode = Hamis
'másolja a tartományt a forráskönyvből
wbThis.Range ( "A12: M62"). Copy
„illessze be az adatokat a célkönyvbe
wbTarget.Range ( "A1"). PasteSpecial
„Távolítson el minden dolgot a vágólapon a rendelkezésre álló memória maximalizálása érdekében
Application.CutCopyMode = Hamis
'mentse el a célkönyvet
wbTarget.Save
- zárja be a munkafüzetet
wbTarget.Close
'aktiválja újra a forráskönyvet
wbThis.Activate
tiszta memória
Állítsa be wbTarget = Semmi
Állítsa be a wbThis = Semmi
Vége vége