Copiați datele într-un alt registru de lucru în Excel
Acest articol vă va prezenta ambele metode de copiere a datelor într-un alt registru de lucru în Microsoft Excel.
- Mutați sau copiați date în același registru de lucru
- Mutați sau copiați date în diferite registre de lucru
- Mutați sau copiați date utilizând VBA
Mutați sau copiați date în același registru de lucru
Primul pas este să selectați foaia (foile) pe care doriți să le mutați sau să le copiați. Pentru a selecta mai multe coli, selectați pur și simplu prima foaie și apoi țineți apăsată tasta Control în timp ce faceți clic pe foile suplimentare pe care doriți să le copiați.În fila Acasă din bara de instrumente superioară, găsiți grupul Celule și faceți clic pe Formatare . Sub Organizați foi, faceți clic pe Mutare sau Copiere foaie .
Se va deschide o casetă de dialog. În lista Înainte, puteți să faceți clic pe foaia înaintea căreia doriți să inserați foile mutate sau copiate sau puteți să faceți clic pe mutare pentru a termina pentru a insera foile după ultima foaie din registrul de lucru.
Pentru a copia foile în loc să le mutați, selectați caseta de selectare Creare copie găsită în caseta de dialog Mutare sau copiere .
Mutați sau copiați date în diferite registre de lucru
Dacă doriți să mutați sau să copiați foile de lucru Excel într-un alt registru de lucru, trebuie mai întâi să vă asigurați că registrul de lucru țintă este deschis în aceeași versiune de Microsoft Excel.Selectați foile pe care doriți să le mutați sau să le copiați. Apoi, accesați fila Acasă din bara de instrumente și faceți clic pe grupul celule > Formatare . Sub Organizați foi, faceți clic pe Mutare sau Copiere foaie .
Se va deschide o casetă de dialog. În lista Pentru a rezerva, alegeți să mutați sau să copiați foile selectate într-un registru de lucru existent sau să mutați sau să copiați foile într-un registru de lucru nou.
În lista Înainte, puteți să faceți clic pe foaia înaintea căreia doriți să inserați foile mutate sau copiate sau puteți să faceți clic pe mutare pentru a termina pentru a insera foile după ultima foaie din registrul de lucru.
Mutați sau copiați date utilizând VBA
Sub CopyOpenItems ()
'
'CopyOpenItems Macro
"Copiați articolele deschise în coli.
'
"Comandă rapidă pentru tastatură: Ctrl + Shift + O
'
Dim wbTarget As Workbook 'unde se vor lipi datele
Dim wbAceasta Ca registru de lucru din care urmează să fie copiate datele
Dim strName As String 'numele fișierului sursă / țintă
'setat la registrul de lucru activ (cartea sursă)
Setați wbThis = ActiveWorkbook
'obțineți foaia activă a cărții
strName = ActiveSheet.Name
'deschideți un registru de lucru care are același nume ca numele foii
Setați wbTarget = Workbooks.Open ("C: \ filepath \" & strName & ".xlsx")
'selectați celula A1 din cartea țintă
wbTarget.Range ( "A1"). Selectați
'clarificați valorile existente din cartea țintă
wbTarget.Range ( "A1: M51") ClearContents.
"activați cartea sursă
wbThis.Activate
"eliminați orice lucru din clipboard pentru a maximiza memoria disponibilă
Application.CutCopyMode = False
"copiați intervalul din cartea sursă
wbThis.Range. ( "A12: M62") Copiere
"inserați datele din cartea țintă
wbTarget.Range ( "A1"). PasteSpecial
"eliminați orice lucru din clipboard pentru a maximiza memoria disponibilă
Application.CutCopyMode = False
"salvați cartea țintă
wbTarget.Save
"închideți registrul de lucru
wbTarget.Close
"activați din nou cartea sursă
wbThis.Activate
memorie clară
Set wbTarget = Nimic
Setați wbThis = Nimic
End Sub