Разделение данных на несколько ячеек

[d_adilet]

Здравствуйте уважаемые гуру,
столкнулся с одной проблемкой . Есть Таблица где есть столбец "Вноситель" (например: погасил Иванов И.И. через Сидорова С.С. ) передомной стоит задача вытащить только ФИО Сидорова С.С. т.е. первое слово после слова "Через". Вот я уже неделю пытаюсь решить этот вопрос, никак не получается, все перерыл, скачал кучу книг и ни слова про это.

Прошу Вас помочь в данном вопросе.
Заранее спасибо

[Abrakadabra]

Я бы сделал функцию, которая вычислила слово "через", после него проверила кол-во пробелов, удалила лишние, а потом вернула Фамилию с инициалами..

[Teslenko_EA]

Здравствуйте d_adilet.
в развитие совета от Abrakadabra, выкладываю образец пользовательской VBA функции :

Public Function sFIO(s)
Const sC = "Через"
Dim i%
s = s & "": i = InStr(1, s, sC, vbTextCompare)
If i > 0 Then sFIO = Trim(Mid(s, i + 6))
End Function

к радости пользователей она может интегрироваться непосредственно в SQL конструкцию запроса:
'SELECT F1, F2, sFIO(F2) FROM Table1
Евгений.

[d_adilet]

Abrakadabra, Евгений
Низкий Вам поклон, спасибо огромное, работает отлично.

Один вопрос, пользователи слово "Через" вводят по разному. Например "ч\з","ч-з" подскажите пож-та как мне предусмотреть все эти нюансы.
Еще раз спасибо за помощь.

[d_adilet]

Сообщение от d_adilet

Abrakadabra, Евгений
Низкий Вам поклон, спасибо огромное, работает отлично.

Один вопрос, пользователи слово "Через" вводят по разному. Например "ч\з","ч-з" подскажите пож-та как мне предусмотреть все эти нюансы.
Еще раз спасибо за помощь.

В общем вроде разобрался сам, не знаю правильно ли это иль нет но работает.
Сделал таких функций несколько назвав из соответственно sFIO1, sFIO2 и т.д. в самом запросе сделал sFIO1(F1)&sFIO2(F1) и т.д.

Евгений еще раз спасибо за помощь

[Teslenko_EA]

d_adilet, "подкорректируйте" код подобным образом:

Const sC = "Через", sV1 = "ч\з", sV2 = "ч-з" 
s = s & "": s = Replace(s, sV1, sC): s = Replace(s, sV2, sC)
i = InStr(1, s, sC, vbTextCompare)

и использования одной функции достаточно.
Евгений.

[d_adilet]

Спасибо большое