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

Cuprins

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.

Vei ajuta la dezvoltarea site-ului, partajarea pagina cu prietenii

wave wave wave wave wave