Copiați gama de celule Excel curentă într-un tabel nou folosind macrocomanda VBA

Anonim

Pentru a transfera complet datele din gama de celule curentă într-un nou tabel, trebuie să știți cât de mare este gama de celule utilizate în jurul celulei active. Sau puteți lăsa Excel să facă acest lucru pentru dvs. și să copiați g

Doriți să copiați automat toate celulele dintr-un interval alăturat de celule dintr-o macro? Acest lucru este deosebit de util dacă doriți să reacționați flexibil la intrările utilizatorilor și nu știți cât de mari sunt zonele de date introduse.

Puteți utiliza o macro pentru a face această treabă. Macro determină toate celulele din jurul celulei active și copiază exact aceste celule într-un nou registru de lucru.

Figura următoare prezintă un tabel cu trei zone de date diferite. Acestea sunt codificate prin culori pentru a le face mai ușor de văzut.

Toate celulele care se conectează la celule vecine fără celule goale sunt considerate a aparține împreună.

Cu o macro adecvată, vă puteți asigura că după ce faceți clic pe o celulă dintr-un interval de celule, toate celulele care îi aparțin sunt copiate într-un tabel nou. Iată codul corespunzător al programului:

Subcopie zona curentă ()
Reduceți suprafața sursă ca interval
Reduceți foaia nouă ca foaie de lucru
Setați zona sursă = ActiveCell.CurrentRegion
Setați NeuesBlatt = Workbooks.Add.Worksheets (1)
Zona sursă. Copiați destinația: = NeuesBlatt.Range ("A1")
Sfârșitul Sub

Înainte de a apela macro, faceți clic pe orice celulă dintr-un tabel. Macro determină toate celulele care, împreună cu celula selectată, aparțin unui interval și copiază acest interval de date într-un registru de lucru nou, gol. Următoarea figură arată cum arată rezultatul după apelarea macro-ului dacă celula E9 din tabelul din prima figură este selectată înainte ca macro-ul să înceapă.

Pentru a introduce macro-ul, apăsați ALT F11 în Excel pentru a afișa editorul VBA. Selectați comanda INSERT - MODULE în editorul VBA și introduceți macrocomanda. Pentru a porni macro-ul, activați combinația de taste ALT F8 în Excel. Cele două comenzi rapide de la tastatură pentru pornirea editorului VBA și macro funcționează în toate versiunile de Excel.