Вообще для конкретно этой задачи UDF может быть проще, в одну строку.
Скрытый текст |
---|
Код |
---|
Function SubstringSP(Текст, Символ_разделитель, Номер_фрагмента) As String
'---------------------------------------------------------------------------------------
' URL : http://www.planetaexcel.ru/tip.php?aid=54
' Purpose : Выделяет из текста n-ный субстринг, ориентируясь по символам-разделителям
' Notes : Substring(текст; символ_разделитель; номер_фрагмента), где
' текст - текст, который делим
' символ_разделитель - символ, который надо считать разделителем фрагментов
' номер_фрагмента - порядковый номер фрагмента, который нам нужен
'---------------------------------------------------------------------------------------
On Error Resume Next
SubstringSP = Split(Application.Trim(Текст), Символ_разделитель)(Номер_фрагмента - 1)
End Function
|
|
Тогда и в ячейках чуть покороче запись получается.
Всё в файле.
Макросы разрешить, если использовать код в этом файле!