Как сцепить данные с определенного диапазона ячеек через запятую

[Alex___]

Вопрос!
В листе 1 есть столбец с фиксированным диапазоном в 59 ячеек, в этом столбце есть заполненные ячейки и пустые, как сделать так чтобы формула склеивала значения через запятую ячеек с данными, а пустые ячейки игнорировались

Спасибо.

[МаркИza]

Могу посоветовать пользовательскую функцию, чтобы убрать дублирующие ", ," по пустым ячейкам используйте функцию =ПОДСТАВИТЬ(СЦЕПИТЬВСЕ(A6:A10);", ,";",")

Макрос:
Function СЦЕПИТЬВСЕ(Диапазон As Range, Optional Разделитель As String = ", ")
tmp = Application.Transpose(Диапазон)
СЦЕПИТЬВСЕ = Join(tmp, Разделитель)
End Function

Либо используйте макрос с условием, у меня потребовался доп.столбце для определения, что ячейка не пуста:
Function ConcatIf(ByVal compareRange As Range, ByVal xCriteria As Variant, _
Optional ByVal stringsRange As Range, Optional Delimiter As String) As String
Dim i As Long, j As Long, criteriaMet As Boolean

Set compareRange = Application.Intersect(compareRange, _
compareRange.Parent.UsedRange)

If compareRange Is Nothing Then Exit Function
If stringsRange Is Nothing Then Set stringsRange = compareRange
Set stringsRange = compareRange.Offset(stringsRange.Ro w - compareRange.Row, _
stringsRange.Column - compareRange.Column)

For i = 1 To compareRange.Rows.Count
For j = 1 To compareRange.Columns.Count
If (Application.CountIf(compareRange.C ells(i, j), xCriteria) = 1) Then
ConcatIf = ConcatIf & Delimiter & CStr(stringsRange.Cells(i, j))
End If
Next j
Next i
ConcatIf = Mid(ConcatIf, Len(Delimiter) + 1)
End Function

..
Упоминалось здесь http://www.programmersforum.ru/showthread.php?t=66389

[Serge 007]

Ещё пара функций

[Alex___]

Спасибо за ответы, но я чайник в этом и единственное, что я смог это скопировать формулу но она пишет ИМЯ? ....в макрос подставить диапазон не знаю куда ..... в моем случае диапазон такой: 'Y '!I10:I59 не подскажете как тогда будет выглядет макрос? или формула с моими значениями?

[VictorM]

на сайте автора функции СцепитьЕсли, ниже самого кода функции, описано как и что со всем этим делать.
Почитайте

[Казанский]

Можно и формулами листа, но с использованием доп. столбца. Этот столбец можно скрыть и сделать ссылку на верхнюю ячейку столбца: