Как повторить значение ячейки x раз в 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 для приложений.

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

Код 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 для Excel «Копировать или вставить строки/столбцы в соответствии с указанными данными» поможет быстро скопировать и вставить строки на основе указанного числа.

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

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

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

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

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