Ez a cikk bemutatja, hogyan használhatja a VBA -t egy sejtvonal másolására egy másik lapra vagy munkafüzetbe.
További információkért olvassa el VBA másolási és beillesztési oktatóanyagunkat.
Másolás a meglévő lapra
A cellatartomány másolásához egyik lapról a másikra már létező lapra a következő kódot használhatjuk:
123456 | Sub CopyAndPasteActiveSheet.Range ("A1: D10"). Válassza kiKiválasztás. MásolásTáblázatok ("Sheet2"). Válassza a lehetőségetActiveSheet.PasteEnd Sub |
Ezzel másolja az aktív A1: D10 laptartományban tárolt információkat, és illessze be egy meglévő2 lapba. Mivel a 2. lapon nem adtuk meg a választandó tartományt, automatikusan beilleszti a tartományba („A1”). Ezenkívül minden formázást beilleszt a 2. lapba, amely az 1. lap tartományában volt.
Ha a 2. lapon egy másik helyre szeretnénk beilleszteni, kiválaszthatjuk a kiinduló cellát vagy tartományt, amelybe beilleszteni kívánjuk. Az alábbi kód beilleszti az információkat az E2 cellából.
1234567 | Sub CopyAndPasteToRangeActiveSheet.Range ("A1: D10"). Válassza kiKiválasztás. MásolásTáblázatok ("Sheet2"). Válassza a lehetőségetTartomány ("E1"). Válassza kiActiveSheet.PasteEnd Sub |
Ha csak be szeretné illeszteni az értékeket a 2. lapba, és nem tartalmazza a formázást, használhatjuk a következő kódot. Még egyszer nem kell megadnunk az oldalak közötti tartományt, ha be szeretnénk illeszteni az A1 cellába.
123456 | Sub CopyAndPasteValuesActiveSheet.Range ("A1: D10"). Válassza kiKiválasztás. MásolásTáblázatok ("Sheet2"). Válassza a lehetőségetSelection.PasteSpecial Paste: = xlPasteValuesEnd Sub |
Másolás új lapra
Másoláshoz, majd beillesztéshez új lapra a következő kódot használhatjuk:
123456 | Sub CopyAndPasteNewSheetActiveSheet.Range ("A1: D10"). Válassza kiKiválasztás. MásolásSheets.Add After: = ActiveSheetActiveSheet.PasteEnd Sub |
Az értékek másolásához ismét használhatjuk az xlPasteValues értéket.
Másolás a meglévő munkafüzetbe
Ha teljesen másolni és beilleszteni egy másik munkafüzetbe, akkor mindkét munkafüzetet már megnyithatjuk, vagy a kód segítségével megnyithatunk egy másik munkafüzetet, majd beilleszthetjük a munkafüzetbe.
Ez az alábbi kód egy meglévő, már megnyitott munkafüzetbe másolódik.
1234567 | Sub CopyAndPasteExistingBookTartomány ("A1: D10"). Válassza kiKiválasztás. MásolásWindows ("CombinedBranches.xlsx"). AktiváljaSheets.Add After: = ActiveSheetActiveSheet.PasteEnd Sub |
VBA programozás | A kódgenerátor működik az Ön számára!
Ez az alábbi kód másolja és illessze be a második munkafüzet új lapjába, amelyet a kód nyit meg.
1234567 | Sub CopyAndPasteOpenWorkbookTartomány ("A1: D9"). Válassza kiKiválasztás. MásolásWorkbooks.Open Filename: = "C: \ ExcelFiles \ CombinedBranches.xlsx"Sheets.Add After: = ActiveSheetActiveSheet.PasteVégelap |
TIPP: cserélje ki a fájl nevét a munkafüzetekben. Nyissa meg az érvet saját fájlnevével!
Másolás az új munkafüzetbe
Másolhatunk és beilleszthetünk egy új munkafüzetbe.
123456 | Sub CopyAndPasteNewWorkbookTartomány ("A1: D9"). Válassza kiKiválasztás. MásolásMunkafüzetekActiveSheet.PasteEnd Sub |