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

[Mstislav]

в диапазоне A1:A10 первого листа могут быть данные....нужна формула для записи этих данных в ячейку A1 второго листа этой же книги? причем они должны именно перечисляться желательно через запятую или какойнить другой символ ну чтоб отделить одно от другого.
Допустим в ячейке А1 стоит 23 в ячейке А4 стоит 43 в ячейке А10 стоит 56, надо чтоб в ячейке А1 второго листа было записано 23,43,55
И есче все ячейки первого листа обязательно в текстовом формате. Хелпните пожалуйста уже два дня башкой бьюсь

[Hugo121]

UDF годится?
Т.к. используется готовая функция, нужно наличие рядом (с любой стороны) столбца с критерием отбора, в данном случае пустого.

P.S. Если данные с пропусками, и в итоге результат вроде
21, , 32, 44
то можно дополнительно использовать стандартную формулу
=ПОДСТАВИТЬ(E1;", ,";",")
в другой ячейке или совместить:
=ПОДСТАВИТЬ(VLOOKUPCOUPLE(A1:B4;2;D 1;1;", ");", ,";",")

[Mstislav]

не могу понять, в примере пробую все супер все устраивает
создаю свою книгу копирую формулу из примера ошибка

[kuklp]

Ну и правильно, ошибка. Игорь же написал вам - ЮДФ. Вам надо скопировать еще и макрос из примера Игоря.

[Mstislav]

Всем большое спасибо

[Mstislav]

хм созрел следующий вопрос ... а как сделать так чтоб в эту же ячейку собирались данные из нескольких одинаковых листов допустим сначала все данные с ячеек А1-А10 Листа1 дальше А1-А10 Листа2 и так далее ???

[kuklp]

Так, например:
=СЦЕПИТЬ(VLOOKUPCOUPLE(A1:B4;2;D1;1 ;", ");VLOOKUPCOUPLE(Лист2!A1:B10;2;D1; 1;", "))
ну и т.д.
Хотя ИМХО макросом проще бы было. И собирать можно только с выделенных листов.

[SAS888]

Предлагаю пользовательскую функцию, которая соберет все значения из всех столбцов "A" всех листов. Обратите внимание, что в ней нет циклического перебора ячеек, либо их значений:

Function Sbor() As String
    Dim ws As Worksheet, s As String, ss As String, a()
    With Application
        .Volatile
        For Each ws In Sheets
            If ws.Columns(1).Text = "" Then
            Else
                a = ws.Range(ws.[A1], ws.Cells(Rows.Count, 1).End(xlUp)).Value
                s = Replace(Join(.Transpose(.Index(a, 0, 1)), ", "), " ,", "")
                If Left$(s, 1) = "," Then s = Right$(s, Len(s) - 2)
                ss = IIf(ss = "", s, ss & ", " & s)
            End If
        Next
    End With: Sbor = ss
End Function

Пример во вложении. Формула в ячейке "D4". Функция - в программном модуле.
При необходимости, можно добавить аргументы функции, которые позволят выбирать требуемые листы и диапазоны для сбора значений.

[palach-d]

А как можно заставить макрос исключать из перечисления одинаковые результаты. К примеру, если число встречается несколько раз, то оно будет перечислено только один раз.

[Hugo121]

Моя UDF это делает "bydesign", но можно отключить.