[已解决]如何从字符串中提取非数字？

happytiger2012

如何从字符串中提取非数字，别人说用通则表达式，可我不会，哪位大侠指点下？

如“fjfdsalfjd9f890ufslfd8fdsalfk8”

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-22 10:48

1. Sub 正则去数字()
   
2.     Dim objRegExp As Object
   
3.     Dim strTest$
   
4.     Dim i As Long, arr
   
5.     Set objRegExp = CreateObject("VBScript.regExp")
   
6.     strTest = "fjfdsalfjd9f890ufslfd8fdsalfk8"
   
7.     With objRegExp
   
8.         .Global = True
   
9.         .Pattern = "\d+"
   
10.             If .test(strTest) Then
    
11.                 Debug.Print .Replace(strTest, "")
    
12.             End If
    
13.     End With
    
14.     Set objRegExp = Nothing
    
15. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

直接用正则，把数字全替换掉，就是字符了。

hwc2ycy

1. Sub 正则去数字()
   
2.     Dim objRegExp As Object
   
3.     Dim strTest$
   
4.     Dim i As Long, arr
   
5.     Set objRegExp = CreateObject("VBScript.regExp")
   
6.     strTest = "fjfdsalfjd9f890ufslfd8fdsalfk8"
   
7.     With objRegExp
   
8.         .Global = True
   
9.         .Pattern = "\d+"
   
10.             If .test(strTest) Then
    
11.                 Debug.Print .Replace(strTest, "")
    
12.             End If
    
13.     End With
    
14.     Set objRegExp = Nothing
    
15. End Sub

复制代码

hwc2ycy

结果输出在立即窗口了，相当于直接替换所有的数字。

lyf7276

Sub ghmjxanu()
Dim xanu As Object
       Set xanu = CreateObject("VBScript.RegExp")

xanu.Global = True
pbwt = Range("a2")
xanu.Pattern = "[0-9]+"
n = xanu.Replace(pbwt, "")

MsgBox n
End Sub
好不容易做出来了，老师早就做好了呀，厚着脸跟个贴，老师帮我看下错了没有

查找替换，把0——9全部替换掉就哦了

hunter4162003

忘记正则了，又学习了一会，嗯，我也记下