出个区域转换的老问题给大家练练兵

大型服务器

=OFFSET($A$1,IF(MOD(ROW(),8)=0,8,MOD(ROW(),8))-1,INT((ROW()+7)/8)-1) 参考shuyee的公式

[此贴子已经被作者于2003-9-26 14:03:47编辑过]

shangyu

以下是引用chenjun在2003-9-26 13:53:00的发言： 不错，你也是数组高手了。

只是太冗长了，怪吓人的

youshow

OTLmWqaq.rar (2.8 KB, 下载次数: 70)

2003-9-26 16:07 上传

点击文件名下载附件
出个区域转换的老问题给大家练练兵

不过没有考虑重复于非重复问题，那可太难了

shuyee

看看我的方法: 定义X=SMALL((COLUMN($A$1:$C$8)&ROW($A$1:$C$8))*1,ROW()) 把行和列组成一个数 再还原=INDIRECT("R"&RIGHT(X,1)&"C"&LEFT(X,LEN(X)-1),FALSE) 考虑到行数会超,所以先取列数. 需要注意的是,如果行号和列号皆无迹可询时,可用text规定格式,并按定长截取. 定义xx=small((text(column(区域),"00")&text(row(区域),"00"))*1,row()) =indirect("R"&right(xx,2)&"C"&left(xx,2),false) 哈哈,怎么样?

风中飘雪

以下是引用youshow在2003-9-26 16:08:00的发言： 不过没有考虑重复于非重复问题，那可太难了

如果用index的话也可以这样，思路是一样的： {=INDEX(data,MOD(ROW(INDIRECT("1:"&ROWS(data)*COLUMNS(data)))-1,8)+1,INT((ROW(INDIRECT("1:"&ROWS(data)*COLUMNS(data)))-1)/8)+1)}

[此贴子已经被作者于2003-9-26 17:08:11编辑过]

shuyee

=indirect("R"&right(xx,2)&"C"&left(xx,2),false) 有误,修正为=indirect("R"&right(xx,2)&"C"&left(xx,len(x)-2),false)

风中飘雪

以下是引用shuyee在2003-9-26 16:45:00的发言： 看看我的方法: 定义X=SMALL((COLUMN($A$1:$C$8)&ROW($A$1:$C$8))*1,ROW()) 把行和列组成一个数 再还原=INDIRECT("R"&RIGHT(X,1)&"C"&LEFT(X,LEN(X)-1),FALSE) 考虑到行数会超,所以先取列数. 需要注意的是,如果行号和列号皆无迹可询时,可用text规定格式,并按定长截取. 定义xx=small((text(column(区域),"00")&text(row(区域),"00"))*1,row()) =indirect("R"&right(xx,2)&"C"&left(xx,2),false) 哈哈,怎么样?

没考虑到行数或列数有多位数，如果是一个很大的区域的情况。 Text得到的结果只是一个假象，不能用于计算。

风中飘雪

以下是引用shangyu在2003-9-26 13:17:00的发言： 这样符合要求吗？ CHENJUN出的也太难了

在你这一解法中xxx的定义可以再简化一下，如下： xxx=MOD(ROW(INDIRECT("1:"&ROWS(data)*COLUMNS(data)))-1,8)+1+(INT((ROW(INDIRECT("1:"&ROWS(data)*COLUMNS(data)))-1)/8)+1)/10000

shangyu

以下是引用风中飘雪在2003-9-26 17:53:00的发言： 在你这一解法中xxx的定义可以再简化一下，如下： xxx=MOD(ROW(INDIRECT("1:"&ROWS(data)*COLUMNS(data)))-1,8)+1+(INT((ROW(INDIRECT("1:"&ROWS(data)*COLUMNS(data)))-1)/8)+1)/10000

是呀，罗嗦得我都看不明白了，当时怎么会做的这么复杂

风中飘雪

shangyu的解法已达到了我的目的，你可以再想求重复数据的写法。