提取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编辑器，点击地址栏上的插入函数按钮，在类型列表里选择用户定义，这里就会显示刚才定义的函数。如下图所示：
测试：

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。