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
