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

@DenratV · Регистрация: 18.05.2019

Author24 — интернет-сервис помощи студентам

Всем привет!

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

Задано:
⠀⠀⠀⠀⠀⠀Товар1⠀Товар2⠀Товар3
Иванов 1⠀⠀⠀⠀⠀⠀2⠀⠀⠀⠀⠀⠀1
Петров 2⠀⠀⠀⠀⠀⠀1⠀⠀⠀⠀⠀⠀3

Результат выполнения макроса:
⠀⠀⠀⠀⠀⠀Товар1⠀Товар2⠀Товар3
Иванов 1⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀
Иванов⠀ ⠀⠀⠀⠀⠀⠀2⠀⠀⠀⠀⠀⠀
Иванов⠀ ⠀⠀⠀⠀⠀⠀2⠀⠀⠀⠀⠀⠀
Иванов ⠀⠀⠀⠀⠀⠀⠀ ⠀⠀⠀⠀⠀⠀ 1
Петров 2⠀⠀⠀⠀⠀⠀
Петров 2⠀⠀⠀⠀⠀⠀
Петров ⠀⠀⠀⠀⠀⠀⠀1⠀⠀⠀⠀⠀⠀
Петров ⠀⠀⠀⠀⠀⠀⠀ ⠀⠀⠀⠀⠀⠀3
Петров ⠀ ⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀3
Петров ⠀⠀⠀⠀⠀⠀⠀ ⠀⠀⠀⠀⠀⠀3

~~Остап Бонд~~ · 19.05.2019, 06:28

DenratV, приложили бы файл - давно имели бы ответ, дел тут на пять минут, но кому хочется выслушивать последующие претензии, что тут не в той строке, тут не на том листе и т.д. и т.п.

@DenratV · 19.05.2019, 09:20 **[ТС]**

Остап Бонд, приложил

@DenratV · 19.05.2019, 09:45 **[ТС]**

Остап Бонд, добавил лист "желаемый результат", чтобы меня точно поняли

@Vlad999 · 20.05.2019, 13:51

проверяйте

Visual Basic

Sub vvv()
lr = Cells(Rows.Count, 1).End(xlUp).Row
k = Application.WorksheetFunction.Sum(Range("B2:D" & lr))
ReDim tabl(1 To k, 1 To 4)
a = Range("A2:D" & lr).Value: k = 1
For i = 1 To UBound(a)
    For j = 2 To 4
        For n = 1 To a(i, j)
            tabl(k, 1) = a(i, 1)
            tabl(k, j) = a(i, j): k = k + 1
        Next
    Next
Next
Range("A2").Resize(k, 4) = tabl
End Sub

@DenratV 0 / 0 / 0 Регистрация: 18.05.2019 Сообщений: 7
		1
	Excel Копирование строк столько раз, сколько заданно в ячейке 18.05.2019, 23:59. Показов 4746. Ответов 4 Метки нет (Все метки) Всем привет! подскажите пожалуйста: Как скопировать строку столько раз, сколько заданно в ячейке, причем изначальную строку надо разбить например Задано: ⠀⠀⠀⠀⠀⠀Товар1⠀Товар2⠀Товар3 Иванов 1⠀⠀⠀⠀⠀⠀2⠀⠀⠀⠀⠀⠀1 Петров 2⠀⠀⠀⠀⠀⠀1⠀⠀⠀⠀⠀⠀3 Результат выполнения макроса: ⠀⠀⠀⠀⠀⠀Товар1⠀Товар2⠀Товар3 Иванов 1⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀ Иванов⠀ ⠀⠀⠀⠀⠀⠀2⠀⠀⠀⠀⠀⠀ Иванов⠀ ⠀⠀⠀⠀⠀⠀2⠀⠀⠀⠀⠀⠀ Иванов ⠀⠀⠀⠀⠀⠀⠀ ⠀⠀⠀⠀⠀⠀ 1 Петров 2⠀⠀⠀⠀⠀⠀ Петров 2⠀⠀⠀⠀⠀⠀ Петров ⠀⠀⠀⠀⠀⠀⠀1⠀⠀⠀⠀⠀⠀ Петров ⠀⠀⠀⠀⠀⠀⠀ ⠀⠀⠀⠀⠀⠀3 Петров ⠀ ⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀3 Петров ⠀⠀⠀⠀⠀⠀⠀ ⠀⠀⠀⠀⠀⠀3 0

~~Остап Бонд~~ Заблокирован
	19.05.2019, 06:28	2
	DenratV, приложили бы файл - давно имели бы ответ, дел тут на пять минут, но кому хочется выслушивать последующие претензии, что тут не в той строке, тут не на том листе и т.д. и т.п. 0

	20.05.2019, 13:51