提取Excel字符串中的数字
在处理账务中，一般单位名称是放在表格的右上角，但有时单位是不固定的，比较有时是吨，有时是件，有时是箱，这时单位就不便放在表格上面，因为这样不能反应真实的信息，而如果把这些单位直接输入到表格中，在计算时会就遇到问题，我的解决方法是，把这些单位也输入，在计算时把字符串的数字提出来。

用VBA实现：
实现环境：Excel2003，Windows XP。

打开Excel，按ALT+F11，打开Visual Basic编辑器，双击VBAProject，双击模块，再双击模块，如下图所示：
输入如下代码：
Function AtoN(Str As String)
If IsNumeric(Str) Then
AtoN = Str
Else
For i = Len(Trim(Str)) To 1 Step -1
a = Mid(Str, i, 1)
If a = "." Then n = a + n
If IsNumeric(a) Then
n = a + n
Else
i = i
End If
Next i
AtoN = n
End If
End Function
关闭Visual Basic编辑器，点击地址栏上的插入函数按钮，在类型列表里选择用户定义，这里就会显示刚才定义的函数。

如下图所示：
测试：。