Функция Excel для разделения ячейки, vlookup на столбец и конкатена

Question

У меня есть один диапазон со значением в столбце 1, и я хочу найти ячейки в столбце 2, если они находятся в диапазоне столбца 1. Когда они находятся в диапазоне, я хочу, чтобы функция выдала мне значение col 2, принадлежащее диапазону col 1. Я сделал это с помощью Excel, выполнив текст в столбец, затем vlookup и после того, как я конкатенировал значение, но я хотел бы сделать это с помощью функции.

Пример:

Col A            Col B              Col C(result)
1                1, 4, 8                  1, 4
4 
5 
6 
10

Если кто-то как идея, любая помощь будет признательна :)

Answer 1

Попробуйте следующий UDF (U ser D определил F unction):

Public Function SubString(rng As Range, sIN As String) As String
    Dim sep As String, temp As String
    Dim r As Range
    SubString = ""
    sep = ", "
    If sIN = "" Then Exit Function
    If InStr(sIN, sep) = 0 Then Exit Function

    ary = Split(sIN, sep)
    For Each a In ary
        For Each r In rng
            If a = r.Text Then
                temp = temp & a & sep
                Exit For
            End If
        Next r
    Next a
    SubString = Mid(temp, 1, Len(temp) - 2)
End Function

Пользовательские функции (UDF) очень просты в установке и использовании:

1. ALT-F11 открывает окно VBE
2. ALT-I ALT-M открывает новый модуль
3. вставьте материал и закройте окно VBE

Если вы сохраните книгу, UDF будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx

Чтобы удалить UDF:

1. откройте окно VBE, как указано выше
2. очистить код
3. закройте окно VBE

Чтобы использовать UDF из Excel:

= Подстрока (А1: А5, В1)

Чтобы узнать больше о макросах в целом, смотрите:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

а также

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

а подробности о UDF смотрите в:

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

Макросы должны быть включены, чтобы это работало!