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 > 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!

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

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:

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

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.