Makro abil saate andmeid kopeerida ühelt Exceli töölehelt teisele sama töövihiku lehele
Kas soovite piirkonna sisu ühelt töölehelt teisele üle kanda? Seda on lihtne teha Exceli interaktiivse kasutamisega. Kuidas aga makroga tööd teha? Looge silmus, mis kordab kõiki lahtreid, mida soovite kopeerida. Makro näeb välja selline:
Alamkoopia ala ()
Dim Quelltab töölehena
Sihtmärgi vahekaardi hämardamine töölehena
Dim Cell kui vahemik
Pimendusloendur nii kaua
Loendur = 1
Vahemik = "A1: A10"
Määra allika vahekaart = ActiveWorkbook.Worksheets ("Tabel1")
Määra sihtkaart = ActiveWorkbook.Worksheets ("Tabel2")
Iga lahtri kohta SourceTab.Range ("A1: A10")
Sihttabel Lahtrid (loendur, 1) = lahter
Loendur = loendur + 1
Järgmine lahter
End Sub
Muutuja "Vahekaart Allikas" määratluses määrate töövihiku allikatabeli nime. See on tööleht, kust soovite andmeid kopeerida. Makros on see leht "Tabel 1".
Märgendi "Sihtmärk" abil saate määrata töölehe nime, kuhu soovite andmed kopeerida.
Ala A1: A10 kopeeritakse makrosse. Kui soovite kasutada mõnda muud ala, kohandage makro vastavalt.
Märgendit "Loendur" kasutate sihttabeli rea kontrollimiseks, millesse lahtrite sisestamine algab. Andmed kopeeritakse lahtrites üksteise alla
Makro sisestamiseks vajutage Excelis klahvi ALT F11, et avada VBA redaktor. Kasutage tühja moodulilehe sisestamiseks käsku INSERT - MODULE. Makro käivitamiseks otse Excelist kasutage klahvikombinatsiooni ALT F8.
Kopeerige töövihikust terve tööleht
Samuti saate makro abil töövihikusse töölehe kopeerida. Praeguse töövihiku aktiivse lehe kopeerimiseks töövihiku lõppu kasutage järgmist makro.
Sub CopyActiveTable ()
ActiveSheet.Copy After: = Töölehed (Worksheets.Count)
End Sub
Pärast makro käivitamist lisatakse aktiivsele töövihikule tööleht. See on töölehe koopia, mis oli aktiivne makro kutsumisel. Kahe töölehe eristamiseks loob Excel kopeeritud töölehe taha järjestikuse numbri. Järgmine joonis näitab, kuidas see tabeliregistris välja näeb pärast töölehe "Müük" kopeerimist:
