Norėdami visiškai perkelti duomenis iš dabartinio langelių diapazono į naują lentelę, turite žinoti, koks didelis naudojamų langelių diapazonas yra aplink aktyvų langelį. Arba galite leisti „Excel“ tai padaryti už jus ir nukopijuoti g
Ar norite automatiškai nukopijuoti visas langelius iš gretimo makrokomandos langelių diapazono? Tai ypač naudinga, jei norite lanksčiai reaguoti į vartotojų įvestį ir nežinote, kokios didelės yra įvestos duomenų sritys.
Šiam darbui atlikti galite naudoti makrokomandą. Makrokomanda nustato visas ląsteles aplink aktyvų langelį ir tiksliai nukopijuoja šias ląsteles į naują darbaknygę.
Toliau pateiktame paveikslėlyje parodyta lentelė su trimis skirtingomis duomenų sritimis. Jie yra pažymėti spalvomis, kad būtų lengviau matyti.
Visos ląstelės, jungiančios su kaimyninėmis ląstelėmis be tuščių ląstelių, laikomos priklausančiomis.
Naudodami tinkamą makrokomandą galite užtikrinti, kad spustelėjus langelį ląstelių diapazone, visos jai priklausančios ląstelės būtų nukopijuotos į naują lentelę. Čia yra tinkamas programos kodas:
Kopijuoti dabartinę sritį ()
Šviesos šaltinio sritis kaip diapazonas
Pritemdyti NewSheet kaip darbalapį
Nustatykite šaltinio sritį = ActiveCell.CurrentRegion
Nustatykite NeuesBlatt = Workbooks.Add.Worksheets (1)
Šaltinio sritis. Kopijavimo paskirties vieta: = NeuesBlatt.Range ("A1")
Pabaiga Sub
Prieš iškviesdami makrokomandą, spustelėkite bet kurią lentelės ląstelę. Makrokomanda nustato visas langelius, kurie kartu su pasirinktu langeliu priklauso diapazonui, ir nukopijuoja šį duomenų diapazoną į naują tuščią darbaknygę. Toliau pateiktame paveikslėlyje parodyta, kaip atrodo rezultatas, iškvietus makrokomandą, jei prieš pradedant makrokomandą pažymėta pirmojo paveikslo lentelės ląstelė E9.
Norėdami įvesti makrokomandą, „Excel“ paspauskite ALT F11, kad atidarytumėte VBA redaktorių. VBA redaktoriuje pasirinkite komandą INSERT - MODULE ir įveskite makrokomandą. Norėdami pradėti makrokomandą, „Excel“ suaktyvinkite klavišų kombinaciją ALT F8. Du spartieji klavišai VBA redaktoriui paleisti ir makrokomandai veikia visose „Excel“ versijose.
