Vlookup и фильтрация - PullRequest
Новая
       19

Vlookup и фильтрация

0 голосов
/ 04 июня 2019

Получение нескольких значений поиска в одной ячейке. Ячейка состоит из нескольких имен, разделенных запятыми.

Я пробовал alt F11, но не совсем понял. 

Public Function GymLookup(ByVal stringToProcess As String) As Variant
Application.Volatile

Dim var As Variant
Dim arrData As Variant
Dim strConcat As String

If InStr(1, stringToProcess, ",") > 0 Then
    arrData = Split(stringToProcess, ",")
    For Each var In arrData
        'multiple handler
        If strConcat = "" Then
            strConcat = "enter your vlookup to resolve a result here"
        Else
            strConcat = strConcat & ", " & "enter your vlookup to resolve a result here"
        End If
    Next var
    GymLookup = strConcat
Else
    'Single cell lookup
    GymLookup = "enter your vlookup to resolve a result here"
End If

End Function

Нельзя сохранить в книгах без макросов

...