Добрый день!
Есть список компаний, их адреса и коды компаний в трех столбцах соответственно. Нужно коды компаний
из третьего столбца записать в одну ячейку через запятую(например А16). Получается записать только в строку, а если в одну ячейку, то она заменяется каждый раз и оставляет только последнее значение. Как это можно сделать?
Код макроса:

Sub Test()
Dim st As String

For i = 2 To 21
st = Sheets("Лист1").Cells(i, 3).Value
Sheets("Лист1").Cells(16, i - 1) = st & ","
'Sheets("Лист1").Cells(17, 1) = st & ","
Next i

End Sub

В common-модуле пишешь функцию конкатенации значений:



В ячейке назначения пишешь формулу

где C1:C100 - диапазон с нужными тебе кодами.