excel中忽略所有文字計算函數

自建函數比如自建一個提取數值的函數Function TQSZ(cel As Range)With CreateObject("vbscript.regexp") '利用正則表達式實現數字提取.Pattern = "[^\d.-]+".Global = TrueTQSZ = .Replace(cel, " ")End WithEnd Function複製代碼到任意一個模塊這個函數就可以用了提取數字TQSZ()