如何提取字符串中所有的数字

1、有字符串“dsafasf234234hdhs1231“怎么提取其中所有的数字呢或者是字符呢?

2、同时按键”alt+f11"，弹出microsoft  visual basic 编辑界面，在工作表列表中，右键，选择“模块”

3、在弹出的界面中 输入代码

Function tqsz(tqs As String)

Dim str1 As String

n = Len(tqs)

For i = 1 To n

If Mid(tqs, i, 1) >= 0 And Mid(tqs, i, 1) <= 9 Then strss = strss + Mid(tqs, i, 1)

Next

tqsz = strss

End Function

4、返回工作表编辑界面，如图所示输入

5、检查结果是否正确

6、提取字符的方法

Function tqsz(tqs As String)

Dim str1 As String

n = Len(tqs)

For i = 1 To n

If Mid(tqs, i, 1) >= "a" And Mid(tqs, i, 1) <= "z" Or Mid(tqs, i, 1) >= "A" And Mid(tqs, i, 1) <= "Z" Then strss = strss + Mid(tqs, i, 1)

Next

tqsz = strss

End Function