Tento článok ukáže, ako použiť VBA na kopírovanie rozsahu buniek do iného listu alebo zošita.
Ak chcete získať ďalšie informácie, prečítajte si náš návod na kopírovanie a vkladanie VBA.
Kopírovať do existujúceho hárka
Na kopírovanie rozsahu buniek z jedného hárka do iného hárka, ktorý už existuje, môžeme použiť nasledujúci kód:
| 123456 | Vedľajšia kópia a vloženieActiveSheet.Range ("A1: D10"). VyberteVýber. KopírovaťTabuľky („List2“). VyberteActiveSheet.PasteKoniec pod |
To skopíruje informácie uložené v aktívnom rozsahu hárkov A1: D10 a prilepí ich do existujúceho hárka 2. Pretože sme v hárku 2 neurčili rozsah, ktorý sa má vybrať, automaticky ho prilepí do rozsahu („A1“). Tiež prilepí akékoľvek formátovanie do hárka 2, ktoré bolo v rozsahu v hárku 1.
Ak ho chceme prilepiť na iné miesto v hárku 2, môžeme vybrať počiatočnú bunku alebo rozsah, do ktorého sa má prilepiť. Nasledujúci kód prilepí informácie začínajúce v bunke E2.
| 1234567 | Sub CopyAndPasteToRangeActiveSheet.Range ("A1: D10"). VyberteVýber. KopírovaťTabuľky („List2“). VyberteRozsah („E1“). VyberteActiveSheet.PasteKoniec pod |
Na vloženie hodnôt do hárka 2 a nezahrnutie formátovania môžeme použiť nasledujúci kód. Ak chceme prilepiť do bunky A1, opäť nemusíme určovať rozsah na stránku.
| 123456 | Vedľajšie hodnoty CopyAndPasteValuesActiveSheet.Range ("A1: D10"). VyberteVýber. KopírovaťTabuľky („List2“). VyberteSelection.PasteSpecial Paste: = xlPasteValuesKoniec pod |
Kopírovať do nového hárka
Na skopírovanie a vloženie do nového hárka môžeme použiť nasledujúci kód:
| 123456 | Vedľajšia kópia a vloženie nového listuActiveSheet.Range ("A1: D10"). VyberteVýber. KopírovaťSheets.Add After: = ActiveSheetActiveSheet.PasteKoniec pod |
Na kopírovanie hodnôt môžeme znova použiť xlPasteValues.
Skopírujte do existujúceho zošita
Ak chcete kopírovať a prilepiť úplne do iného zošita, buď môžeme mať oba zošity už otvorené, alebo môžeme pomocou kódu otvoriť iný zošit a potom ho vložiť do tohto zošita.
Tento kód nižšie sa skopíruje do existujúceho zošita, ktorý je už otvorený.
| 1234567 | Sub CopyAndPasteExistingBookRozsah („A1: D10“). VyberteVýber. KopírovaťWindows („CombinedBranches.xlsx“). AktivujteSheets.Add After: = ActiveSheetActiveSheet.PasteKoniec pod |
Programovanie VBA | Generátor kódu pracuje za vás!
Tento kód uvedený nižšie sa skopíruje a vloží do nového listu v druhom zošite, ktorý otvorí kód.
| 1234567 | Vedľajšia kópia a vloženie otvorená pracovná knihaRozsah („A1: D9“). VyberteVýber. KopírovaťZošity. Otvorte názov súboru: = "C: \ ExcelFiles \ CombinedBranches.xlsx"Sheets.Add After: = ActiveSheetActiveSheet.PasteKoncový list |
TIP: nahraďte názov súboru v zošitoch. Otvorený argument vlastným názvom súboru!
Skopírujte do nového zošita
Môžeme tiež skopírovať a prilepiť do nového zošita.
| 123456 | Sub CopyAndPasteNewWorkbookRozsah („A1: D9“). VyberteVýber. KopírovaťZošity. PridaťActiveSheet.PasteKoniec pod |
