excel 字符中提取数字

打开Visual Basic编辑器，按下ALT+F11，点击菜单栏中的"插入"->"模块"，将下面的代码复制到编辑器中：vbnetPublic Function test(n As String) As LongDim b As StringDim c As Longb = ""c = 0For y = 1 To Len(n)If Asc(Mid(n, y, 1)) >= 48 And Asc(Mid(n, y, 1))