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

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

2024-11-10 06:29:47

推荐回答（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）：

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