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

jacklee

列如：asd235df           找出235    asddf

          xs124bbef32      找出12432    xsbbef

         123zse1d2f

       .......

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

[此贴子已经被gouweicao78于2008-7-23 16:29:14编辑过]

laoq123456

我认为比较麻烦，看有没有简便的先。做个句号..

冻豆腐

如果你能接受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

gouweicao78

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

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开始。

[此贴子已经被作者于2008-7-15 20:20:30编辑过]

lookice

循环引用 ，用得秒！！

leifeishuqin

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

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开始

gouweicao78

原帖由 leifeishuqin 于 2009-2-17 20:09 发表
来个“循环引用”的另类解法：

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

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

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

4、B2输入=S ...

不知道您把别人的话重述一遍有什么意义。

ggsmart

原帖由 gouweicao78 于 2008-7-15 20:15 发表
来个“循环引用”的另类解法：1、设置工具》选项》重新计算》迭代次数设置为12、A2是需要提取的字符串（注意，只包含数字和小写字母）3、B1输入=MOD(A1,10)，C1输入=CHAR(96+MOD(A1,26))4、B2输入=SUBSTITUTE(IF($A$ ...

第一次接触循环引用，受教

coolcoldwind

原帖由 gouweicao78 于 2008-7-15 20:15 发表
来个“循环引用”的另类解法：1、设置工具》选项》重新计算》迭代次数设置为12、A2是需要提取的字符串（注意，只包含数字和小写字母）3、B1输入=MOD(A1,10)，C1输入=CHAR(96+MOD(A1,26))4、B2输入=SUBSTITUTE(IF($A$ ...

好象如果有中文或其他字符，版主的办法无效啊！我试过很多次了，无法单独得到数字。

lwwcom

B1=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,1,""),2,""),3,""),4,""),5,""),6,""),7,""),8,"")
C1=SUBSTITUTE(SUBSTITUTE(B1,0,""),9,"")
以上是替换数字，留字符
这是最笨的办法了
SUBSTITUTE只能连续替换8次 超过公式就不成立！ 所以用了辅助列
只留数字的还没有想好。
如果一个个的替换要出人命的

[ 本帖最后由 lwwcom 于 2010-7-9 12:53 编辑 ]