Annak érdekében, hogy az adatokat teljes mértékben átvigye az aktuális cellatartományból egy új táblázatba, tudnia kell, hogy mekkora a használt cellák tartománya az aktív cella körül. Vagy hagyhatja, hogy az Excel ezt megtegye, és másolja a g
Szeretné automatikusan lemásolni az összes cellát a makró szomszédos cellatartományából? Ez különösen akkor hasznos, ha rugalmasan szeretne reagálni a felhasználók adataira, és nem tudja, milyen nagyok a bevitt adatterületek.
A feladat elvégzéséhez makrót használhat. A makró meghatározza az összes cellát az aktív cella körül, és pontosan ezeket a cellákat másolja egy új munkafüzetbe.
Az alábbi ábra egy táblázatot mutat három különböző adatterülettel. Színkóddal vannak ellátva, hogy könnyebben láthassák őket.
Minden olyan cellát, amely üres cellák nélkül csatlakozik a szomszédos cellákhoz, együttesnek kell tekinteni.
Megfelelő makróval biztosíthatja, hogy miután rákattintott egy cellatartomány cellájára, az összes hozzá tartozó cella átmásolódik egy új táblázatba. Itt a megfelelő programkód:
Az aktuális terület almásolása ()
A forrás terület halványítása tartományként
A NewSheet elhalványítása munkalapként
Forrásterület beállítása = ActiveCell.CurrentRegion
Set NeuesBlatt = Workbooks.Add.Worksheets (1)
Forrásterület. Másolási cél: = NeuesBlatt.Range ("A1")
End Sub
A makró hívása előtt kattintson a táblázat bármely cellájára. A makró meghatározza az összes cellát, amelyek a kijelölt cellával együtt egy tartományba tartoznak, és átmásolja ezt az adattartományt egy új, üres munkafüzetbe. A következő ábra azt mutatja be, hogy néz ki az eredmény a makró meghívása után, ha a táblázat első E9 cellája ki van választva a makró indulása előtt.
A makró megadásához nyomja meg az ALT F11 billentyűt az Excelben a VBA szerkesztő megjelenítéséhez. Válassza ki az INSERT - MODULE parancsot a VBA szerkesztőben, és írja be a makrót. A makró elindításához aktiválja az ALT F8 billentyűkombinációt az Excelben. A VBA -szerkesztő és a makró elindításához használt két billentyűparancs működik az Excel minden verziójában.
