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
- Skopiuj wiele wybranych zakresów za pomocą kodu VBA
- Skopiuj wiele wybranych zakresów z jednego arkusza
- Skopiuj wiele zakresów z wielu arkuszy / skoroszytów
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 > 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ęć!
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
Najlepsze narzędzia biurowe
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 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!