Нужна помощь с макросом Excel
Помогите, пожалуйста!
Нужен макрос следующего плана
В столбце А есть какие-то цифры
В столбце В есть тоже какие-то цифры (их должно быть столько же сколько и в столбце А)
В столбец С нужно вывести числа из столбца А, столько раз, сколько указано в столбце В
Пример:
2__ 3__ 2
1__ 1__ 2
3__ 1__ 2
______ 1
______ 3
Нужен макрос следующего плана
В столбце А есть какие-то цифры
В столбце В есть тоже какие-то цифры (их должно быть столько же сколько и в столбце А)
В столбец С нужно вывести числа из столбца А, столько раз, сколько указано в столбце В
Пример:
2__ 3__ 2
1__ 1__ 2
3__ 1__ 2
______ 1
______ 3
Значения ячеек указаны явно,с переменными думаю разберёшься. А если нужно привязать к имени столбца - подумай сам.
Sub SetValues()
Dim k, nCount, Row, V, nRows
k = 0
For Row = 1 To nRows
V = Cells(Row, 1)
nCount = Cells(Row, 2)
For n = 1 To nCount
Cells(k + n, 3) = V
Next
k = k + nCount
Next
End Sub
Sub SetValues()
Dim k, nCount, Row, V, nRows
k = 0
For Row = 1 To nRows
V = Cells(Row, 1)
nCount = Cells(Row, 2)
For n = 1 To nCount
Cells(k + n, 3) = V
Next
k = k + nCount
Next
End Sub
Спасибо, я тут уже сам решил эту задачу =)