Function fenli(rngmix As Range)

Function fenli(rngmix As Range)
For i = 1 To Len(rngmix.Value)
mystr = Mid(rngmix.Value, i, 1)
If IsNumeric(mystr) Then
shuzi = shuzi & mystr
Else
hanzi = hanzi & mystr
End If
Next
fenli = shuzi
End Function