分离数字、字母、汉字，大写人民币转阿拉伯（gouweicao78）

列如：asd235df           找出235    asddf

          xs124bbef32      找出12432    xsbbef

         123zse1d2f

       .......

没有规律的数据中找出数字和字母

如果你能接受vb自定义函数的话，就请复制下面代码

Function EXTRACHARACTER(Str, n)
Dim TempCharacter As String, i As Integer
TempCharacter = ""
If n = 0 Then
    For i = 1 To Len(Str)
        If Asc(Mid(Str, i, 1)) >= 48 And Asc(Mid(Str, i, 1)) <= 57 Then
            TempCharacter = TempCharacter & Mid(Str, i, 1)
        End If
    Next i
Else
    For i = 1 To Len(Str)
        If Asc(Mid(Str, i, 1)) < 48 Or Asc(Mid(Str, i, 1)) > 57 Then
            TempCharacter = TempCharacter & Mid(Str, i, 1)
        End If
    Next i
End If
EXTRACHARACTER = TempCharacter
End Function

来个“循环引用”的另类解法：

1、设置工具》选项》重新计算》迭代次数设置为1

2、A2是需要提取的字符串（注意，只包含数字和小写字母）

3、B1输入=MOD(A1,10)，C1输入=CHAR(96+MOD(A1,26))

4、B2输入=SUBSTITUTE(IF($A$1=1,$A2,B2),B$1,)，右拖到C2

5、在A1输入=A1+1，回车

6、按住F9不放至A1数字超过26，则B2、C2分别得到字母、数字。

如果A2包含其它字符（汉字、英文大小写等情况通用），只想提取数字：

C2=SUBSTITUTE(IF($A$1=1,$A2,C2),IF(ISERR(-MID(A2,A1,1)),MID(A2,A1,1),),)

然后回到第5步使得A1从1开始。

循环引用 ，用得秒！！