请教如何提取一字段中的指定值

aioliadl

请教各位高手，有什么办法能够提取出每一行数据总经理的前一个职位是谁来？（例如最后一行的总经理前一个人是总监），由于是外链的SQL数据库，因此数据格式不可修改，且此审核流程的形式和位数不等，所以请大伙给想想办法吧！

roych

用Split函数（详见附件）：

1. Function GetPosition(strFull As String, strFind As String, StrSplit As String)
   
2. Dim str2
   
3. str2 = Split(Left(strFull, InStr(1, strFull, strFind) - 2), StrSplit)
   
4. GetPosition = str2(UBound(str2))
   
5. End Function

复制代码

使用说明：
GetPosition "ysd_shlc", "总经理", "-"