Открываете вкладку "Разработчик" (если нет, то включите ее)->Visual Basic ->слева находите любой знакомый вам лист из книги, правый щелчок ->insert->module
В новый модуль заходите по дабл клику, в него вставляете эту функцию. Теперь ее можно использовать и в формулах и в макросах
Public Function GetListElement(CellText As String, num As Long) As String
Elements = Split(CellText, ";")
GetListElement = Elements(num - 1)
End Function
Пример использования в формулах:
=GetListElement(A1;2)
вернет второй элемент списка