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

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

2023-12-19 05:45:57

有4个网友回答

网友（1）：

举例说明一下

A1 单元格是 ABA185

A2 单元格是 AS21

还是

A1：ABA185ABA

A2：AS21A

请说明清楚是文本+数字还是文本+数字+文本

网友（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

网友（3）：

文件发过来
xtx98@qq.com

网友（4）：

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