Попробуйте следующий 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) очень просты в установке и использовании:
- ALT-F11 открывает окно VBE
- ALT-I ALT-M открывает новый модуль
- вставьте материал и закройте окно VBE
Если вы сохраните книгу, UDF будет сохранен вместе с ней.
Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx
Чтобы удалить UDF:
- откройте окно VBE, как указано выше
- очистить код
- закройте окно 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
Макросы должны быть включены, чтобы это работало!