1、有字符串“dsafasf234234hdhs1231“怎么提取其中所有的数字呢或者是字符呢?
2、同时按键”alt+f11&孥恶膈茯quot;，弹出microsoft visual basic 编辑界面，在工作表列表中，右键，选择“模块”
3、在弹出的界面中 输入代码Function tqsz(tqs As String)D坡纠课柩im str1 As String荏鱿胫协n = Len(tqs)For i = 1 To nIf Mid(tqs, i, 1) >= 0 And Mid(tqs, i, 1) <= 9 Then strss = strss + Mid(tqs, i, 1)Nexttqsz = strssEnd Function
4、返回工作表编辑界面，如图所示输入
5、检查结果是否正确
6、提取字符的方法Function t孥恶膈茯qsz(tqs As String)Dim str1 As Stringn = Len(tqs)For i = 1 To nIf 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)Nexttqsz = strssEnd Function
