按下ALTF11,菜单:插入-模块,然后复制下面代码假设你在A1中输入字符串,那就在B1中输入=ORDER(A1)这样B1就是你要得到的数字
PublicFunctionorder(ByValmAsString)AsString
DimsAsString,ddAsBoolean,xxAsInteger
dd=False
Fori=1ToLen(m)
s=Left(m,i)
IfInStr(i,m,s)=1Then
dd=True
xx=i
Else
ExitFor
EndIf
Next
IfddThen
order=Mid(m,xx1,Len(m))
Else
order=m
EndIf
EndFunction |