ДВССЫЛ в VBA

[ruslan_123]

Проблема
есть ячейки prod1, prod2, ..., prod200
kol1, kol2, ... , kol200
prod1 = макарон
kol1 = 1
prod2 = морковь
kol2 = 0
...
prod200 = яйцо
kol200 = 10
нужно написать макрос, чтобы получилось так
ячейка (1:1) = макарон, ....., яйцо
то есть ячейка (1:1) = всем названиям продуктов от 1 до 200 если количество > 0

[IgorGO]

а если повернуть монитор на левый бок и потом потрясти - все данные должны ссыпаться по строчкам в первую ячейку.

извините, ...сегодня день неожиданных ответов (с мониторами).

[Казанский]

Sub bb()
Dim i&, s$
On Error GoTo 10
For i = 1 To 200
    If Range("kol" & i) > 0 Then s = s & ", " & Range("prod" & i)
Next
10: [A1] = Mid(s, 3)
End Sub