关于用SCRIPT排序数组问题

AVEL

我做了个附件，都是将一列数值从小到大用“、”连接，写入sheet2的[A1]单元格

有一个是用Script排序
还有一个是我借助辅助列排序的

麻烦大家看看 用Script排序 似乎没有实现。是什么原因呢

我的WINRAR版本为3.9
如果您的版本低的话，会造成附件打不开，还请下载5楼的附件。

[ 本帖最后由 AVEL 于 2010-5-6 18:38 编辑 ]

AVEL

还可以参看此帖：
在sheet1的一列中取不重复的值，读取到sheet2的一个单元格中，并用顿号隔开
http://club.excelhome.net/thread-570859-1-1.html

zldccmx

附件有错误，无法打开xls文档

zldccmx

或许是俺的RAR版本低了(3.7x)

AVEL

-_-|||。。。

我的是3.9的。
麻烦将该附件的后缀名修改一下 改成XLS

zldccmx

JAVA　不懂
JAVA有数组直接排序的函数不？

lb_bn

js的sort是按1,11,12,2这样的方式排序的。

lb_bn

这个是从小到大的数字排序例子：

1. Sub bbb()
   
2.    
   
3.     ar1 = [a1:b12].Value
   
4.     Set js = CreateObject("scriptcontrol")
   
5.     js.Language = "javascript"
   
6.     js.addcode "function sortNumber(a, b){return a-b;}function aa(bb){aa=bb.toArray();return aa.sort(sortNumber);}"
   
7.     MsgBox js.codeobject.aa(ar1)
   
8.    
   
9. End Sub

复制代码

lb_bn

随机乱序

1. 
   
2. Sub bbb()
   
3.    
   
4.     ar1 = [a1:b12].Value
   
5.     Set js = CreateObject("scriptcontrol")
   
6.     js.Language = "javascript"
   
7.     js.AddCode "function sortRandom(){return Math.random()>0.5?-1:1;}function aa(bb){aa=bb.toArray();return aa.sort(sortRandom);}"
   
8.     MsgBox js.codeobject.aa(ar1)
   
9.    
   
10. End Sub

复制代码

AVEL

哦 因为不懂JAVA 所以才有这么多疑问。
呵呵 那我还是先学好基本的VBA吧，
java等以后有机会再了解一下去。