Из двух колонок сделать одну

[NL0]

с повторением ячеек.
В файле in.xls - 2 колонки kolvo и cena
Необходимо получить файл out.xls, состоящий из одной колонки cena,
в которой значение цены повторяется столько раз, сколько она указана в колонке количества.
Файл out.xls будет использоваться в Word при печати со слиянием.

[EducatedFool]

Необходимо получить файл out.xls

Ну так и в чем проблема? Что конкретно не получается?
Не вижу ваших попыток самостоятельно решить задачу...

[Hugo121]

Option Explicit

Sub out()
    Dim wb As Workbook, cc As Range, i&
    Set wb = Workbooks.Add(1)
    wb.Sheets(1).Columns(1).NumberFormat = "#,##0.00"
    For Each cc In ThisWorkbook.Sheets(1).UsedRange.Columns(1).Cells
        If i = 0 Then
            wb.Sheets(1).Cells(i + 1, 1) = cc.Offset(, 1).Value
            i = i + 1
        Else
            wb.Sheets(1).Cells(i + 1, 1).Resize(cc.Value) = cc.Offset(, 1).Value
            i = i + cc.Value
        End If
    Next
End Sub

[NL0]

Спасибо большое за помощь!
Попытался поднять Вам репутацию, но почему-то она не повысилась