Создание дубликатов в excel

Генерация дубликатов строк

В большинстве случаев повторы в наших данных нежелательны и мы с вами стараемся от них избавиться разными способами. Но иногда случается, что дубликаты нужны и полезны, и более того — нам необходимо их создавать!

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

Каждому билету нужно присвоить уникальный 6-значный номер, который формируется здесь простой функцией СЛУЧМЕЖДУ (RANDBETWEEN), генерирующей целое случайное число в заданном диапазоне 100000-999999. Да, я знаю, что теоретически совпадения могут быть, но вероятность очень невелика и пока нас, допустим, устраивает (кого не устраивает — см.эту статью). Проблема в другом: для тех, кто заказал больше одного билета, нужно вставить в таблицу новые строки-дубли (по количеству заказанных билетов), т.е. на выходе получить вот такое:

Руками такое делать — тоскливо, формулами — сложно. Так что остаются два наиболее удобных варианта — макросы и Power Query.

Способ 1. Создание дубликатов строк макросом

Откроем редактор макросов кнопкой Visual Basic на вкладке Разработчик (Developer) или сочетанием клавиш Alt+F11. Вставим новый модуль через меню Insert — Module и скопируем туда текст нашего макроса:

Sub Duplicate_Rows()
    Dim cell As Range

    Set cell = Range("B2")      'первая ячейка в столбце с кол-вом билетов
    Do While Not IsEmpty(cell)
        If cell > 1 Then
            cell.Offset(1, 0).Resize(cell.Value - 1, 1).EntireRow.Insert    'вставляем N пустых строк
            cell.Resize(cell.Value, 1).EntireRow.FillDown                   'заполняем вниз из первых ячеек
        End If
        Set cell = cell.Offset(cell.Value, 0)
    Loop
End Sub

Принцип тут не самый сложный: 

1. проходим сверху-вниз по столбцу начиная с B2 до первой пустой ячейки
2. если число в ячейке >1, то вставляем пустых строк под ячейкой на одну меньше, чем число билетов
3. заполняем пустые ячейки (метод FillDown — аналог «протягивания за черный крестик» в правом нижнем углу ячейки)
4. переходим к следующей ячейке и т.д.

Способ 2. Создание дубликатов строк в Power Query

Тем, кто хотя бы немного сталкивался с Power Query, рекламировать его мощь не нужно  Для тех, кто не знаком (если коротко), то Power Query — это бесплатная надстройка для Excel от Microsoft, умеющая делать с данными практически все, что только можно себе представить: загрузку из любых источников, очистку, трансформацию, анализ данных и т.д. Для Excel 2010-2013 ее можно скачать с сайта Microsoft (появится отдельная вкладка Power Query после установки), а в Excel 2016 она уже встроена по-умолчанию (группа Получить внешние данные на вкладке Данные).

Power Query может легко и красиво решить нашу проблему с генерацией дубликатов.

Для начала, выделим нашу таблицу и загрузим ее в Power Query кнопкой Из таблицы/диапазона (From Table/Range) на вкладке Данные (Data) или Power Query:

После окна подтверждения увидим редактор запросов и нашу таблицу. Добавим пользовательский столбец на вкладке Добавить столбец (Add Column — Custom Column):

В появившемся окне введем имя столбца и формулу, которая создает список чисел от 1 до количества билетов в каждой строке:

После нажатия на ОК появится новый столбец со списками, элементы которых можно развернуть в строки, используя кнопку в шапке таблицы:

В итоге, получаем практически то, что хотелось:

Осталось удалить ненужный больше столбец Список (правой кнопкой мыши по заголовку — Удалить столбец) и выгрузить данные обратно на лист на вкладке Главная (Home) с помощью кнопки Закрыть и загрузить — Закрыть и загрузить в… (Close&Load — Close&Load to…) и указать подходящее место для результирующей таблицы:

И останется совсем простая часть — добавить к таблице столбец с формулой СЛУЧМЕЖДУ (RANDBETWEEN) для генерации случайных номеров билетов:

Особенно приятно, что при любых изменениях в исходной (левой) таблице (добавлении новых людей или изменении количества билетов), достаточно будет просто обновить правой кнопкой мыши нашу результирующую таблицу с номерами билетов.

P.S.

Если нужно, чтобы случайные числа не генерировались каждый раз заново при пересчете листа, а формировались один раз, сохраняя потом свои значения, то придется использовать макро-функцию StaticRandBetween из надстройки PLEX или что-то аналогичное.

Также можно, для наглядности, склеивать через дефис номер билета и порядковый номер из столбца Список прямо в Power Query, используя команду Объединить столбцы на вкладке Преобразование (Transform).

Ссылки по теме

• Слияние двух списков без дубликатов
• Извлечение уникальных элементов из диапазона
• Что такое макросы, как их использовать, куда вставлять код макросов на Visual Basic

При работе в Excel иногда требуется создать одну или несколько копий электронной таблицы в книге или из нее. К счастью, создание дубликатов электронных таблиц — несложная задача, если только вам не нужно дублировать отдельные вкладки, а не всю книгу.

Чтобы подтвердить терминологию в Excel, файл — это книга, листы в книге — это электронные таблицы, а вкладки в внизу представлены страницы каждой таблицы.

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

Как дублировать электронную таблицу Excel в том же файле с помощью Windows

Самый быстрый способ дублировать лист/вкладку в той же книге — перетащить Это. Вот как это делается:

1. Откройте книгу с электронными таблицами/вкладками, которые вы хотите продублировать.
2. В нижней части экрана выберите “вкладку листа”вы хотите скопировать. Этот шаг важен, иначе вкладка не будет дублироваться на следующем шаге.
   
3. Удерживая нажатой клавишу “Ctrl”, перетащите выбранную “вкладку листа” в нужную вкладку с помощью мыши.
   
4. Ваша дублированная вкладка отображается с пометкой “(1)” добавляется в конец этикетки. Если дубликат вкладки уже существует, вы увидите “(2)” и т. д. для представления количества копий.

Примечание. Клавиша “Shift” клавиша только перемещает вкладку. Поэтому вы должны использовать клавишу “Ctrl” чтобы дублировать вкладку в книге.

Как дублировать лист Excel в другую книгу в Windows

Самый быстрый способ скопировать лист/вкладку в другую книгу — перетащить его, но сначала нужно выбрать вкладку, а затем, удерживая нажатой клавишу “Ctrl” и перетащите его на другие вкладки книги, где будет находиться дубликат. Метод работает, но иногда может глючить. Второй метод включает в себя использование метода щелчка правой кнопкой мыши, который обеспечивает точность каждый раз. Вот как это делается.

Если вам нужно скопировать/дублировать лист/вкладку Excel из одной книги в другую, сделайте следующее:

1. Нажмите правой кнопкой мыши на “вкладку листа”который вы хотите скопировать.
   
2. Выберите &ldquo ;Переместить или скопировать…” из вариантов.
   
3. Выберите книгу, в которую вы хотите поместить дубликат, в раскрывающемся списке “В книгу:.
   
4. Выберите лист/вкладку, дубликат которой должен отображаться, прежде чем использовать <“Перед листом: раскрывающийся список.
   
5. Отметьте флажок “Создать копию”. Это гарантирует, что вы копируете, а не перемещаете вкладку/лист.
   
6. Нажмите “ОК”
   

Как дублировать лист Excel на другую вкладку на Mac

Для пользователей Mac метод перетаскивания на другую вкладку такой же, как и в Windows, за исключением вы используете опцию “Option” вместо “Ctrl”

1. Удерживая кнопку “Option” нажмите на вкладку листа и перетащите ее в нужное место.
   
2. Перетащите вкладку листа и отпустите “Option&rdquo ; ключ. Дублированная вкладка будет помечена “(1)” в конце. Если дубликат уже существует, метка будет включать “(2).”

Как скопировать лист Excel в другую книгу на Mac

Если вы хотите скопировать свой лист в другую книгу, метод немного отличается. Перемещение одной вкладки на другой открытый лист также применимо в качестве параметра, аналогичного Windows, но вот как скопировать вкладку на другой лист Excel с помощью параметров.

1. Откройте “файл Excel”, куда вы хотите поместить дубликат.
2. В книге, содержащей исходный лист, щелкните правой кнопкой мыши вкладку “лист’ внизу.
   
3. Выберите “Переместить или скопировать…”
   




4. Выберите < em>“workbook”, куда вы хотите вставить скопированный лист.
   
5. Убедитесь, что вы отметили пункт “Создать копию”.коробка. Это гарантирует, что вы копируете, а не перемещаете.
   
6. Нажмите “ОК”
   

Как дублировать несколько вкладок листа Excel в Windows

Вы можете использовать технику перетаскивания, чтобы быстро дублировать сразу несколько вкладок в Excel, но между вкладками не должно быть промежутков, иначе это не сработает. Кроме того, эта опция не работает для вкладок с таблицами Excel. Если у вас нет таблиц Excel на вкладках, а нужные вкладки находятся рядом, вы можете выполнить следующие действия.

Используйте перетаскивание для дублирования электронных таблиц в другую книгу

< em>Примечание. Обязательно выполняйте приведенные ниже шаги точно так, как описано, иначе вы можете не получить ожидаемых результатов.

1. Откройте книгу, в которой вы хотите, чтобы дубликаты отображались, а затем откройте книгу с существующими вкладками, которые вы хотите дублировать. Убедитесь, что оба видны.
2. Нажмите в любом месте оригинала, чтобы сделать его активной книгой.
3. Удерживайте нажатой кнопку “Shift” или “Ctrl” и нажмите “вкладки” вы хотите продублировать, затем отпустите ключ. Все нажатые вкладки должны отображаться как выбранные.
4. Удерживая нажатой клавишу “Ctrl”, нажмите “первую выбранную вкладку”, затем перетащите выделение в раздел вкладок другой книги.
5. Дублированные вкладки теперь должны отображаться в другой книге.

Используйте правый щелчок Метод дублирования электронных таблиц в другую книгу

Примечание. Обязательно выполняйте приведенные ниже шаги точно так, как описано, иначе вы можете не получить ожидаемых результатов.

1. Откройте книгу, в которой должны отображаться дубликаты, вместе с книгой, которую вы хотите дублировать.
2. Нажмите на исходную книгу, чтобы сделать ее активной.
3. Удерживайте нажатой клавишу “Shift” или “Ctrl” и нажимайте на каждую вкладку, которую хотите продублировать.
4. Нажмите правой кнопкой мыши &ldquo ;первая выбранная вкладка”в исходной книге и выберите “Переместить или скопировать…”
5. Выберите “ книгу”, куда вы хотите вставить скопированный лист.
6. Убедитесь, что флажок “Создать копию” установлен, иначе вкладки будут перемещаться, а не дублироваться.
7. Нажмите “ОК”кнопку, чтобы дублировать выбранные вкладки/листы в другую книгу. дублировать лист в Excel с помощью сочетания клавиш?

   Если вы хотите создать большее количество копий листа одним нажатием кнопки, вы можете создать сочетание клавиш:

   1. Перейдите в раздел “Просмотр” вкладка на ленте.
      
   2. Нажмите “Макросы”
      
   3. В раскрывающемся меню нажмите “Записать макрос”
      
   4. Введите нужную комбинацию клавиш (например, “D”).
      
   5. Нажмите “ОК”
      
   6. щелкните лист правой кнопкой мыши. вкладку, которую вы хотите дублировать.
   7. Нажмите “Переместить или скопировать”
      
   8. Выберите книгу, в которую вы хотите вставить копию.
      
   9. Выберите лист, перед которым вы хотите разместить дубликат.
      
   10. Проверьте “Создайте копию”
       
   11. Нажмите “Макросы&rdquo ; снова.
       
   12. Выберите “Остановить запись”
       

   Теперь щелкните вкладку листа и нажмите Ctrl + D, чтобы мгновенно продублировать лист . Используйте этот ярлык столько раз, сколько вам нужно.

   Как дублировать лист в Excel в VBA?

   Программы Microsoft Office имеют собственный язык программирования &ndash ; Visual Basics для приложений (VBA). При этом вы можете запрограммировать Excel на создание копии листа.

   Во-первых, вам нужно будет открыть VBA:

   1. Если вы не видите раздел “Разработчики” на вкладке ленты выберите “Файл”
      
   2. Выберите “Параметры”
      
   3. на ленте “Настройка&rdquo. ; раздел “Разработчики”.
      
   4. Вернитесь к своему рабочему листу и откройте вкладку “Разработчики” вкладку на ленте.
      
   5. Нажмите “Visual Basic&rdquo. ;
      

   Примечание.  Можно использовать ярлык (Alt + F11 ), чтобы открыть VBA, но это может работать не для всех пользователей.

   Теперь, когда у вас открыт VBA, вы можете создать код, который автоматизирует процесс дублирования:

   1. Нажмите “Visual Basic” чтобы открыть VBA.
      
   2. Нажмите “Вставить” вкладку, а затем “Модуль”
      
   3. Скопируйте и вставьте следующий код:
      Sub Copier()
      Размять x как целое число
      x = InputBox(“Сколько копий вам нужно?”)
      For numtimes = 1 To x
      ActiveWorkbook.Sheets(“Лист1”).Копировать _
      После:=ActiveWorkbook.Sheets(“Лист1”)
      Далее
      Конец вложенной
      
   4. Вместо Листа 1 введите имя листа, который вы хотите скопировать.
   5. Вернитесь к рабочему листу и нажмите “Просмотреть” на ленте.
      
   6. Щелкните значок “Макросы” вкладку, а затем “Просмотр макроса”
      
   7. Выберите &ldquo ;Копир” и нажмите “Выполнить”
      
   8. Введите количество копии, которые вы хотите сделать (например, “20”).
      
   9. Нажмите “ОК”
      

   Как дублировать Лист в Excel Online

   Если вы используете Excel в Интернете, есть также простой способ дублировать лист.

   1. Правильно- нажмите на вкладку листа, который вы хотите продублировать.
   2. Нажмите “Дублировать”
      

   Во-первых, вам нужно перейти в диалоговое окно, которое позволяет открыть существующий документ Excel. Доступ к этому диалоговому окну зависит от вашей версии Excel:

   1. Excel 2007 – Office>Открыть
      Excel 2010 – Файл>Открыть
      Excel 2013 – Файл>Компьютер>Обзор
      Excel 2016 – Файл>Обзор
      
   2. Перейдите к документу Excel, который вы хотите скопировать, и выберите его.
   3. Нажмите маленькую стрелку на кнопке “Открыть”
      
   4. В раскрывающемся меню выберите “Открыть как копию.”
      

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

   Как переместить лист в Excel?

   Есть два простых способа переместить лист в Excel.

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

   Или, если у вас слишком много листов, вы можете:

   1. щелкнуть правой кнопкой мыши вкладку листа, которую нужно переместить.
   2. Нажмите “Переместить или скопировать”
      
   3. Выберите вкладку листа, перед которой вы хотите разместить свой лист.
      
   4. Нажмите “ОК”
      

   Как переместить Лист в Excel с ярлыком?

   Чтобы создать ярлык для перемещения листа в Excel, вам потребуется создать макрос:

   < li id=»step1″>Перейдите к разделу “Просмотр” вкладка на ленте.
   
   1. Нажмите “Макросы” tab.
      
   2. Выберите “Записать макрос”
      
   3. Вставьте ключ, который вы хотите использовать в качестве быстрого доступа (например, “M” ).
      
   4. Щелкните правой кнопкой мыши вкладку листа, которую хотите переместить.
      
   5. Выбрать “Переместить или скопировать”
      
   6. Выберите, где вы хотите переместите свой лист.
      
   7. Нажмите “ОК” >
   8. Вернитесь к “Макросам”
      
   9. Нажмите “Остановить запись”
      

   Каждый раз, когда вы нажимаете Ctrl + M, Excel перемещает лист в выбранное вами место.

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

   Самый быстрый способ скопировать несколько листов:

   1. Выберите вкладки листов, которые хотите скопировать, удерживая Ctrl.< br>
   2. Щелкните правой кнопкой мыши на любой из вкладок выбранного листа.
   3. Выберите “Переместить или скопировать”
      
   4. Нажмите на лист, перед которым вы хотите разместить копии.
      
   5. Отметьте “Создать копию”
      
   6. Нажмите “ОК”
      

   Повторяйте этот процесс, пока не получите нужное количество копий.

   Дополнительные часто задаваемые вопросы

   Как отобразить листы в Excel?

   В файле Excel могут быть скрытые листы, которые вы не создавали. Вы можете легко это проверить и отобразить все скрытые листы:

   1. Щелкните правой кнопкой мыши вкладку любого листа.

   2. Нажмите “Показать”

   3. Выберите лист, который вы хотите отобразить, и нажмите «ОК».

   К сожалению, вы не можете отобразить все листы сразу. Вам придется повторить этот процесс для каждого скрытого листа.

   Кроме того, если в файле Excel нет скрытых листов, кнопка “Показать” кнопка не будет нажиматься.

   Как мне скопировать лист и автоматически переименовать в Excel?

   Сначала вам нужно будет открыть VBA в Excel и создать новый модуль:

   1. Перейдите в раздел “Разработчики” вкладку на ленте.

   2. Нажмите “Visual Basic”

   3. Нажмите “Вставить” а затем “Модуль”

   4. Скопируйте и вставьте следующий код:

   Sub Create()

   ‘Updateby Extendoffice

       Dim I  As Long

       Dim xNumber как целое

       Dim xName как строка

   &nbsp ;   Dim xActiveSheet как рабочий лист

       При ошибке возобновить далее

       Application.ScreenUpdating =  Неверно

       Set xActiveSheet = ActiveSheet

       xNumber = InputBox(“Сколько копий вам нужно?”)

        For I = 1 To xNumber

           xName = ActiveSheet.Name

            xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)

           ActiveSheet .Name = “НовоеИмя” & Я

       Далее

       xActiveSheet.Activate

       Application.ScreenUpdating = True

   End Sub

   5 . Вместо “NewName” введите желаемое имя вашей копии. Если вы создадите несколько копий, Excel присвоит каждой копии суффиксы (“-1”, “-2”, “-3” и т. д.).

   6. Выберите вкладку листа копии которых вы хотите переименовать.

   7. Перейдите в раздел “Просмотр” вкладка на ленте.

   8. Нажмите “Макросы” а затем “Просмотр макросов”

   9. Выберите “Создать” макрос и нажмите “Выполнить”.

   10. Введите необходимое количество копий (например, “5”).

   11. Нажмите “ОК”

   Примечание. Нажатие клавиши F5 на клавиатуре может заменить шаги 7 и 8, но это может работать не для всех пользователей.

   Теперь у вас есть пять переименованных копий исходного листа (например, “NewName-1”, “ NewName-2” …)

   Создание дубликата листа в Excel

   Независимо от того, являетесь ли вы владельцем Mac, ПК или работаете в Excel Online, вы Теперь вы знаете, что создание дубликатов электронных таблиц — простая задача. Мы даже снабдили вас кодами, которые нужно скопировать и вставить в MS Excel.

   Вы когда-нибудь сталкивались с проблемами при дублировании листа в Excel? Как вы решили проблему? Дайте нам знать в разделе комментариев ниже.

   

Как правило, может быть нет хорошего и быстрого способа дублировать каждую строку или столбец определенного диапазона n раз, кроме кода VBA в Excel. Но с Повторяющиеся строки / столбцы на основе значения ячейки полезности Kutools for Excel, вы можете быстро сделать это всего за несколько кликов.

Повторяющиеся строки на основе значения ячейки в столбце

Повторяющиеся столбцы на основе значения ячейки в строке

Дублируйте строки или столбцы, набирая время повторения

Нажмите Kutools> Вставить> Дублировать строки / столбцы на основе значения ячейки, чтобы включить утилиту.

Повторяющиеся строки на основе значения ячейки в столбце

Предположим, у вас есть диапазон данных, как показано на скриншоте ниже. Теперь, чтобы дублировать каждую строку несколько раз на основе числовых значений в столбце F, сделайте следующее.

1. Нажмите Кутулс > Вставить > Повторяющиеся строки / столбцы на основе значения ячейки. Смотрите скриншот:

2. в Копировать и вставлять строки и столбцы диалог, вам необходимо:

• Выберите Скопировать и вставить строкуs вариант в Тип раздел;
• Выберите диапазон, в котором вы будете дублировать строки в Вставить диапазон коробка;
• Выберите диапазон столбцов, в котором вы хотите дублировать строки на основе Время повтора коробка;
• Нажмите OK or Применить кнопка. Смотрите скриншот:

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

Затем строки дублируются, как показано на скриншоте ниже.

Demo:

Повторяющиеся столбцы на основе значения ячейки в строке

Эта утилита также может помочь несколько раз дублировать каждый столбец на основе числовых значений в определенной строке.

1. Нажмите Кутулс > Вставить > Повторяющиеся строки / столбцы на основе значения ячейки для включения утилиты.

2. в Копировать и вставлять строки и столбцы диалог, вам необходимо:

• Выберите Копировать и вставлять столбцы вариант в Тип раздел;
• Выберите диапазон, в котором вы будете дублировать столбцы в Вставить диапазон коробка;
• Выберите диапазон строк, в котором вы хотите дублировать столбцы на основе Время повтора коробка;
• Нажмите OK or Применить кнопка. Смотрите скриншот:

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

Затем выбранные столбцы дублируются, как показано на скриншоте ниже.

Demo:

Дублируйте строки или столбцы, набирая время повторения

Если у вас есть несколько столбцов или строк, которые нужно скопировать, и вы не хотите добавлять вспомогательный столбец или строку с повторяющимся временем, вы можете просто ввести время в поле Время повтора текстовое окно. Пожалуйста, сделайте следующее:

1. Нажмите Кутулс > Вставить > Повторяющиеся строки / столбцы на основе значения ячейки для включения утилиты.

2. в Копировать и вставлять строки и столбцы диалог, вам необходимо:

• Выберите Копировать и вставлять строки or Копировать и вставлять столбцы вариант в Тип раздел. Здесь я выбрал Копировать и вставлять строки В качестве примера;
• Выберите диапазон, в котором вы будете дублировать строки в Вставить диапазон коробка;
• Введите неотрицательные целые числа, которые представляют время повторения в Время повтора ящик:
  • Введите одно положительное целое число, скажем 3. Это означает, что вы скопируете и вставите каждую строку Вставить диапазон в 3 раза;
  • Введите неотрицательные целые числа для каждой строки с точкой с запятой в качестве разделителя. Например, вы выбрали диапазон $ B $ 3: $ E $ 6 в Вставить диапазон поле, чтобы скопировать и вставить 1-ю, 2-ю, 3-ю и 4-ю строки диапазона для a, b, c и d раз соответственно, вы можете просто ввести а; б; в; г в Время повтора коробка. Обратите внимание, что цифра 0 означает отсутствие повторения.
• Нажмите OK or Применить кнопка. Смотрите скриншот:

Внимание: Количество неотрицательных целых чисел в Вставить диапазон поле должно быть таким же, как количество строк или столбцов в Вставить диапазон.

Затем выбранные строки или столбцы будут дублированы, как показано на скриншоте ниже.

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