=A1&", "&A2&", "&A3&", "&A4...
Sub жмяк() lr = Cells(Rows.Count, 1).End(xlUp).Row Cells(1, 2).Value = Cells(1, 1).Value For i = 2 To lr Cells(1, 2).Value = Cells(1, 2).Value & ", " & Cells(i, 1).Value Next i End Sub
Sub t() [b1] = Join(Application.Transpose(Range([a1], Cells(Rows.Count, 1).End(xlUp)).Value), ", ") End Sub