Skopiuj dane do innego skoroszytu w programie Excel

Podczas manipulowania danymi w programie Microsoft Excel polecenie Przenieś lub Kopiuj arkusz jest szybkim i prostym sposobem przenoszenia lub kopiowania całych arkuszy do innych lokalizacji w tym samym pliku lub w innym skoroszycie. Alternatywnie można użyć VBA (Visual Basic for Applications), aby zautomatyzować zadanie i uczynić je znacznie mniej nudnym.

W tym artykule przedstawimy obie metody kopiowania danych do innego skoroszytu w programie Microsoft Excel.

• Przenieś lub skopiuj dane w tym samym skoroszycie
• Przenieś lub skopiuj dane w różnych skoroszytach
• Przenieś lub skopiuj dane za pomocą VBA

Przenieś lub skopiuj dane w tym samym skoroszycie

Pierwszym krokiem jest wybranie arkusza (arkuszy), który chcesz przenieść lub skopiować. Aby zaznaczyć wiele arkuszy, po prostu wybierz pierwszy arkusz, a następnie przytrzymaj klawisz Control, klikając dodatkowe arkusze, które chcesz skopiować.

Na karcie Narzędzia główne górnego paska narzędzi znajdź grupę Komórki i kliknij przycisk Formatuj . W obszarze Organizuj arkusze kliknij opcję Przenieś lub skopiuj arkusz .

Otworzy się okno dialogowe. Na liście Przed możesz kliknąć arkusz, przed którym chcesz wstawić przeniesione lub skopiowane arkusze, lub kliknąć ruch do końca, aby wstawić arkusze po ostatnim arkuszu w skoroszycie.

Aby skopiować arkusze zamiast je przesuwać, zaznacz pole wyboru Utwórz kopię w oknie dialogowym Przenieś lub Kopiuj .

Przenieś lub skopiuj dane w różnych skoroszytach

Jeśli chcesz przenieść lub skopiować arkusze programu Excel do innego skoroszytu, musisz najpierw upewnić się, że docelowy skoroszyt jest otwarty w tej samej wersji programu Microsoft Excel.

Wybierz arkusze, które chcesz przenieść lub skopiować. Następnie przejdź do karty Strona główna na pasku narzędzi i kliknij grupę Komórki > Format . W obszarze Organizuj arkusze kliknij opcję Przenieś lub skopiuj arkusz .

Otworzy się okno dialogowe. Na liście Do książki wybierz przeniesienie lub skopiowanie wybranych arkuszy do istniejącego skoroszytu lub przeniesienie lub skopiowanie arkuszy do nowego skoroszytu.

Na liście Przed możesz kliknąć arkusz, przed którym chcesz wstawić przeniesione lub skopiowane arkusze, lub kliknąć ruch do końca, aby wstawić arkusze po ostatnim arkuszu w skoroszycie.

Przenieś lub skopiuj dane za pomocą VBA

Sub CopyOpenItems ()
'
„Makro CopyOpenItems
„Kopiuj otwarte elementy do arkusza.
'
„Skrót klawiaturowy: Ctrl + Shift + O
'
Skoroszyt Dim wbTarget As Workbook, w którym dane mają zostać wklejone
Skoroszyt „Dim wbThis As Workbook”, z którego dane mają być kopiowane
Dim strName As String 'nazwa skoroszytu arkusza źródłowego / celu
'ustaw na bieżący aktywny skoroszyt (książka źródłowa)
Ustaw wbThis = ActiveWorkbook
„pobierz aktywną nazwę arkusza książki
strName = ActiveSheet.Name
„otwórz skoroszyt o takiej samej nazwie, jak nazwa arkusza
Set wbTarget = Workbooks.Open ("C: ścieżka pliku" & strName & ".xlsx")
„wybierz komórkę A1 w książce docelowej
wbTarget.Range („A1”). Wybierz
„Wyczyść istniejące wartości z książki docelowej
wbTarget.Range („A1: M51”). ClearContents
„aktywuj książkę źródłową
wbThis.Activate
„Wyczyść wszystko w schowku, aby zmaksymalizować dostępną pamięć
Application.CutCopyMode = False
„skopiuj zakres z książki źródłowej
wbThis.Range („A12: M62”). Kopiuj
„wklej dane do książki docelowej
wbTarget.Range ("A1"). PasteSpecial
„Wyczyść wszystko w schowku, aby zmaksymalizować dostępną pamięć
Application.CutCopyMode = False
„zapisz książkę docelową
wbTarget.Save
„zamknij skoroszyt
wbTarget.Close
„ponownie aktywuj książkę źródłową
wbThis.Activate
'czyścić pamięć
Set wbTarget = Nic
Set wbThis = Nic
Napis końcowy