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

Как повторить значение ячейки x раз в Excel?

Например, у вас есть список значений в столбце A, и вы хотите повторить значения определенное количество раз в зависимости от количества раз в столбце B, как показано на скриншоте слева, как вы могли бы добиться этого в Excel?

 

Повторите значения ячеек X раз с формулой и вспомогательным столбцом

Чтобы повторить значения ячеек X раз, вы можете вставить несколько вспомогательных столбцов, а затем применить простую формулу, выполните следующие действия:

1. Вставьте столбец слева от столбца A и введите 1 в ячейку A2, см. Снимок экрана:

2. Затем положите эту формулу = A2 + C2 в A3 и перетащите маркер заполнения в ячейку A6, см. снимок экрана:

3. Затем введите 1 в ячейку D2 и заполните число, перетащив Автозаполнение на 12, что является общим числом раз в столбце C, см. Снимок экрана:

4. Затем введите эту формулу = ВПР (D2; $ A $ 1: $ B $ 6,2) в ячейку E2 и скопируйте, вы получите следующий результат:

  • Заметки:
  • 1. В этой формуле D2 обозначает первую ячейку, которую вы заполняете числовой последовательностью, и A1: B6 обозначает диапазон первого вспомогательного столбца и исходных значений ячеек, которые необходимо повторить.
  • 2. После получения повторяющихся значений вы можете скопировать и вставить их как значения в любое другое место.

Легко копируйте и вставляйте строки X раз на основе определенного числа

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

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


Повторить значения ячеек X раз с кодом VBA

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

1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: повторить значения ячеек X раз

Sub CopyData()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
For Each Rng In InputRng.Rows
    xValue = Rng.Range("A1").Value
    xNum = Rng.Range("B1").Value
    OutRng.Resize(xNum, 1).Value = xValue
    Set OutRng = OutRng.Offset(xNum, 0)
Next
End Sub
3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится диалоговое окно с напоминанием о выборе диапазона, который содержит значения и повторяющиеся времена, см. снимок экрана:

4, И нажмите OKпоявится другое окно подсказки, позволяющее выбрать ячейку для отображения результата, см. снимок экрана:

5. Затем нажмите OK, и вы получите результат, что выбранные вами значения были повторены указанное количество раз по мере необходимости.


Копируйте и вставляйте значения ячеек X раз с потрясающей функцией

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

Советы:Чтобы применить это Повторяющиеся строки / столбцы на основе значения ячейки функция, во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.

После установки Kutools for Excel, пожалуйста, сделайте так:

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

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

4, Затем нажмите Ok or Применить кнопку, вы получите такой результат, как вам нужно:

Нажмите, чтобы загрузить Kutools for Excel и бесплатную пробную версию сейчас!


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

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

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (45)
Номинальный 5 из 5 · рейтинги 1
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за это, очень легко сделать и понять. Раньше я делал это вручную с 2600 ячейками.
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ, чтобы макрос запомнил назначение ввода и вывода, чтобы в следующий раз при запуске макроса вам не нужно было повторно выбирать?
Этот комментарий был сведен к минимуму модератором на сайте
Код VBA прерывается, когда в столбце «количество раз» есть значение 0. Настройте цикл For Each следующим образом: For Each Rng In InputRng.Rows xValue = Rng.Range("A1").Value xNum = Rng.Range("B1").Value Если xNum > 0, то OutRng.Resize(xNum, 1).Value = xValue Set OutRng = OutRng.Offset(xNum, 0) End If Next
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо чувак!! Сэкономил много времени. :-)
Этот комментарий был сведен к минимуму модератором на сайте
Я использовал первый подход, он работал безупречно, спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо чувак ..!! Это работает и сэкономило мне достаточно времени.
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо!! Сэкономил мне массу времени. Умное использование vlookup!
Этот комментарий был сведен к минимуму модератором на сайте
Как и #John Said, есть ли способ установить диапазон, чтобы вам не нужно было выбирать. Я также пытаюсь вставить каждое отдельное значение в отдельный столбец. Я изменил строку Set OutRng=OutRng.offset(xNum,0) на Set OutRng=OutRng.offset(xNum,1), пытаясь превратить ее в столбцы. Кажется, я получаю сообщение об ошибке в строке OutRng.Resize(xNum ,1).value=xValue, даже если я скопирую и вставлю код с этого сайта. Любая помощь будет принята с благодарностью.
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо!!!! VB Macro сработал для меня и сэкономил мне 1 неделю времени.... Еще раз спасибо..
Этот комментарий был сведен к минимуму модератором на сайте
Привет. Будет ли предложенный в статье код VBA работать, если ячейки с количеством раз не находятся рядом с ячейками со значением? Если нет, есть ли способ изменить VBA, чтобы заставить его работать?
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо. :)
Этот комментарий был сведен к минимуму модератором на сайте
Привет, у меня есть запрос: Базовые данные: Страна клиента Общий вывод: Клиент1 Клиент2 Клиент3 (если есть) Страна1 Страна2 и так далее...(если есть) Всего1 Всего2 и так далее...(если есть) Пожалуйста, кто-нибудь может решить эту проблему, используя формулу в excel как можно скорее
Этот комментарий был сведен к минимуму модератором на сайте
Потрясающий! Огромное спасибо!!!!!!!!
Этот комментарий был сведен к минимуму модератором на сайте
Продолжаем сохранять проекты в 2017 году! Большое спасибо за это! :-)
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо, чувак, ты отлично поработал.
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ изменить код, чтобы было 2 столбца с данными и 1 столбец с количеством повторений. т.е. A1 = x B2 = y C3 = 2 макрос будет повторять A1 дважды и b2 дважды в cels справа. Любая помощь приветствуется. Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Это было очень полезно, пригодилось для создания электронной таблицы для работы.
Этот комментарий был сведен к минимуму модератором на сайте
Сэр
Этот комментарий был сведен к минимуму модератором на сайте
VBA или формула. Ни один из них не работает для меня. Это дает «Ошибка, определяемая приложением или объектом» Ошибка 1004. Кто-нибудь может помочь?
Этот комментарий был сведен к минимуму модератором на сайте
Код VBA не работает, если у вас нет Kutools. Выдает ошибку "переменная не определена"
Здесь еще нет комментариев
Загрузить ещё
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

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

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