VBA擷取某個字元前的字串，可以使用如下的方法:使用Index = InStr(string, exp)函式判斷字串中是否含有某個字元，如果有，就會返回該字元出現的位置。再使用left_char = Left(string, Index)來擷取某個字元前的字串。

利用vba的自定義函式吧在工作表介面作如下操作：按Alt+F11->開啟vixual basic編輯器在開啟的vixual basic編輯器視窗作如下操作：標題欄->檢視->工程資源管理器(單擊開啟)插入-模組（這時會插入一個名稱為“模組1”的模組)右邊出現一大片空白區域將下述程式碼複製->貼上進去:Function Hasf(rng As Range) If rng.HasFormula Then Hasf = rng.Formula Else Hasf = "" End IfEnd Function"這樣在工作表介面就可以直接用函式hasf了，跟excel內建函式一樣使用"如A2裡有公式=IF(A1="","",A3+A4)"那麼B2裡輸入公式=hasf(A2) 確定即可

mid(源字串，起始位號x，提取長度m)；返回第x位起m個字元。要求：起始位號+提取長度