Kopirajte trenutni raspon ćelija Excel u novu tablicu pomoću VBA makronaredbe

Sadržaj

Da biste u potpunosti prenijeli podatke iz trenutnog raspona ćelija u novu tablicu, morate znati koliki je raspon korištenih ćelija oko aktivne ćelije. Ili možete dopustiti da Excel to učini umjesto vas i kopira g

Želite li automatski kopirati sve ćelije iz susjednog raspona ćelija u makronaredbi? To je osobito korisno ako želite fleksibilno reagirati na unos korisnika i ne znate koliko su velika unesena područja podataka.

Za obavljanje ovog posla možete koristiti makro. Makronaredba određuje sve ćelije oko aktivne ćelije i kopira upravo te ćelije u novu radnu knjigu.

Sljedeća slika prikazuje tablicu s tri različita područja podataka. Oni su označeni bojama kako bi ih bilo lakše vidjeti.

Smatra se da sve stanice koje se povezuju sa susjednim stanicama bez praznih stanica pripadaju zajedno.

S odgovarajućom makronaredbom možete osigurati da se nakon klika na ćeliju u rasponu ćelija sve ćelije koje joj pripadaju kopiraju u novu tablicu. Evo odgovarajućeg programskog koda:

Trenutno područje podkopije ()
Područje zatamnjenja izvora kao raspon
Zatamnite novi list kao radni list
Postavi izvorno područje = ActiveCell.CurrentRegion
Postavi NeuesBlatt = Radne knjige.Dodatni radni listovi (1)
Područje izvora. Odredište kopije: = NeuesBlatt.Range ("A1")
Kraj podm

Prije pozivanja makronaredbe kliknite bilo koju ćeliju u tablici. Makronaredba određuje sve ćelije koje zajedno s odabranom ćelijom pripadaju rasponu i kopiraju taj raspon podataka u novu, praznu radnu knjigu. Sljedeća slika prikazuje kako rezultat izgleda nakon pozivanja makronaredbe ako je ćelija E9 u tablici s prve slike odabrana prije pokretanja makronaredbe.

Za unos makronaredbe pritisnite ALT F11 u Excelu da biste otvorili VBA editor. Odaberite naredbu INSERT - MODULE u uređivaču VBA i unesite makro. Za pokretanje makronaredbe aktivirajte kombinaciju tipki ALT F8 u Excelu. Dva tipkovna prečaca za pokretanje VBA uređivača i makronaredbe rade u svim verzijama programa Excel.

Vi ćete pomoći u razvoju web stranice, dijeljenje stranicu sa svojim prijateljima

wave wave wave wave wave