See artikkel näitab, kuidas kasutada VBA -d lahtrivahemiku kopeerimiseks teisele lehele või töövihikusse.
Lisateabe saamiseks lugege meie VBA kopeerimise ja kleepimise õpetust.
Kopeeri olemasolevale lehele
Lahtrite vahemiku kopeerimiseks ühelt lehelt teisele juba olemasolevale lehele saame kasutada järgmist koodi:
| 123456 | Sub CopyAndPasteActiveSheet.Range ("A1: D10"). ValigeValik. KopeeriArvutustabelid ("Leht2"). ValigeActiveSheet.PasteEnd Sub |
See kopeerib aktiivsesse lehevahemikku A1: D10 salvestatud teabe ja kleepib selle olemasolevasse lehte2. Kuna me pole lehel 2 määranud vahemikku, mida valida, kleebib see selle automaatselt vahemikku („A1”). Samuti kleepib see vormingu lehele 2, mis oli lehel 1 vahemikus.
Kui soovime selle lehe 2 teise kohta kleepida, saame valida alguslahtri või vahemiku, kuhu kleepida. Allolev kood kleebib teabe alates lahtrist E2.
| 1234567 | Sub CopyAndPasteToRangeActiveSheet.Range ("A1: D10"). ValigeValik. KopeeriArvutustabelid ("Leht2"). ValigeVahemik ("E1"). ValigeActiveSheet.PasteEnd Sub |
Kui soovite väärtused lihtsalt lehele 2 kleepida ja vormingut mitte lisada, saame kasutada järgmist koodi. Taaskord ei pea me lahtrisse A1 kleepimiseks vahemikku leheni määrama.
| 123456 | Sub CopyAndPasteValuesActiveSheet.Range ("A1: D10"). ValigeValik. KopeeriArvutustabelid ("Leht2"). ValigeSelection.PasteSpecial Paste: = xlPasteValuesEnd Sub |
Kopeeri uuele lehele
Kopeerimiseks ja seejärel uuele lehele kleepimiseks saame kasutada järgmist koodi:
| 123456 | Sub CopyAndPasteNewSheetActiveSheet.Range ("A1: D10"). ValigeValik. KopeeriSheets.Add After: = ActiveSheetActiveSheet.PasteEnd Sub |
Väärtuste kopeerimiseks saame taas kasutada xlPasteValues.
Kopeeri olemasolevasse töövihikusse
Täielikult teise töövihikusse kopeerimiseks ja kleepimiseks võime lasta mõlemad töövihikud juba avada või kasutada koodi teise töövihiku avamiseks ja seejärel kleepida sellesse töövihikusse.
See allolev kood kopeeritakse olemasolevasse töövihikusse, mis on juba avatud.
| 1234567 | Sub CopyAndPasteExistingBookVahemik ("A1: D10"). ValigeValik. KopeeriWindows ("CombinedBranches.xlsx"). AktiveerigeSheets.Add After: = ActiveSheetActiveSheet.PasteEnd Sub |
VBA programmeerimine | Koodigeneraator töötab teie jaoks!
See allolev kood kopeerib ja kleepib uuele töölehele teise töövihiku, mille kood avab.
| 1234567 | Sub CopyAndPasteOpenWorkbookVahemik ("A1: D9"). ValigeValik. KopeeriTöövihikud. Avage Faili nimi: = "C: \ ExcelFiles \ CombinedBranches.xlsx"Sheets.Add After: = ActiveSheetActiveSheet.PasteLõppleht |
NÕUANNE: asendage töövihikutes faili nimi. Avage argument oma failinimega!
Kopeeri uude töövihikusse
Samuti saame kopeerida ja kleepida uude töövihikusse.
| 123456 | Sub CopyAndPasteNewWorkbookVahemik ("A1: D9"). ValigeValik. KopeeriTöövihikud. LisaActiveSheet.PasteEnd Sub |
