Як скопіювати кілька виділень або діапазонів у Excel?
Наприклад, у вас є великий аркуш, і тепер вам потрібно лише скопіювати деякі вибрані діапазони та розподілити на інші аркуші. Але коли ви вибираєте кілька діапазонів і натискаєте копію, з’явиться підказка з діалоговим вікном, щоб нагадати вам: „Цю команду не можна використовувати для кількох виділень”. Як в цій умові швидко скопіювати кілька вибраних діапазонів? Ось декілька прийомів для вирішення цього завдання.
- Скопіюйте кілька вибраних діапазонів за допомогою буфера обміну
- Скопіюйте кілька вибраних діапазонів за допомогою коду VBA
- Скопіюйте кілька вибраних діапазонів з одного аркуша
- Скопіюйте кілька діапазонів із багатьох аркушів / книг
Скопіюйте кілька вибраних діапазонів за допомогою буфера обміну
За допомогою Буфер обміну, Ви можете вставити всі вибрані діапазони в інший діапазон або аркуш одночасно. Будь ласка, виконайте наступне:
1. Клацання Головна > в Буфер обміну для відображення Буфер обміну Панель.. Дивіться знімок екрана:
2. А потім скопіюйте вибрані діапазони, які вам потрібні, по одному. У той же час скопійовані діапазони з'явилися в Буфер обміну Панель. див. скріншот вище:
3. Виберіть першу комірку діапазону призначення, до якого ви вставите всі скопійовані діапазони, та натисніть Вставити все кнопка в Буфер обміну Панель.
А потім усі скопійовані діапазони були вставлені у вказаний діапазон призначення.
Легко поєднуйте кілька виділень із багатьох аркушів / книг в єдиний аркуш / книгу
Об’єднувати десятки аркушів із різних робочих зошитів в один аркуш може бути втомливим. Але з Kutools для Excel Об’єднати (робочі аркуші та робочі зошити) Утиліта, ви можете зробити це всього за кілька кліків!
Kutools для Excel - Доповніть Excel понад 300 основними інструментами. Насолоджуйтесь повнофункціональною 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 кнопку. Дивіться знімок екрана:
Швидко скопіюйте кілька вибраних діапазонів з одного аркуша
Команда Скопіюйте кілька діапазонів корисність Kutools для Excel може допомогти вам швидко скопіювати кілька діапазонів з активного аркуша. Будь ласка, виконайте наступне:
Kutools для Excel - Доповніть Excel понад 300 основними інструментами. Насолоджуйтесь повнофункціональною 30-денною БЕЗКОШТОВНОЮ пробною версією без кредитної картки! Get It Now
1. Виберіть діапазони, які ви хочете використовувати по одному, не утримуючи Ctrl , а потім клацніть Кутулс > Діапазони копіювання. Дивіться знімок екрана:
2, в Скопіюйте кілька діапазонів діалогове вікно, поставте галочку ВСІ варіант від Вставити спеціально і натисніть на Гаразд бutton. Дивіться знімок екрана вище:
Примітка: Якщо ви хочете зберегти висоту рядка та ширину стовпця як вихідні діапазони, перевірте Включаючи висоту рядка опція і Включаючи ширину стовпця у діалоговому вікні Копіювати кілька діапазонів.
3. І вкажіть комірку для вставки діапазонів у наступному вікні запиту та натисніть на OK кнопки.
І тепер усі вибрані діапазони будуть вставлені у зазначену комірку як однакові висота рядка та ширина стовпця, як вихідні виділення.
Клацніть тут для отримання додаткової інформації про утиліту Копіювати кілька діапазонів
Kutools для Excel - Доповніть Excel понад 300 основними інструментами. Насолоджуйтесь повнофункціональною 30-денною БЕЗКОШТОВНОЮ пробною версією без кредитної картки! Get It Now
Скопіюйте кілька діапазонів із багатьох аркушів / книг
Kutools для Excel надає інший Об’єднайте робочі аркуші утиліта для легкого копіювання кількох діапазонів з багатьох аркушів чи багатьох книг в Excel. Будь ласка, виконайте наступне:
Kutools для Excel - Доповніть Excel понад 300 основними інструментами. Насолоджуйтесь повнофункціональною 30-денною БЕЗКОШТОВНОЮ пробною версією без кредитної картки! Get It Now
1. клацання Kutools Plus > Поєднувати.
2. У діалоговому вікні "Об'єднати робочі аркуші" - крок 1 із 3, перевірте Об’єднайте кілька аркушів із книги в один аркуш та натисніть кнопку МАЙБУТНІ кнопки.
3. У діалоговому вікні «Об’єднати робочі аркуші» - крок 2 із 3, виконайте наведені нижче дії.
(1) Виберіть книгу в Список робочих книжок , а потім клацніть на перегорнути кнопка за кожним аркушем, щоб вказати діапазон для кожного аркуша;
(2) Клацніть на додавати , щоб додати інші книги, з яких ви скопіюєте діапазони, а потім повторіть вище (1), щоб вказати діапазони в доданій книзі.
(3) Клацніть на обробка кнопки.
Kutools для Excel - Доповніть Excel понад 300 основними інструментами. Насолоджуйтесь повнофункціональною 30-денною БЕЗКОШТОВНОЮ пробною версією без кредитної картки! Get It Now
4. Потім з’явиться діалогове вікно Kutools for excel із запитом про збереження сценарію комбінації. Будь ласка, натисніть Так кнопка або Немає кнопку, як вам потрібно.
Наразі всі вказані діапазони з декількох аркушів або книг були скопійовані та вставлені в нову книгу.
Демонстрація: скопіюйте кілька вибраних діапазонів з одного аркуша
Демонстрація: скопіюйте кілька вибраних діапазонів із багатьох книг / аркушів
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!