Объединение значений ячеек в одну ячейку

@Rezident_ · Регистрация: 02.02.2016

Author24 — интернет-сервис помощи студентам

Добрый день!
Есть список компаний, их адреса и коды компаний в трех столбцах соответственно. Нужно коды компаний
из третьего столбца записать в одну ячейку через запятую(например А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

@Казанский · 15.02.2016, 21:47

Rezident_,

Visual Basic

Sub Test()
Dim st As String, i As Long
  For i = 2 To 14
    st = st & "," & Sheets("Лист1").Cells(i, 3).Value
  Next i
  Sheets("Лист1").Cells(16, 1).NumberFormat = "@"
  Sheets("Лист1").Cells(16, 1) = Mid$(st, 2)
End Sub

Добавлено через 3 минуты
Без цикла

Visual Basic

Sub test1()
  Cells(16, 1).NumberFormat = "@"
  Cells(16, 1) = Join(WorksheetFunction.Transpose(Range("C2:C14").Value), ",")
End Sub

	15.02.2016, 21:47

Объединение значений ячеек в одну ячейку

Решение