以下從一個單元格字串中提取出連續出現的數字，並且空格分割，後面只需分列以下就提取到不同單元格了。函式程式碼如下：Function REFIND(str, re) Dim Reg As New RegExp With Reg .Global = True .Pattern = re Set matchs = .Execute(str) For Each Match In matchs y = y & " " & Match Next End With "MsgBox y REFIND = yEnd Function注意：需要是office的VBA環境，sheet名字右鍵檢視程式碼或者開發工具進入VBA介面。在插入中插入模組，編寫程式碼，儲存；然後就可以在表格中使用了。如果出現使用者自定義型別未定義，那是因為RegExp型別需要從工具欄中引用新增 MicrosoftVBScriptRegularExpressions5.5
以下從一個單元格字串中提取出連續出現的數字，並且空格分割，後面只需分列以下就提取到不同單元格了。函式程式碼如下：Function REFIND(str, re) Dim Reg As New RegExp With Reg .Global = True .Pattern = re Set matchs = .Execute(str) For Each Match In matchs y = y & " " & Match Next End With "MsgBox y REFIND = yEnd Function注意：需要是office的VBA環境，sheet名字右鍵檢視程式碼或者開發工具進入VBA介面。在插入中插入模組，編寫程式碼，儲存；然後就可以在表格中使用了。如果出現使用者自定義型別未定義，那是因為RegExp型別需要從工具欄中引用新增 MicrosoftVBScriptRegularExpressions5.5