word表格中如何提取表格中的数值

发布网友 发布时间：2022-04-22 21:30

我来回答

共2个回答

热心网友 时间：2022-06-18 21:37

将word 表格拷贝到excel文件。将excel 文件另存并命名为AtoN，

按ALT+F11，打开Visual Basic编辑器，双击VBAProject，双击模块，再双击模块，如下图所示：

如果没有模块，可以在 “microsoft excel 对象”的加号上点击右键添加。

在新弹出的对话框内

输入如下代码：

Function AtoN(StrAs 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编辑器，点击菜单栏上的“插入--函数”按钮，在类型列表里选择“用户定义”，这里就会显示刚才定义的函数。点击该函数，选择要转换的单元格，即可。

或者输入公式：“=MBR_data.xls!AtoN(A1)“，输入引号内的，不带引号。A1为你要转换的字符串。

追答没有 多复杂，因为你的问题看似简单，其实是一件相对复杂的事情。我用 公式的方法测试没有成功。这个vba的方法很简单啊。我写的很详细。如果你还是不能完成，你加我qq：79820091 我们在线交流。

热心网友 时间：2022-06-18 21:37

参考公式：
=-LOOKUP(,-RIGHT(C1,ROW($1:$9)))