Помогите разобраться с функцией ВПР

[qwertyk]

Мне нужно чтобы функция ВПР вставляла в ячейку не первые найденые значения, а все через запятую. Как можно это сделать?

[mchip]

Функция ВПР этого сделать не сможет.

[IgorGO]

ВПР тут не поможет. пишите макрос...

[qwertyk]

Я в макросах не очень сображаю, помогите написать!!!!!!!

[SAS888]

Будет пример файла и описание задачи - будет Вам и ответ.

[mchip]

Пример приложи. Может другими формулами можно сделать...

[slan]

вот такая функция:

Function ВПРвсе(что, где, столбец, как)
Dim n&
On Error Resume Next
    Do
        n = WorksheetFunction.Match(что, где.Columns(1), как)
        If Err.Number = 0 Then
            ВПРвсе = ВПРвсе & ";" & WorksheetFunction.Index(где.Columns(столбец), n)
            Set где = где.Offset(n).Resize(где.Rows.Count - n)
            If Err.Number Then Exit Do
        Else
            Exit Do
        End If
    Loop
If ВПРвсе = "" Then
    ВПРвсе = "ничего не найдено"
Else
    ВПРвсе = Right(ВПРвсе, Len(ВПРвсе) - 1)
End If
End Function

[slan]

вот так более компактно:

Function ВПРвсе(что, где, столбец, как)
Dim n&
On Error GoTo ex
    Do
        n = WorksheetFunction.Match(что, где.Columns(1), как)
        ВПРвсе = ВПРвсе & ";" & WorksheetFunction.Index(где.Columns(столбец), n)
        Set где = где.Offset(n).Resize(где.Rows.Count - n)
    Loop
ex:
If ВПРвсе = "" Then
    ВПРвсе = "ничего не найдено"
Else
    ВПРвсе = Right(ВПРвсе, Len(ВПРвсе) - 1)
End If
End Function

[IgorGO]

класс! снова задачи нет, а решение уже готово!
slan, принципиальное расхождение с техзаданием - там написано "а все через запятую", а что мы видим в коде?)))

[slan]

ну не могу я через запятую