Copiați datele dintr-o foaie Excel în alta folosind o macro

Anonim

Puteți utiliza o macro pentru a copia date dintr-o foaie de lucru Excel pe o altă foaie din același registru de lucru

Doriți să transferați conținutul unei zone dintr-o foaie de lucru în alta? Este ușor de făcut cu utilizarea interactivă a Excel. Dar cum faci treaba cu un macro? Construiți o buclă care iterează prin toate celulele pe care doriți să le copiați. Așa arată macro-ul:

Zona de copiere secundară ()
Dim Quelltab ca foaie de lucru
Reduceți fila țintă ca foaie de lucru
Dim Cell As Range
Dim Counter At Long
Contor = 1
Gama = "A1: A10"
Setați fila sursă = ActiveWorkbook.Worksheets ("Table1")
Setați fila țintă = ActiveWorkbook.Worksheets („Tabel2”)
Pentru fiecare celulă din SourceTab.Range ("A1: A10")
Tabelul țintă Celule (contor, 1) = celulă
Contor = contor + 1
Următoarea celulă
Sfârșitul Sub

În definiția variabilei „fila Sursă”, specificați numele tabelului sursă din registrul de lucru. Aceasta este foaia de lucru din care doriți să copiați datele. În macro este foaia „Tabelul1”.

Utilizați eticheta „fila Țintă” pentru a defini numele foii de lucru în care doriți să copiați datele.

Zona A1: A10 este copiată în macro. Dacă doriți să utilizați o zonă diferită, reglați macro-ul în consecință.

Utilizați eticheta „Contor” pentru a controla rândul din tabelul țintă în care urmează să înceapă inserarea celulelor. Datele sunt copiate una sub alta în celule

Pentru a introduce macro-ul, apăsați ALT F11 în Excel pentru a afișa editorul VBA. Utilizați comanda INSERT - MODULE pentru a insera o foaie de modul goală. Pentru a porni macro-ul direct din Excel, utilizați combinația de taste ALT F8.

Copiați o foaie de lucru întreagă într-un registru de lucru

De asemenea, aveți opțiunea de a copia întreaga foaie de lucru într-un registru de lucru folosind o macro. Pentru a copia foaia activă a registrului de lucru curent la sfârșitul registrului de lucru, utilizați următoarea macro:

Sub CopyActiveTable ()
ActiveSheet.Copy After: = Worksheets (Worksheets.Count)
Sfârșitul Sub

După ce macro-ul a început, o foaie de lucru este adăugată în registrul de lucru activ. Aceasta este copia foii de lucru care era activă când a fost apelată macrocomanda. Pentru a distinge cele două foi de lucru una de alta, Excel creează un număr consecutiv în spatele foii de lucru copiate. Următoarea figură arată cum arată acest lucru în registrul tabelului după ce foaia de lucru „Vânzări” a fost copiată: