[开_114][已结贴]练习题2题,看看大家使用函数的新进展(答案在7楼)

wshcw

练习题2题:
老掉牙了,看看谁能让它长出新牙来?呵呵!


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

ringdove

第一题看了以前的答案，好难，答案都没怎么看明白，明天白天继续学习一下

sunya_0529

用自定义函数容易多了，普通公式想得脑瓜子疼:)

=biaoda("un-.-ks-0.3659yu","\-\D|\.\D|[^(.|\-|\d)]")
结果：-0.3659


Option Explicit

Function biaoda(strTemp, strExp)
Dim objRegExp
Set objRegExp = CreateObject("VBScript.RegExp")
With objRegExp
.Pattern = strExp
.IgnoreCase = True
.Global = True
biaoda = .Replace(strTemp, "")
End With
Set objRegExp = Nothing
End Function

linpansheng

用正则表达式弄出来，汗死，人家要求用函数啊

sunya_0529

自定义函数不也是函数嘛，嘿嘿~~

当然，在这里不能装傻的，在下使用普通函数的功力还不够，只能等着学习了~~

wshcw

没人做题,结贴:
取数(与以往公式相比有所突破和创新):
=RIGHT(LEFT(A2,MATCH(1,-MID(0&A2,COLUMN(2:2),1))-1),COUNT(-MID(A2&"a1",COLUMN(2:2),2)))
数字倒置(公式四个任选),但总觉得还是很长,没找到简化办法:
=REPLACE(SUBSTITUTE(MID(SUM((0&MID(A2&1,ROW($1:20),1))*10^ROW($2:21))%,2,14),".",),1+LEN(A2)-COUNT(FIND(".",A2))*FIND(".",A2&"."),1,IF(COUNT(FIND(".",A2)),".",))
=LEFT(REPLACE(SUBSTITUTE(MID(SUM((0&MID(A2&1,ROW($C$1:$C20),1))*10^ROW($C$2:$C21))%,2,14),".",),TEXT(1+LEN(A2)-FIND(".",A2&"."),"0;;!99"),1,"."),LEN(A2))
=REPLACE(MID(SUM((0&MID(SUBSTITUTE(A2&1,".",),ROW($1:10),1))*10^ROW($2:11))%,2,14),MAX(LEN(A2)-FIND(".",A2&".")+1,1),,IF(COUNT(FIND(".",A2)),".",))
=LEFT(REPLACE(SUBSTITUTE(MID(SUM((0&MID(A2&1,ROW($1:20),1))*10^ROW($2:21))%,2,14),".",),TEXT(1+LEN(A2)-FIND(".",A2&"."),"0;;99"),1,"."),LEN(A2))

wuzhouxing

学习大理的公式

geraldel

超难吧。。。公式太复杂。

jsxjd

定位数值的末尾和倍数比较巧妙，但存在缺陷，“--+---00000”也会匹配，另不支持科学计数

alan57

1. =MAP(A2:A7,LAMBDA(x,LET(_a,IFERROR(TEXTSPLIT(TEXTSPLIT(x,,CHAR(ROW($A65:$IV122)),1),,CHAR(ROW($A40000:$IV60000)),1),""),IF(ROWS(_a)=1,_a,TOCOL(--_a,3)))))

复制代码

1. =MAP(A19:A24,LAMBDA(x,IF(x="","",CONCAT(LEFT(RIGHT(x,SEQUENCE(LEN(x))))))))

复制代码