Данные из одного столбца в одну ячейку, через разделитель

Пользователь

Сообщений: 9 Регистрация: 17.03.2020

18.03.2020 23:08:35

Всем здравствуйте!

Прошу помощи, есть такая задача:
данные из ячеек столбца А необходимо разместить в одну ячейку через запятую.

Сейчас просто вручную набиты формулы

Код
=A2 & ", "&A3& ", "&A4& ", "&A5& ", "&A6& ", "&A7& ", "&A8& ", "&A9& ", "&A10

и т.д.
Однако записей может быть много, и вручную не вариант...
Хотелось бы подключить VBA

Прикрепленные файлы

pic.jpg (163.55 КБ)
Книга.xlsx (9.42 КБ)

Kuzmich

Пользователь

Сообщений: 8054 Регистрация: 21.12.2012

18.03.2020 23:44:32

Цитата
Хотелось бы подключить VBA

Код
Sub Tablica() Dim iLastRow As Long iLastRow = Cells(Rows.Count, 1).End(xlUp).Row Cells(2, 3) = Join(Application.Transpose(Range("A2:A" & iLastRow)), ", ") End Sub

Дмитрий(The_Prist) Щербаков Пользователь Сообщений: 14896 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	#3 19.03.2020 08:49:15 Несколько вариантов UDF: Сцепить много ячеек с указанным разделителем Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

sergey08 Пользователь Сообщений: 9 Регистрация: 17.03.2020	#4 20.03.2020 00:11:15 Kuzmich, спасибо большое! Взял в работу! Дмитрий(The_Prist) Щербаков, тоже спасибо, не знал про эту функцию!