Попробуйте следующую пользовательскую функцию:
Public Function NextToLast(sin As String) As String
arr = Split(sin, "*")
NextToLast = arr(UBound(arr) - 1)
End Function

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