Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як скопіювати кілька виділень або діапазонів у Excel?

Наприклад, у вас є великий аркуш, і тепер вам потрібно лише скопіювати деякі вибрані діапазони та розподілити на інші аркуші. Але коли ви вибираєте кілька діапазонів і натискаєте копію, з’явиться підказка з діалоговим вікном, щоб нагадати вам: „Цю команду не можна використовувати для кількох виділень”. Як в цій умові швидко скопіювати кілька вибраних діапазонів? Ось декілька прийомів для вирішення цього завдання.


Скопіюйте кілька вибраних діапазонів за допомогою буфера обміну

За допомогою Буфер обміну, Ви можете вставити всі вибрані діапазони в інший діапазон або аркуш одночасно. Будь ласка, виконайте наступне:

1. Клацання Головна > doc копіювати кілька діапазонів 09 в Буфер обміну для відображення Буфер обміну Панель.. Дивіться знімок екрана:

2. А потім скопіюйте вибрані діапазони, які вам потрібні, по одному. У той же час скопійовані діапазони з'явилися в Буфер обміну Панель. див. скріншот вище:

3. Виберіть першу комірку діапазону призначення, до якого ви вставите всі скопійовані діапазони, та натисніть Вставити все кнопка в Буфер обміну Панель.

А потім усі скопійовані діапазони були вставлені у вказаний діапазон призначення.

Легко поєднуйте кілька виділень із багатьох аркушів / книг в єдиний аркуш / книгу

Об’єднувати десятки аркушів з різних книг в один аркуш може бути нудно. Але з Kutools для Excel Об’єднати (робочі аркуші та робочі зошити) Утиліта, ви можете зробити це всього за кілька кліків! Повнофункціональна безкоштовна пробна версія 30 днів!
оголошення комбінувати аркуші книги 1

Kutools для Excel - Включає більше 300 зручних інструментів для Excel. Повна функціональна безкоштовна пробна версія 30 днів, кредитна картка не потрібна! Get It Now

Скопіюйте кілька вибраних діапазонів за допомогою коду VBA

За допомогою коду VBA ви також можете скопіювати кілька вибраних діапазонів та вставити їх у будь-який інший аркуш.

1. Холдинг Ctrl клавішу та виберіть кілька сусідніх діапазонів, які ви хочете використовувати.

2. Прес інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для програм вікна, натисніть Insert > Модуліта введіть наступний код в Модуль:

Опція Явна допоміжна копіяMultipleSelection () Dim SelAreas () As Ran Dim 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 NonEemountChellConcent ' якщо діапазон не вибрано Якщо ім'я типу (виділення) <> "Діапазон" Тоді MsgBox "Виберіть діапазон, який потрібно скопіювати. Допускається багаторазовий вибір." Вийти з підкінця, якщо "Зберігати області як окремі об'єкти діапазону NumAreas = Selection.Areas.Count ReDim SelAreas (1 To NumAreas) For i = 1 To NumAreas Set SelAreas (i) = Selection.Areas (i) Next" Визначте верхній лівий комірка у множинному виділенні TopRow = ActiveSheet.Rows.Count LeftCol = ActiveSheet.Columns.Count For i = 1 До NumAreas If SelAreas (i) .Row <TopRow then TopRow = SelAreas (i) .Row If SelAreas (i) .Column <LeftCol Потім LeftCol = SelAreas (i). Стовпець Далі Набір UpperLeft = Клітинки (TopRow, LeftCol) 'Отримати адресу вставки При помилці Відновити наступний набір PasteRange = Application.InputBox _ (Підказка: = "Вкажіть верхню ліву комірку для вставки range: ", _ Title: =" Copy Mutliple Selection ", _ Type: = 8) При помилці GoTo 0 'Вихід, якщо скасовано Якщо TypeName (PasteRange) <>" Range "then Exit Sub' Переконайтесь, що лише верхня ліва комірка використовується Set PasteRange = PasteRange.Range ("A1") 'Перевірити діапазон вставки для наявних даних NonEmptyCellCount = 0 For i = 1 To NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = Sel Області (i) .Column - LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountA (Range (PasteRange.Offset (RowOffset, ColOffset), _ PasteRange.Offset (RowOffset + SelAreas (i) .Rows.Count - (i) .Columns.Count - 1))) Далі i 'Якщо діапазон вставки не порожній, попередити користувача If NonEmptyCellCount <> 1 Тоді _ If MsgBox ("Перезаписати існуючі дані?", vbQuestion + vbYesNo, _ "Копіювати кілька виділень" ") <> vbYes Потім вийдіть із Sub 'Скопіюйте та вставте кожну область для i = 0 до NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = SelAreas (i). Column - LeftCol SelAreas (i) .Copy PasteRange.Offset ( RowOffset, ColOffset) Далі i Кінець Sub

3. Потім натисніть на прогін для запуску коду.

4. А тепер, будь ласка, вкажіть клітинку, щоб вставити діапазони у отвір Скопіюйте кілька виділень і натисніть на OK кнопку. Дивіться знімок екрана:


Швидко скопіюйте кілька вибраних діапазонів з одного аркуша

повне г, повне г,, показали, від, номер, XNUMX Скопіюйте кілька діапазонів корисність Kutools для Excel може допомогти вам швидко скопіювати кілька діапазонів з активного аркуша. Будь ласка, виконайте наступне:

Kutools для Excel - Включає більше 300 зручних інструментів для Excel. Повна функціональна безкоштовна пробна версія 30 днів, кредитна картка не потрібна! Get It Now

1. Виберіть діапазони, які ви хочете використовувати по одному, не утримуючи Ctrl , а потім клацніть Кутулс > Діапазони копіювання. Дивіться знімок екрана:

2, в Скопіюйте кілька діапазонів діалогове вікно, поставте галочку всі варіант від Вставити спеціально і натисніть на Гаразд бutton. Дивіться знімок екрана вище:

Примітка: Якщо ви хочете зберегти висоту рядка та ширину стовпця як вихідні діапазони, перевірте Включаючи висоту рядка опція і Включаючи ширину стовпця у діалоговому вікні Копіювати кілька діапазонів.

3. І вкажіть комірку для вставки діапазонів у наступному вікні запиту та натисніть на OK кнопки.

І тепер усі вибрані діапазони будуть вставлені у зазначену комірку як однакові висота рядка та ширина стовпця, як вихідні виділення.

Клацніть тут для отримання додаткової інформації про утиліту Копіювати кілька діапазонів       

Kutools для Excel - Включає більше 300 зручних інструментів для Excel. Повна функціональна безкоштовна пробна версія 30 днів, кредитна картка не потрібна! Get It Now


Скопіюйте кілька діапазонів із багатьох аркушів / книг

Kutools для Excel пропонує інший Об’єднайте робочі аркуші утиліта для легкого копіювання кількох діапазонів з багатьох аркушів чи багатьох книг в Excel. Будь ласка, виконайте наступне:

Kutools для Excel - Включає більше 300 зручних інструментів для Excel. Повна функціональна безкоштовна пробна версія 30 днів, кредитна картка не потрібна! Get It Now

1. клацання Kutools Plus > Поєднувати.

2. У діалоговому вікні "Об'єднати робочі аркуші" - крок 1 із 3, перевірте Об’єднайте кілька аркушів із книги в один аркуш та натисніть кнопку наступного кнопки.

3. У діалоговому вікні «Об’єднати робочі аркуші» - крок 2 із 3, виконайте наведені нижче дії.

(1) Виберіть книгу в Список робочих книжок , а потім клацніть на перегорнути кнопка за кожним аркушем, щоб вказати діапазон для кожного аркуша;
(2) Клацніть на додавати , щоб додати інші книги, з яких ви скопіюєте діапазони, а потім повторіть вище (1), щоб вказати діапазони в доданій книзі.
(3) Клацніть на обробка кнопки.

Kutools для Excel - Включає більше 300 зручних інструментів для Excel. Повна функціональна безкоштовна пробна версія 30 днів, кредитна картка не потрібна! Get It Now

4. Потім виходить діалогове вікно Kutools для Excel і просить зберегти сценарій комбінації. Клацніть на да кнопка або Немає кнопку, як вам потрібно.

Наразі всі вказані діапазони з декількох аркушів або книг були скопійовані та вставлені в нову книгу.


Демонстрація: скопіюйте кілька вибраних діапазонів з одного аркуша

Демонстрація: скопіюйте кілька вибраних діапазонів із багатьох книг / аркушів


Kutools для Excel включає більше 300 зручних інструментів для Excel, які можна спробувати без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
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.)