Ta članek bo pokazal, kako uporabiti VBA za kopiranje obsega celic na drug list ali delovni zvezek.
Za več informacij preberite naš Voda Vodič za kopiranje in lepljenje.
Kopiraj na obstoječi list
Za kopiranje obsega celic z enega lista na drug list, ki že obstaja, lahko uporabimo naslednjo kodo:
| 123456 | Sub CopyAndPasteActiveSheet.Range ("A1: D10"). IzberiteIzbor.KopirajListi ("List2"). IzberiteActiveSheet.PasteEnd Sub |
To bo kopiralo podatke, shranjene v aktivnem območju listov A1: D10, in jih prilepilo v obstoječi list2. Ker v listu 2 nismo določili obsega za izbiro, ga bo samodejno prilepil v obseg (»A1«). Prav tako bo prilepil poljubno oblikovanje v list 2, ki je bil v razponu v listu 1.
Če ga želimo prilepiti na drugo mesto v 2. listu, lahko izberemo začetno celico ali obseg, v katerega bomo prilepili. Spodnja koda bo prilepila podatke, ki se začnejo v celici E2.
| 1234567 | Sub CopyAndPasteToRangeActiveSheet.Range ("A1: D10"). IzberiteIzbor.KopirajListi ("List2"). IzberiteRazpon ("E1"). IzberiteActiveSheet.PasteEnd Sub |
Če želite le prilepiti vrednosti v List 2 in ne vključujejo oblikovanja, lahko uporabimo naslednjo kodo. Še enkrat, ni nam treba določiti obsega strani, če želimo prilepiti v celico A1.
| 123456 | Sub CopyAndPasteValuesActiveSheet.Range ("A1: D10"). IzberiteIzbor.KopirajListi ("List2"). IzberiteSelection.PasteSpecial Paste: = xlPasteValuesEnd Sub |
Kopiraj v nov list
Za kopiranje in nato lepljenje v nov list lahko uporabimo naslednjo kodo:
| 123456 | Sub CopyAndPasteNewSheetActiveSheet.Range ("A1: D10"). IzberiteIzbor.KopirajListi. Dodaj po: = ActiveSheetActiveSheet.PasteEnd Sub |
Če želite samo kopirati vrednosti, lahko znova uporabimo xlPasteValues.
Kopirajte v obstoječi delovni zvezek
Če želite v celoti kopirati in prilepiti v drug delovni zvezek, imamo lahko oba delovna zvezka že odprta ali pa lahko s kodo odpremo drug delovni zvezek in ga nato prilepite v ta delovni zvezek.
Ta koda spodaj se kopira v obstoječi delovni zvezek, ki je že odprt.
| 1234567 | Sub CopyAndPasteExistingBookRazpon ("A1: D10"). IzberiteIzbor.KopirajWindows ("CombinedBranches.xlsx"). AktivirajteListi. Dodaj po: = ActiveSheetActiveSheet.PasteEnd Sub |
Programiranje VBA | Generator kod deluje za vas!
Ta spodnja koda bo kopirala in prilepila v nov list v 2. delovnem zvezku, ki ga bo odprla koda.
| 1234567 | Sub CopyAndPasteOpenWorkbookRazpon ("A1: D9"). IzberiteIzbor.KopirajDelovni zvezki. Odprite Ime datoteke: = "C: \ ExcelFiles \ CombinedBranches.xlsx"Listi. Dodaj po: = ActiveSheetActiveSheet.PasteKončni list |
NASVET: zamenjajte ime datoteke v delovnih zvezkih.Odprite argument z lastnim imenom datoteke!
Kopiraj v nov delovni zvezek
Prav tako lahko kopiramo in prilepimo v nov delovni zvezek.
| 123456 | Sub CopyAndPasteNewWorkbookRazpon ("A1: D9"). IzberiteIzbor.KopirajDelovni zvezki.DodajActiveSheet.PasteEnd Sub |
