Добрый день! Подскажите, возможно ли в Exel 2013 преобразовать строки с общим кол-вом в строки с кол-вом по 1 штуке?

Например, дано:

наименование / Кол-во / ед.изм / цена / сумма
яблоко 3 шт 100 300
груша 5 шт 70 350

Нужно получить:

наименование / Кол-во / ед.изм / цена / сумма
яблоко 1 шт 100 100
яблоко 1 шт 100 100
яблоко 1 шт 100 100
груша 1 шт 70 70
груша 1 шт 70 70
груша 1 шт 70 70
груша 1 шт 70 70
груша 1 шт 70 70

Или я хочу невозможного?)

Akina, подскажете какой? Сама не напишу, не разбираюсь...

Нашла ответ на другом ресурсе.

Sub qqq()
Dim s&, i&, j&
s = 2
With Sheets("Ëèñò2")
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
For j = 1 To Cells(i, 2)
.Cells(s, 1) = Cells(i, 1)
.Cells(s, 2) = 1
.Cells(s, 3) = Cells(i, 3)
.Cells(s, 4) = Cells(i, 4)
.Cells(s, 5) = Cells(i, 4)
s = s + 1
Next j
Next i
End With
End Sub