excel提取数字

excel

使用自定义函数可以从excel中提取数字，以下是代码示例：VBAPublic Function TQSZ(Rng) As StringFor i = 1 To Len(Rng)If IsNumeric(Mid(Rng, i, 1)) And Mid(Rng, i + 1, 1) = "" ThenOr (Mid(Rng, i, 1) = "." And IsNumeric(Mid(Rng, i + 1, 1)))ThenNum = Num & Mid(Rng, i, 1)ElseIf IsNumeric(Mid(Rng, i, 1)) And IsNumeric(Mid(Rng, i + 1, 1))ThenNum = Num & Mid(Rng, i, 1)ElseIf IsNumeric(Mid(Rng, i, 1)) And IsNumeric(Mid(Rng, i + 1, 1)) = FalseThenNum = Num & Mid(Rng, i, 1)End IfNext iTQSZ = NumEnd Function使用方法：打开excel后，按Alt+F11打开VBA窗口，在其中插入一个模块，并将上述代码复制到其中。然后关闭VBA窗口即可。使用时，假设你要提取的问题在A1单元格中（150王国云），那你在B1输入tqsz(a1)即可将其中的数字“150”提取出来。效果如下图。请注意，使用时需将excel的宏安全性改为“中”或“低”，并重新打开excel。否则无法正常使用。附件中文件供参考，如有问题可继续追问。希望对您有所帮助！