在包含文字和数字的单元格里提取数字。急，求求求

截个图，不难

Sub 秋天()
Dim n%, arr(1 To 100)
Set regx = CreateObject("vbscript.regexp")
With regx
.Global = True
.Pattern = "\d+\.?\d+"
For Each m In .Execute([a1])
n = n + 1
arr(n) = m
Next
End With
[c4:e4] = arr
End Sub

方法2
=-LOOKUP(,-(0&MID($A1,SMALL(IF(IF((MID($A1,ROW($1:$99),1)=".")*(ISERR(-MID($A1,ROW($1:$99)+1,1))),,MMULT(--ISERR(-(MID($A1,ROW($1:$99)-{1,0},{2,1})&1)),{1;2})=1),ROW($1:$99),99),2*COLUMN(A1)-1),ROW($1:$99))))
数组公式