Galite naudoti makrokomandą, norėdami nukopijuoti duomenis iš vieno „Excel“ darbalapio į kitą tos pačios darbaknygės lapą
Ar norėtumėte perkelti srities turinį iš vieno darbalapio į kitą? Tai lengva padaryti interaktyviai naudojant „Excel“. Bet kaip atlikti darbą naudojant makrokomandą? Sukurkite kilpą, kuri kartojasi per visas langelius, kuriuos norite kopijuoti. Štai kaip atrodo makrokomanda:
Antroji kopijavimo sritis ()
Dim Quelltab kaip darbalapis
Sumažinti taikinio skirtuką kaip darbalapį
„Dim Cell“ kaip diapazonas
Dim skaitiklis kaip ilgai
Skaitiklis = 1
Diapazonas = "A1: A10"
Nustatyti šaltinio skirtuką = ActiveWorkbook.Worksheets ("Table1")
Nustatyti tikslinį skirtuką = ActiveWorkbook.Worksheets ("Table2")
Kiekvienai „SourceTab.Range“ langeliui („A1: A10“)
Tikslinė lentelė Ląstelės (skaitiklis, 1) = ląstelė
Skaitiklis = skaitiklis + 1
Kitas langelis
Pabaiga Sub
Kintamojo „Šaltinio skirtukas“ apibrėžime nurodote šaltinio lentelės pavadinimą darbaknygėje. Tai yra darbalapis, iš kurio norite nukopijuoti duomenis. Makrokomandoje tai lapas „1 lentelė“.
Naudokite žymą „Tikslinis skirtukas“, kad apibrėžtumėte darbalapio, į kurį norite kopijuoti duomenis, pavadinimą.
Sritis A1: A10 nukopijuojama makrokomandoje. Jei norite naudoti kitą sritį, atitinkamai pakoreguokite makrokomandą.
Naudodami žymą „Skaitliukas“ valdote tikslinės lentelės eilutę, kurioje turi būti pradėtas įterpti langelius. Duomenys ląstelėse nukopijuojami vienas po kito
Norėdami įvesti makrokomandą, „Excel“ paspauskite ALT F11, kad atidarytumėte VBA redaktorių. Norėdami įterpti tuščią modulio lapą, naudokite komandą INSERT - MODULE. Norėdami paleisti makrokomandą tiesiai iš „Excel“, naudokite klavišų kombinaciją ALT F8.
Nukopijuokite visą darbalapį į darbaknygę
Taip pat galite nukopijuoti visą darbaknygės darbalapį naudodami makrokomandą. Norėdami nukopijuoti aktyvų dabartinės darbaknygės lapą į darbaknygės pabaigą, naudokite šią makrokomandą:
Sub CopyActiveTable ()
ActiveSheet.Copy After: = darbalapiai (darbalapiai. Skaičius)
Pabaiga Sub
Pradėjus makrokomandą, darbalapis įtraukiamas į aktyvią darbaknygę. Tai darbalapio kopija, kuri buvo aktyvi iškviečiant makrokomandą. Siekiant atskirti du darbalapius, „Excel“ po nukopijuoto darbalapio sukuria eilės numerį. Toliau pateiktame paveikslėlyje parodyta, kaip tai atrodo lentelių registre, nukopijavus darbalapį „Pardavimas“:
