Note: The other languages of the website are Google-translated. Back to English

Jak skopiować wiele zaznaczeń lub zakresów w programie Excel?

Na przykład masz duży arkusz roboczy, a teraz chcesz tylko skopiować wybrane zakresy i rozprowadzić do innych arkuszy. Ale kiedy zaznaczysz wiele zakresów i klikniesz kopiuj, pojawi się okno dialogowe z przypomnieniem „Tego polecenia nie można użyć do wielokrotnego wyboru”. W takim przypadku, jak szybko skopiować wiele wybranych zakresów? Oto kilka sztuczek, które pomogą Ci rozwiązać to zadanie.


Skopiuj wiele wybranych zakresów za pomocą schowka

Dzięki schowek, możesz wkleić wszystkie wybrane zakresy jednocześnie do innego zakresu lub arkusza. Wykonaj następujące czynności:

1, Kliknij Strona Główna > doc kopiuj wiele zakresów 09 schowek grupa, aby wyświetlić schowek Chleb.. Zobacz zrzut ekranu:

2. A następnie skopiuj wybrane zakresy, które potrzebujesz, jeden po drugim. W tym samym czasie skopiowane zakresy pojawiły się w schowek Chleb. patrz zrzut ekranu powyżej:

3. Wybierz pierwszą komórkę zakresu docelowego, do którego wkleisz wszystkie skopiowane zakresy, i kliknij Wklej wszystko przycisk w schowek Szkło.

Następnie wszystkie skopiowane zakresy zostały wklejone do określonego zakresu docelowego.

Z łatwością łącz wiele wyborów z wielu arkuszy roboczych / skoroszytów w jeden arkusz roboczy / skoroszyt

Łączenie dziesiątek arkuszy z różnych skoroszytów w jeden arkusz może być żmudne. Ale z Kutools dla Excela Połącz (arkusze i skoroszyty) narzędzie, możesz to zrobić za pomocą kilku kliknięć!


ad łączenie arkuszy książek 1

Kutools dla programu Excel - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatnej wersji próbnej 30-dzień, karta kredytowa nie jest wymagana! Zdobądź To Teraz

Skopiuj wiele wybranych zakresów za pomocą kodu VBA

Za pomocą kodu VBA możesz również skopiować wiele wybranych zakresów i wkleić je do dowolnego innego arkusza roboczego.

1. Trzymając Ctrl i wybierz wiele nieprzylegających zakresów, których chcesz użyć.

2. naciśnij inny + F11 klawisze w tym samym czasie, aby otworzyć Microsoft Visual Basic dla aplikacji okno, kliknij wstawka > Modułi wprowadź następujący kod do modułu:

Option Explicit Sub CopyMultipleSelection () Dim SelAreas () As Range Dim PasteRange As Range Dim UpperLeft As Range Dim NumAreas As Integer, i As Integer Dim TopRow As Long, LeftCol As Integer Dim RowOffset As Long, ColOffset As Integer Dim NonEmptyCellCount As Integer 'Exit jeśli zakres nie jest zaznaczony If TypeName (Selection) <> "Range" Then MsgBox "Wybierz zakres do skopiowania. Dozwolony jest wybór wielokrotny." Exit Sub End If 'Zapisz obszary jako oddzielne obiekty Range NumAreas = Selection.Areas.Count ReDim SelAreas (1 To NumAreas) For i = 1 To NumAreas Ustaw SelAreas (i) = Selection.Areas (i) Next' Określ lewy górny komórka w wielokrotnym zaznaczeniu TopRow = ActiveSheet.Rows.Count LeftCol = ActiveSheet.Columns.Count For i = 1 To NumAreas If SelAreas (i) .Row <TopRow Then TopRow = SelAreas (i) .Row If SelAreas (i) .Column <LeftCol Then LeftCol = SelAreas (i) .Column Next Set UpperLeft = Cells (TopRow, LeftCol) 'Uzyskaj adres wklejania Przy błędzie Wznów Dalej Ustaw PasteRange = Application.InputBox _ (Prompt: = "Określ lewą górną komórkę do wklejenia range: ", _ Title: =" Copy Mutliple Selection ", _ Type: = 8) On Error GoTo 0 'Exit if cancelled If TypeName (PasteRange) <>" Range "Then Exit Sub' Upewnij się, że tylko lewa górna komórka jest używane Set PasteRange = PasteRange.Range ("A1") 'Sprawdź zakres wklejania istniejących danych NonEmptyCellCount = 0 For i = 1 To NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = Sel Obszary (i) .Column - LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountA (Range (PasteRange.Offset (RowOffset, ColOffset), _ PasteRange.Offset (RowOffset + SelAreas (i) .Rows.Count - 1, _AreOffset + Sel (i) .Columns.Count - 1))) Next i 'Jeśli zakres wklejania nie jest pusty, ostrzeż użytkownika If NonEmptyCellCount <> 0 Then _ If MsgBox ("Overwrite existing data?", vbQuestion + vbYesNo, _ "Copy Multiple Selection ") <> vbYes Then Exit Sub 'Kopiuj i wklej każdy obszar For i = 1 To NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = SelAreas (i) .Column - LeftCol SelAreas (i) .Copy PasteRange.Offset ( RowOffset, ColOffset) Next i End Sub

3. Następnie kliknij przycisk run przycisk, aby uruchomić kod.

4. A teraz określ komórkę, aby wkleić zakresy w otworze Kopiuj wielokrotne zaznaczenie okno dialogowe i kliknij OK przycisk. Zobacz zrzut ekranu:


Szybko skopiuj wiele wybranych zakresów z jednego arkusza

Podróż Ruta de la Plata w liczbach Skopiuj wiele zakresów użyteczność Kutools dla programu Excel może pomóc w łatwym kopiowaniu wielu zakresów z aktywnego arkusza. Wykonaj następujące czynności:

Kutools dla programu Excel - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatnej wersji próbnej 30-dzień, karta kredytowa nie jest wymagana! Zdobądź To Teraz

1. Wybierz zakresy, których chcesz używać, pojedynczo, bez przytrzymywania Ctrl , a następnie kliknij Kutools > Kopiuj zakresy. Zobacz zrzut ekranu:

2, w Skopiuj wiele zakresów okno dialogowe, zaznacz Wszystkie kategorie opcja z Wklej specjalnie sekcję i kliknij przycisk ok button. Zobacz zrzut ekranu powyżej:

Uwaga: Jeśli chcesz zachować wysokość wiersza i szerokość kolumny jako oryginalne zakresy, sprawdź W tym wysokość wiersza opcja i W tym szerokość kolumny w oknie dialogowym Kopiuj wiele zakresów.

3. I określ komórkę, aby wkleić zakresy w poniższym polu zachęty, i kliknij OK przycisk.

A teraz wszystkie wybrane zakresy zostaną wklejone do określonej komórki z taką samą wysokością wiersza i szerokością kolumny, jak oryginalne zaznaczenia.

Kliknij tutaj, aby uzyskać więcej informacji na temat narzędzia Kopiuj wiele zakresów       

Kutools dla programu Excel - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatnej wersji próbnej 30-dzień, karta kredytowa nie jest wymagana! Zdobądź To Teraz


Skopiuj wiele zakresów z wielu arkuszy / skoroszytów

Kutools dla programu Excel zapewnia inny Połącz arkusze narzędzie do łatwego kopiowania wielu zakresów z wielu arkuszy lub wielu skoroszytów w programie Excel. Wykonaj następujące czynności:

Kutools dla programu Excel - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatnej wersji próbnej 30-dzień, karta kredytowa nie jest wymagana! Zdobądź To Teraz

1. kliknij Kutools Plus > Połączyć.

2. W otwartym oknie dialogowym Połącz arkusze - krok 1 z 3 zaznacz plik Połącz wiele arkuszy ze skoroszytu w jeden arkusz opcję i kliknij przycisk Dalej przycisk.

3. W oknie dialogowym Połącz arkusze - krok 2 z 3 wykonaj poniższe czynności:

(1) Wybierz skoroszyt w Lista skoroszytów , a następnie kliknij Przeglądaj przycisk za każdym arkuszem roboczym, aby określić zakres z każdego arkusza;
(2) Kliknij Dodaj , aby dodać inne skoroszyty, z których będziesz kopiować zakresy, a następnie powtórz powyższe (1), aby określić zakresy w dodanym skoroszycie.
(3) Kliknij koniec przycisk.

Kutools dla programu Excel - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatnej wersji próbnej 30-dzień, karta kredytowa nie jest wymagana! Zdobądź To Teraz

4. Następnie pojawia się okno dialogowe Kutools dla programu Excel i prosi o zapisanie scenariusza kombinacji. Proszę kliknąć Tak przycisk lub Nie przycisk, jak potrzebujesz.

Do tej pory wszystkie określone zakresy z wielu arkuszy lub skoroszytów zostały skopiowane i wklejone do nowego skoroszytu.


Demo: Skopiuj wiele wybranych zakresów z jednego arkusza roboczego

Demo: Skopiuj wiele wybranych zakresów z wielu skoroszytów / arkuszy


Kutools dla programu Excel zawiera ponad 300 przydatnych narzędzi dla programu Excel, które można bezpłatnie wypróbować bez ograniczeń przez 30 dni. Pobierz i bezpłatną wersję próbną teraz!

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (14)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Chcę wybrać wiersze takie jak 1, 5,6,10. więc jak mogę skopiować te wiersze ???
Ten komentarz został zminimalizowany przez moderatora na stronie
W takim przypadku możesz po prostu zaznaczyć wiersze i skopiować je jak zwykle.
Ten komentarz został zminimalizowany przez moderatora na stronie
Jak mogę skopiować komórkę a1, e5, g2 i tak dalej .... (więcej niż 1000 komórek w tej samej kolumnie) i wkleić je do b1, f5, h2 (w prawo do następnej kolumny w tym samym wierszu.)
Ten komentarz został zminimalizowany przez moderatora na stronie
Znalezione powyższe wyjaśnienie opcji kopiowania wielu zakresów jest bardzo pomocne - dzięki! Użyłem opcji „schowek”, aby skopiować wiele wierszy. Trzeba było zaznaczyć każdą grupę kolejnych wierszy i ją skopiować, przejść dalej i wybrać następny wiersz lub grupę kolejnych wierszy i skopiować itd. Ale po tym jest to łatwe, przejdź do miejsca, w którym chcesz je wkleić, np. nowy arkusz, i kliknij „Wklej wszystko” ze schowka, a wszystkie wiersze zostaną tam skopiowane bez żadnych przerw! Dokładnie to, czego chciałem - jeszcze raz dziękuję!
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję bardzo TOOOOOO - co za wspaniała strona
Ten komentarz został zminimalizowany przez moderatora na stronie
Odkryłem, że jeśli masz otwartą płaszczyznę zadań Schowka, możesz skopiować wiele wierszy po prostu za pomocą ctrl + C i wkleić je w kolejności za pomocą crtl + V w programie Excel 2007.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, Czy można dostosować kod, aby skopiowane komórki można było wkleić w innym arkuszu? Teraz otrzymuję komunikat o błędzie „400”, gdy próbuję tego. Korzystam z pakietu Office 2010. Czy można też kopiować, aby usuwać puste wiersze? Mam duży dokument i kopiuję kilka komórek z setkami nieskopiowanych wierszy między nimi. To sprawia, że ​​​​wydruk jest raczej nieporęczny.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki za kod, działa idealnie. Ten dziwny brak funkcji w programie Excel wielokrotnie mnie zaskakiwał w przeszłości. Zwykle szybciej to obejść, ale w tym przypadku mam 4000 komórek oznaczonych kolorami, więc każde obejście zajęłoby dużo czasu, więc jestem bardzo wdzięczny. Steve
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć! Jak użyć tego samego kodu VBA powyżej, ale zamiast po prostu wklejać, chciałbym, aby wkleił specjalnie tylko dla wartości. Tabela, w której umieszczam wartości (stałe) jest już sformatowana i zawiera sumy (wzory)
Dziękuję bardzo z góry!
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Katrina Manahan,

Otwórz okno Microsoft Visual Basic dla aplikacji i utwórz nowy moduł, po prostu naciśnij CTRL + V, aby bezpośrednio wkleić kod VBA. Numery sekwencyjne przed kodem nie zostaną wklejone.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć. Ładny kod, działa świetnie. Czy można zmodyfikować kod w taki sposób, aby można było wielokrotnie wstawiać/wklejać wiersz/zakresy rynkowe zamiast tylko jeden raz?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Jacob,
Może ta funkcja Wstaw wiersze tytułu Kutools dla programu Excel może rozwiązać Twój problem.
https://www.extendoffice.com/product/kutools-for-excel/excel-insert-title-rows.html
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam,
Świetny post, a kod VBA działa idealnie. Czy można zmienić kod, aby wkleić specjalne > wartości? Jeśli tak to jak?
Dzięki!
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam,
Świetny kod, ale zastanawiałeś się, jak mogę wkleić wartości zamiast tylko wklejać?
Dzięki :)
Nie ma tu jeszcze żadnych komentarzy

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL