Przejdź do głównej zawartości

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łowna > 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 - Doładuj program Excel za pomocą ponad 300 niezbędnych narzędzi. Ciesz się w pełni funkcjonalnym 30-dniowym DARMOWYM okresem próbnym 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

Połączenia 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 - Doładuj program Excel za pomocą ponad 300 niezbędnych narzędzi. Ciesz się w pełni funkcjonalnym 30-dniowym DARMOWYM okresem próbnym 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 - Doładuj program Excel za pomocą ponad 300 niezbędnych narzędzi. Ciesz się w pełni funkcjonalnym 30-dniowym DARMOWYM okresem próbnym 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 - Doładuj program Excel za pomocą ponad 300 niezbędnych narzędzi. Ciesz się w pełni funkcjonalnym 30-dniowym DARMOWYM okresem próbnym 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 Następna 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 - Doładuj program Excel za pomocą ponad 300 niezbędnych narzędzi. Ciesz się w pełni funkcjonalnym 30-dniowym DARMOWYM okresem próbnym 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: Ponad 300 przydatnych narzędzi na wyciągnięcie ręki! Już dziś rozpocznij 30-dniowy bezpłatny okres próbny bez ograniczeń funkcji. Pobierz teraz!

Najlepsze narzędzia biurowe

Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

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!
Comments (14)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there,
Great code but wondered how I can paste values rather than just paste?
Thanks :)
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
Thank you SOOOOOO much - what a great site
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
I want to select the rows like 1, 5,6,10. so how can i copy these rows ???
This comment was minimized by the moderator on the site
In this case you can just select the rows and copy them as usual.
This comment was minimized by the moderator on the site
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.)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations