Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Zarejestruj się  \/ 
x

or

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 Start > doc kopiuj wiele zakresów 09 w 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ęć! Pełna bezpłatna wersja próbna 30-dniowa!
ad łączenie arkuszy książek 1

Kutools dla programu Excel - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatna 30-dniowa, bez karty kredytowej! 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

Pandemia 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łatna 30-dniowa, bez karty kredytowej! 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łatna 30-dniowa, bez karty kredytowej! 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łatna 30-dniowa, bez karty kredytowej! 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 Add , 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łatna 30-dniowa, bez karty kredytowej! 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 wypróbować bezpłatnie w ciągu 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-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 60-dniowa gwarancja zwrotu pieniędzy.
kte tab 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ęć myszą każdego dnia!
officetab dół
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    peter.habershon@eis2win.co.uk · 2 years ago
    Hi there,
    Great code but wondered how I can paste values rather than just paste?
    Thanks :)
  • To post as a guest, your comment is unpublished.
    Peter Habershon · 2 years ago
    Hi there,
    Great post and the VBA code works perfectly. Is it possible to change the code to paste special > values? If so, how?
    Thanks!
  • To post as a guest, your comment is unpublished.
    jacobkring@hotmail.com · 3 years ago
    Hi. Nice code, works great. Is it possible to modify the code in a way such that it is possible to insert/paste the market row/ranges multiple times instead of just one time?
    • To post as a guest, your comment is unpublished.
      kelly.extendoffice@gmail.com · 3 years ago
      Hi Jacob,
      Maybe this Insert Title Rows feature of Kutools for Excel can solve your problem.
      https://www.extendoffice.com/product/kutools-for-excel/excel-insert-title-rows.html
  • To post as a guest, your comment is unpublished.
    kmmanahan · 3 years ago
    Hi! How do I use the same VBA Code above but instead of simply pasting, I would like it to paste special for just the values. The table I am putting the values (constants) into is already formatted and with totals (formulas)
    Thanks so much in advance!
    • To post as a guest, your comment is unpublished.
      · 3 years ago
      Hi Katrina Manahan,

      Please open the Microsoft Visual Basic for applications window, and create a new Module, just press CTRL + V to paste the VBA code directly. The sequence numbers before code won't be pasted.
  • To post as a guest, your comment is unpublished.
    Steve O · 5 years ago
    Thanks for the code, works perfectly. This odd lack of function within Excel has stumped me many times in the past. It's normally quicker in the end to work around it, but in this case I have 4000 individually colour-coded cells so any work-around would have taken a long time, so I'm very grateful.
    Steve
  • To post as a guest, your comment is unpublished.
    David Hedin · 5 years ago
    Hi,
    Is it possible to adjust the code so that the copied cells can be pasted in another sheet? Now I get the error message "400" when I attempt this. I use Office 2010.

    Also, is it possible to copy so that empty lines are deleted? I have a big document and I copy some cells with hundreds of non-copied rows between them. This makes for a rather bulky output.
  • To post as a guest, your comment is unpublished.
    Yunivor · 5 years ago
    I found that if you have the Clipboard task plane open you can copy multiple rows simply using ctrl+C and paste them in order with crtl+V using Excel 2007.
  • To post as a guest, your comment is unpublished.
    M · 6 years ago
    Thank you SOOOOOO much - what a great site
  • To post as a guest, your comment is unpublished.
    Lyn Mc · 6 years ago
    Found above explanation of options to copy multiple ranges very helpful - thanks! I used the 'clipboard' option to copy multiple rows. Had to select each group of consecutive rows and copy it, move on and select next row or group of consecutive rows and copy it, etc.. But after this its easy, go to where you want to paste them, eg a new sheet, and click 'Paste all' from the Clipboard and all the rows are copied to there with out any gaps! Exactly what I wanted - thanks again!
  • To post as a guest, your comment is unpublished.
    Abani Pattanayak · 6 years ago
    I want to select the rows like 1, 5,6,10. so how can i copy these rows ???
    • To post as a guest, your comment is unpublished.
      David Hedin · 5 years ago
      In this case you can just select the rows and copy them as usual.
      • To post as a guest, your comment is unpublished.
        K Raj · 4 years ago
        How can I copy cell a1, e5, g2, and so on.... (more than 1000 cells in same column) and paste them into b1, f5, h2 (right into the next column in same row.)