自定义函数提取单元格里文字串中的数字，不能用于数组求教

【求助帖】请及时确认最佳答案，下次提问时可以得到更多关注，问题可以更快解决

网上找的自定义函数提取单元格里文字串中的数字，但不能用于数组求解决方法~~~{:30:}
Public Function number(ByVal n As String) As String
For x = 1 To Len(n)
If Asc(Mid(n, x, 1)) >= 48 And Asc(Mid(n, x, 1)) <= 57 Or Asc(Mid(n, x, 1)) = 46 Then
number = number & Mid(n, x, 1)
End If
Next
End Function