b2=get_number($A$1,COLUMN()-1)
a3=VALUE(get_number($A$1,ROW()-2))
公式說明
=get_number(儲存格位置,第n組數字)
程式寫法很簡單，差不多就是這樣
regexp功能，主要是看pattern怎麼寫，拿來拆數字只是大材小用
想了解更多，請google regexp pattern
'利用regexp，快速拆分出字串中，所有的數字(連續視為一組)
Function get_number(S As String, N As Integer)
Dim Find_Num
With CreateObject("VBScript.RegExp")
.Pattern = "\d+"
.Global = True
Set Find_Num = .Execute(S)
If Find_Num.Count > 0 And N <= Find_Num.Count Then
get_number = Find_Num(N - 1)
Else
get_number = ""
End If
End With
End Function
