Kopirajte trenutni obseg celic Excel v novo tabelo z uporabo makra VBA

Kazalo

Če želite v celoti prenesti podatke iz trenutnega obsega celic v novo tabelo, morate vedeti, kako velik je obseg uporabljenih celic okoli aktivne celice. Lahko pa dovolite Excelu, da to stori namesto vas, in kopira datoteko g

Ali želite samodejno kopirati vse celice iz sosednjega območja celic v makro? To je še posebej uporabno, če se želite prilagodljivo odzvati na vnos uporabnikov in ne veste, kako velika so vnesena področja podatkov.

Za to delo lahko uporabite makro. Makro določi vse celice okoli aktivne celice in točno te celice kopira v nov delovni zvezek.

Naslednja slika prikazuje tabelo s tremi različnimi področji podatkov. Imajo barvno oznako, da jih je lažje videti.

Šteje se, da vse celice, ki se povežejo s sosednjimi celicami brez praznih celic, pripadajo skupaj.

Z ustreznim makrom lahko zagotovite, da se po kliku na celico v obsegu celic vse njene celice kopirajo v novo tabelo. Tu je ustrezna programska koda:

Podkopiraj trenutno območje ()
Območje zatemnjenega vira As Range
Zatemni nov list kot delovni list
Nastavite izvorno območje = ActiveCell.CurrentRegion
Nastavi NeuesBlatt = Delovni zvezki.Dodaj delovne liste (1)
Izvorno območje. Cilj kopiranja: = NeuesBlatt.Range ("A1")
End Sub

Pred klicem makra kliknite katero koli celico v tabeli. Makro določi vse celice, ki skupaj z izbrano celico spadajo v obseg in ta obseg podatkov kopira v nov, prazen delovni zvezek. Naslednja slika prikazuje, kako izgleda rezultat po klicu makra, če je celica E9 v tabeli s prve številke izbrana pred zagonom makra.

Če želite vnesti makro, pritisnite ALT F11 v Excelu, da odprete urejevalnik VBA. V urejevalniku VBA izberite ukaz INSERT - MODULE in vnesite makro. Če želite zagnati makro, v Excelu aktivirajte kombinacijo tipk ALT F8. Dve bližnjici na tipkovnici za zagon urejevalnika VBA in makro delujeta v vseh različicah Excela.

Vam bo pomagal razvoj spletnega mesta, ki si delijo stran s svojimi prijatelji

wave wave wave wave wave