[开_110]【已结贴】取文字中的数字

wshcw

这是EH里还没有完美解决的题，现转作竞赛题，希望大家积极参与。
要求:
七不要
1、要函数公式，不要VBA
2、不要定义名称
3、不要设置单元格格式
4、结果不要科学计数
5、数字结果以0开头的，不要丢0
6、公式长度不要突破180字
7、无数字结果为空，不要出错误或显示数字
奖励条件
180字以下建议加1点技术分
160字以下建议加2点技术分
附论坛原贴地址:
求助!EXCEL数字提取(摘自9楼附件)

[ 本帖最后由 wshcw 于 2009-6-9 14:00 编辑 ]

bosshawk

这个题目够难的，我交一份答卷，不过有几个地方过不了关。有几点讨论一下：
1. 千位分隔符（逗号）要不要考虑
2. 分数的情形呢（带斜杠，如1/2）
3. 我这个目前不能处理的情形（各种符号是个大问题）：
　　有两个或多个数字或者符号　.-%$　出现
　　单独出现的符号　.-%$
　　全角数字或符号　.-%$
　　公式太长了，280多字符，要能定义几个名称就好了
取文字中的数字（竞赛题）2007.rar (9.62 KB, 下载次数: 56)

2009-3-17 18:55 上传

点击文件名下载附件

wshcw

原帖由 bosshawk 于 2009-3-17 18:55 发表
这个题目够难的，我交一份答卷，不过有几个地方过不了关。有几点讨论一下：
1. 千位分隔符（逗号）要不要考虑
2. 分数的情形呢（带斜杠，如1/2）
　　有两 ...

1.2.不用考虑,则要考虑要增加公式长度(其中,有一个公式提取分数不影响公式长度)

icydefender

嘿嘿 题目都出到我家乡啦

wshcw

这么长时间都无人答题,我只能自问自答,取文字中的數字公式,仅大家参考:
一个$的公式:
171字符
=LEFT("-$",COUNT(FIND({"$","-","-$"}&ROW($1:$10)-1,A2)))&MID(A2,MIN(FIND(ROW($1:$10)-1,A2&56^7)),LEN(LOOKUP(,-(1&MID(A2,MIN(FIND(ROW($1:$10)-1,A2&56^7)),ROW($1:$20)))))-2)
167字符
=MID(LEFT(A2,MATCH(1,MMULT(-ISERR(FIND(MID(A2&"0w",ROW($1:65)+{0,1},1),".％"&5^19)),{1;-1}),)),MIN(FIND({"","-","-$"}&ROW($1:$10)-1,A2&{"","-","-$"}&ROW($1:$10)-1)),99)
有两个$的公式:
187字符
=CHOOSE(COUNT(,FIND({"-","$","$","-$"}&ROW($1:$10)-1,A2)),,"-","$","-$")&MID(A2,MIN(FIND(ROW($1:$10)-1,A2&56^7)),LEN(LOOKUP(,-(1&MID(A2,MIN(FIND(ROW($1:$10)-1,A2&56^7)),ROW($1:$20)))))-2)
175字符
=MID(LEFT(A2,MATCH(1,MMULT(-ISERR(FIND(MID(A2&"0w",ROW($1:65)+{0,1},1),".％"&5^19)),{1;-1}),)),MIN(FIND({"","-","-$","$"}&ROW($1:$10)-1,A2&{"","-","-$","$"}&ROW($1:$10)-1)),99)

fengbin7506

下载学习一下。

wy88

不得了,看得目瞪只呆

specialfire

真是些很牛逼的人物啦
呵呵

pitygirl

不是有点晕，呵呵，

独孤

真是不可思议，高