如题所述
a="ade125qq"
s=len(a)
m=""
for i= 1 to s
n=mid(i,a,1)
if isnumeric(n)=true then
m=m&n
end if
next i
debug print m 'm就是提取的所有数字
定义之类的请自行处理。
s=len(a)
m=""
for i= 1 to s
n=mid(i,a,1)
if isnumeric(n)=true then
m=m&n
end if
next i
debug print m 'm就是提取的所有数字
定义之类的请自行处理。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-11-28
vba可以调用所有的excel函数，前面加 Application 就可以了
right、left、mid都可以
当然上面三个函数vba本身也有，直接用就可以了。
要注意的是有些函数vba与excel中写法一致，但用法有些差异。
right、left、mid都可以
当然上面三个函数vba本身也有，直接用就可以了。
要注意的是有些函数vba与excel中写法一致，但用法有些差异。
第2个回答 2019-09-16
a="ade125qq"
s=len(a)
m=""
for i= 1 to s
n=mid(a,i,1)
if isnumeric(n)=true then
m=m&n
end if
next
msgbox m
这是hwfh11回答的纠正版
s=len(a)
m=""
for i= 1 to s
n=mid(a,i,1)
if isnumeric(n)=true then
m=m&n
end if
next
msgbox m
这是hwfh11回答的纠正版
第3个回答 推荐于2018-04-30
mid函数参数位置前两个颠倒了本回答被网友采纳
