如何用excel vba 将单元格中的数字提取出来？单元格是文本和数字组成的，且一个单元格只有一组

Question

如何用excel vba 将单元格中的数字提取出来？单元格是文本和数字组成的，且一个单元格只有一组数值数

Answer 1

举例说明一下

A1 å•å…ƒæ ¼æ˜¯ ABA185

A2  å•å…ƒæ ¼æ˜¯ AS21

还是

A1：ABA185ABA

A2：AS21A

请说明清楚是文本+数字 è¿˜æ˜¯æ–‡æœ¬+数字+文本

Answer 2

这个肯定用正则了。点击图片看动画效果。

Sub text()
   Dim reg As Object, i%, arr 
   Set reg = CreateObject("vbscript.regexp")
   arr = Range("a1:a10")
   With reg
       .Global = True
       .Pattern = "[^0-9]"
       For Each sh In arr
           i = i + 1
           arr(i, 1) = .Replace(sh, "")
       Next
   End With
   [b1].Resize(UBound(arr), 1) = arr
   Set reg = Nothing
End Sub

Answer 3

文件发过来
xtx98@qq.com

Answer 4

要看具体的文件！没有文件写什么代码！