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

aioliadl

請教各位高手，有什么辦法能夠提取出每一行數(shù)據(jù)總經(jīng)理的前一個職位是誰來？（例如最后一行的總經(jīng)理前一個人是總監(jiān)），由于是外鏈的SQL數(shù)據(jù)庫，因此數(shù)據(jù)格式不可修改，且此審核流程的形式和位數(shù)不等，所以請大伙給想想辦法吧！

roych

用Split函數(shù)（詳見附件）：

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

復(fù)制代碼

使用說明：
GetPosition "ysd_shlc", "總經(jīng)理", "-"