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

---

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

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

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

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

3. Введите 1 в ячейку D2 и заполните числа до 12, перетащив маркер автозаполнения — это соответствует общему количеству повторений из столбца C (см. скриншот):

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

---

---

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

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

1. Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic for Applications.

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И нажмите ОК, после чего появится ещё одно окно с запросом на выбор ячейки для размещения результата (см. скриншот):

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

---

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

Иногда возникает необходимость скопировать и вставить значения ячеек определённое количество раз на основе указанного числа. В этом случае функция Kutools для Excel — Копировать или вставить строки/столбцы в соответствии с указанными данными — поможет быстро выполнить копирование и вставку нужного количества строк.

После установки Kutools для Excelвыполните следующие действия:

1. Нажмите Kutools > Вставка > Копировать или вставить строки/столбцы в соответствии с указанными данными (см. скриншот):

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

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

Нажмите, чтобы скачать Kutools для Excel и начать бесплатный пробный период прямо сейчас!