如何奖一维数组元素连成字符串？

lichaobin

如：
　　在Ａ１中录入文本数字串：６４９７９７
Ｂ１＝数组公式：
=LOOKUP(TRANSPOSE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))*{1},{0,1,2,3,4,5,6,7,8,9},{"零","一","二","三","四","五","六","七","八","九"})

将数字串拆成中文字符的数组元素，但没法将数组连接成字符串，哪位高手支招？
限只在数组中用．不能用ＶＢＡ的ＪＩＯＮ．

[ 本帖最后由 lichaobin 于 2009-3-14 22:22 编辑 ]

mxqchina

用这个就可以了。

=TEXT(A1,"[dbnum1]0")

chiva22

=NUMBERSTRING(A1,3)

mxqchina

原帖由 chiva22 于 2009-3-14 23:54 发表
=NUMBERSTRING(A1,3)

学习了。

veobai

原帖由 mxqchina 于 2009-3-14 23:59 发表


学习了。

杆子哥，这是个需要加载的函数吧~

NumberString函数
NumberString函数可以方便的实现小写到大写的转化，而且有三个参数可以选择，分别符合中国人不同的大写方式，但不支持有上小数的数字的。 NumberString(1234567890,1) ＝ 一十二亿三千四百五十六万七千八百九十
NumberString(1234567890,2) ＝ 壹拾贰亿叁仟肆佰伍拾陆万柒仟捌佰玖拾
NumberString(1234567890,3) ＝ 一二三四五六七八九○

在某种程度上可以用TEXT函数将其功能实现~~

mxqchina

原帖由 veobai 于 2009-3-15 00:14 发表


杆子哥，这是个需要加载的函数吧~

NumberString函数
NumberString函数可以方便的实现小写到大写的转化，而且有三个参数可以选择，分别符合中国人不同的大写方式，但不支持有上小数的数字的。 NumberString(1 ...

谢谢提供信息。

我记得好像是隐藏的函数，不常用，只记得text的用法。

veobai

原帖由 lichaobin 于 2009-3-14 22:20 发表
如：
　　在Ａ１中录入文本数字串：６４９７９７
Ｂ１＝数组公式：
=LOOKUP(TRANSPOSE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))*{1},{0,1,2,3,4,5,6,7,8,9},{"零","一","二","三","四","五","六","七","八","九"} ...

刚才大家使用了其他的函数实现了楼主使用LOOKUP函数所希望达到的效果~~

对于将{"六","四","九","七","九","七"}这个数组连接成“六四九七九七”确实有点困难

最笨的方式是使用INDEX函数依次取出每个字符，然后用&连接~~

veobai

原帖由 mxqchina 于 2009-3-15 00:19 发表


谢谢提供信息。

我记得好像是隐藏的函数，不常用，只记得text的用法。

对，差不多是这个样子的~~
基本上大家都用TEXT函数了，更加灵活~

lichaobin

NumberString函能做到变成中文，但我只有的是数字中文．
就是数组元素连接了．
哈哈，没想到的是：
=TEXT(A1,"[dbnum1]0")
竟然可以．佩服２楼的用法．不过文本串长的话，也没用．
如：12346546879679876464679676763464646464
一二三四六五四六八七九六七九八○○○○○○○○○○○○○○○○○○○○○○○

[ 本帖最后由 lichaobin 于 2009-3-15 13:47 编辑 ]

mxqchina

原帖由 lichaobin 于 2009-3-15 13:44 发表
NumberString函能做到变成中文，但我只有的是数字中文．
就是数组元素连接了．
哈哈，没想到的是：
=TEXT(A1,"[dbnum1]0")
竟然可以．佩服２楼的用法．不过文本串长的话，也没用．
如：12346546879679876464679 ...

可以间接方法：（位数再多的话，多连几个。。。）

=TEXT(MID(A1,1,15),"[dbnum1]0")&TEXT(MID(A1,16,15),"[dbnum1]0")&TEXT(MID(A1,31,15),"[dbnum1]0")