Ovaj članak će pokazati kako koristiti VBA za kopiranje raspona ćelija na drugi list ili radnu knjigu.
Za više informacija pročitajte naš VBA vodič za kopiranje i lijepljenje.
Kopiraj na postojeći list
Za kopiranje raspona ćelija s jednog lista na drugi list koji već postoji možemo upotrijebiti sljedeći kod:
123456 | Podkopiraj i zalijepiActiveSheet.Range ("A1: D10"). OdaberiteOdabir.KopirajListovi ("List 2"). OdaberiteActiveSheet.PasteKraj podm |
To će kopirati podatke pohranjene u rasponu aktivnih listova A1: D10 i zalijepiti ih u postojeći List2. Budući da nismo odredili raspon za odabir u listu 2, automatski će ga zalijepiti u raspon (“A1”). Također će zalijepiti bilo koje oblikovanje u list 2 koje je bilo u rasponu u listu 1.
Ako ga želimo zalijepiti na drugo mjesto u listu 2, možemo odabrati početnu ćeliju ili raspon za lijepljenje. Donji kôd zalijepit će informacije koje počinju u ćeliji E2.
1234567 | Potkopija i pastaToRangeActiveSheet.Range ("A1: D10"). OdaberiteOdabir.KopirajListovi ("List 2"). OdaberiteRaspon ("E1"). OdaberiteActiveSheet.PasteKraj podm |
Da bismo samo zalijepili vrijednosti u List 2 i ne uključivali oblikovanje, možemo upotrijebiti sljedeći kod. Još jednom, ne moramo navesti raspon do stranice ako želimo zalijepiti u ćeliju A1.
123456 | Podkopiranje i vrijednost pastaActiveSheet.Range ("A1: D10"). OdaberiteOdabir.KopirajListovi ("List 2"). OdaberiteSelection.PasteSpecial Paste: = xlPasteValuesKraj podm |
Kopiraj na novi list
Za kopiranje, a zatim lijepljenje u novi list, možemo upotrijebiti sljedeći kôd:
123456 | Potkopiraj i zalijepi novi listActiveSheet.Range ("A1: D10"). OdaberiteOdabir.KopirajTablice.Dodaj poslije: = ActiveSheetActiveSheet.PasteKraj podm |
Za samo kopiranje vrijednosti možemo ponovno upotrijebiti xlPasteValues.
Kopirajte u postojeću radnu knjigu
Da biste u cijelosti kopirali i zalijepili u drugu radnu knjigu, možemo imati već otvorene obje radne knjige ili pomoću koda otvoriti drugu radnu knjigu, a zatim je zalijepiti u tu radnu knjigu.
Ovaj kôd u nastavku kopira se u postojeću radnu knjigu koja je već otvorena.
1234567 | Pod -kopija i pasta -postojeća knjigaRaspon ("A1: D10"). OdaberiteOdabir.KopirajWindows ("CombinedBranches.xlsx"). AktivirajteTablice.Dodaj poslije: = ActiveSheetActiveSheet.PasteKraj podm |
VBA programiranje | Generator koda radi za vas!
Ovaj kôd u nastavku će se kopirati i zalijepiti u novi list u drugoj radnoj knjizi koju će otvoriti kôd.
1234567 | Podkopiraj i prilijepiOtvorenu radnu knjiguRaspon ("A1: D9"). OdaberiteOdabir.KopirajRadne knjige.Otvorite naziv datoteke: = "C: \ ExcelFiles \ CombinedBranches.xlsx"Tablice.Dodaj poslije: = ActiveSheetActiveSheet.PasteZavršni list |
SAVJET: zamijenite naziv datoteke u radnim knjigama. Otvorite argument vlastitim imenom datoteke!
Kopiraj u novu radnu knjigu
Također možemo kopirati i zalijepiti u novu radnu knjigu.
123456 | Podkopiraj i zalijepiNovaWorkbookRaspon ("A1: D9"). OdaberiteOdabir.KopirajRadne bilježnice.DodajActiveSheet.PasteKraj podm |