Note: The other languages of the website are Google-translated. Back to English

Как скопировать несколько выделений или диапазонов в Excel?

Например, у вас есть большой рабочий лист, и теперь вы хотите скопировать только некоторые выбранные диапазоны и распространить их на другие рабочие листы. Но когда вы выберете несколько диапазонов и нажмете «Копировать», появится диалоговое окно с напоминанием: «Эта команда не может использоваться для множественного выбора». Как в этом состоянии быстро скопировать несколько выбранных диапазонов? Вот несколько хитростей, которые помогут вам решить эту задачу.


Копировать несколько выбранных диапазонов с помощью буфера обмена

С помощью буфер обмена, вы можете вставить все выбранные диапазоны в другой диапазон или лист за раз. Пожалуйста, сделайте следующее:

1. Нажмите Главная > документ копировать несколько диапазонов 09 в буфер обмена группа для отображения буфер обмена хлеб.. Смотрите скриншот:

2. А затем скопируйте выбранные диапазоны, которые вам нужны, по одному. При этом скопированные диапазоны появились в буфер обмена хлеб. см. снимок экрана выше:

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

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

Легко комбинируйте множественный выбор из множества листов / книг в один лист / книгу

Объединение десятков листов из разных книг в один может оказаться утомительным занятием. Но с Kutools for Excel's Объединить (рабочие листы и рабочие тетради) утилиту, вы можете сделать это всего за несколько кликов!


объявление объединить листы книги 1

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

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

С помощью кода VBA вы также можете скопировать несколько выбранных диапазонов и вставить их в любой другой лист.

1, Удержание Ctrl и выберите несколько несмежных диапазонов, которые вы хотите использовать.

2, нажмите другой + F11 в то же время, чтобы открыть Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули, и введите в модуль следующий код:

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 если диапазон не выбран If TypeName (Selection) <> «Range» Then MsgBox «Выберите диапазон для копирования. Допускается множественный выбор». Exit Sub End If 'Сохранить области как отдельные объекты Range 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 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) 'Получить адрес вставки при ошибке Возобновить следующий Set PasteRange = Application.InputBox _ (Prompt: = "Укажите верхнюю левую ячейку для вставки range: ", _ Title: =" Copy Mutliple Selection ", _ Type: = 8) On Error GoTo 0 'Выход при отмене Если TypeName (PasteRange) <>" Range "Then Exit Sub' Убедитесь, что только верхняя левая ячейка used 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 - 1, _A ColOffset - 1) (i) .Columns.Count - 0))) Next i 'Если диапазон вставки не пуст, предупредить пользователя If NonEmptyCellCount <> 1 Then _ If MsgBox ("Overwrite existing data?", vbQuestion + vbYesNo, _ "Copy Multiple Selection ") <> vbYes Then Exit Sub 'Скопируйте и вставьте каждую область For i = XNUMX в NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = SelAreas (i) .Column - LeftCol SelAreas (i) .Copy PasteRange.Offset ( RowOffset, ColOffset) Next i End Sub

3, Затем нажмите Run кнопку для запуска кода.

4. А теперь укажите ячейку для вставки диапазонов в проем Копировать множественный выбор диалоговое окно и щелкните OK кнопка. Смотрите скриншот:


Быстро копировать несколько выбранных диапазонов с одного листа

Компания Копировать несколько диапазонов полезности Kutools for Excel может помочь вам быстро скопировать несколько диапазонов из активного листа. Пожалуйста, сделайте следующее:

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

1. Выберите диапазоны, которые вы хотите использовать, один за другим, не удерживая Ctrl ключ, а затем щелкните Кутулс > Копировать диапазоны. Смотрите скриншот:

2. В Копировать несколько диапазонов диалоговое окно, отметьте Всё вариант из Специальная вставка и нажмите Хорошо буттон. Смотрите скриншот выше:

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

3. И укажите ячейку для вставки диапазонов в следующем окне подсказки и щелкните значок OK кнопку.

И теперь все выбранные диапазоны будут вставлены в указанную ячейку с той же высотой строки и шириной столбца, что и исходные выборки.

Щелкните здесь для получения дополнительной информации об утилите Copy Multiple Ranges       

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


Скопируйте несколько диапазонов из многих листов / книг

Kutools for Excel предоставляет еще один Комбинировать листы утилита для простого копирования нескольких диапазонов из многих листов или книг в Excel. Пожалуйста, сделайте следующее:

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

1. Нажмите Кутулс Плюс > Сочетать.

2. В открывшемся диалоговом окне «Объединить рабочие листы - шаг 1 из 3» установите флажок Объедините несколько листов из книги в один лист и нажмите Далее кнопку.

3. В диалоговом окне «Объединить рабочие листы - шаг 2 из 3» выполните следующие действия:

(1) Выберите книгу в Список рабочих книг раздел, а затем щелкните Приложения кнопка позади каждого листа, чтобы указать диапазон из каждого листа;
(2) Щелкните значок Добавить кнопку, чтобы добавить другие книги, из которых вы будете копировать диапазоны, а затем повторите выше (1), чтобы указать диапазоны в добавленной книге.
(3) Щелкните значок Завершить кнопку.

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

4. Затем появляется диалоговое окно Kutools for excel и запрашивает сохранение сценария комбинации. Пожалуйста, нажмите на Да или Нет кнопку как вам нужно.

Пока все указанные диапазоны из нескольких листов или книг были скопированы и вставлены в новую книгу.


Демонстрация: копирование нескольких выбранных диапазонов с одного листа

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


Kutools for Excel включает более 300 удобных инструментов для Excel, которые можно бесплатно попробовать без ограничений в течение 30 дней. Скачать и бесплатную пробную версию сейчас!

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (14)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Я хочу выбрать такие строки, как 1, 5,6,10. так как я могу скопировать эти строки ???
Этот комментарий был сведен к минимуму модератором на сайте
В этом случае вы можете просто выделить строки и скопировать их, как обычно.
Этот комментарий был сведен к минимуму модератором на сайте
Как я могу скопировать ячейку a1, e5, g2 и т. д.... (более 1000 ячеек в одном столбце) и вставить их в b1, f5, h2 (прямо в следующий столбец в той же строке.)
Этот комментарий был сведен к минимуму модератором на сайте
Найденное выше объяснение вариантов копирования нескольких диапазонов очень полезно - спасибо! Я использовал опцию «буфер обмена», чтобы скопировать несколько строк. Приходилось выбирать каждую группу последовательных строк и копировать ее, двигаться дальше и выбирать следующую строку или группу последовательных строк и копировать ее и т. д. Но после этого все просто, перейдите туда, куда вы хотите их вставить, например, новый лист, и нажмите «Вставить все» из буфера обмена, и все строки будут скопированы туда без пробелов! Именно то, что я хотел - еще раз спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо вам огромное - какой замечательный сайт
Этот комментарий был сведен к минимуму модератором на сайте
Я обнаружил, что если у вас открыта плоскость задач буфера обмена, вы можете скопировать несколько строк, просто нажав Ctrl + C, и вставить их по порядку с помощью crtl + V, используя Excel 2007.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Можно ли настроить код так, чтобы скопированные ячейки можно было вставить на другой лист? Теперь я получаю сообщение об ошибке «400», когда пытаюсь это сделать. Пользуюсь Office 2010. Так же можно ли скопировать чтобы удалялись пустые строки? У меня есть большой документ, и я копирую несколько ячеек с сотнями нескопированных строк между ними. Это делает вывод довольно громоздким.
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за код, работает отлично. Это странное отсутствие функций в Excel много раз ставило меня в тупик в прошлом. Обычно в конце концов обойти это быстрее, но в этом случае у меня есть 4000 ячеек с индивидуальной цветовой кодировкой, поэтому любой обходной путь занял бы много времени, поэтому я очень благодарен. Стив
Этот комментарий был сведен к минимуму модератором на сайте
Привет! Как мне использовать тот же код VBA, что и выше, но вместо того, чтобы просто вставлять, я хотел бы, чтобы он вставлялся специально только для значений. Таблица, в которую я помещаю значения (константы), уже отформатирована и содержит итоги (формулы).
Большое спасибо заранее!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Катрина Манахан,

Откройте окно Microsoft Visual Basic для приложений и создайте новый модуль, просто нажмите CTRL + V, чтобы напрямую вставить код VBA. Порядковые номера перед кодом не будут вставлены.
Этот комментарий был сведен к минимуму модератором на сайте
Привет. Хороший код, отлично работает. Можно ли изменить код таким образом, чтобы можно было вставлять/вставлять строку/диапазоны рынка несколько раз, а не только один раз?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Джейкоб,
Возможно, эта функция «Вставить строки заголовков» в Kutools for Excel может решить вашу проблему.
https://www.extendoffice.com/product/kutools-for-excel/excel-insert-title-rows.html
Этот комментарий был сведен к минимуму модератором на сайте
Всем привет,
Отличный пост, и код VBA работает отлично. Можно ли изменить код для вставки специальных > значений? Если да, то как?
Благодаря!
Этот комментарий был сведен к минимуму модератором на сайте
Всем привет,
Отличный код, но мне интересно, как я могу вставлять значения, а не просто вставлять?
Благодарю :)
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL