用VBA如何排序数组？

Zamyi

狼版的当13改为1时不能排序，再次简省，一句完成：
Sub macro1()
[a1] =Mid(Replace(Replace(Union([a1], Range(Join(["A" & (SMALL(100+{3,2,4,5,7,9,10,12,11,13,19,21},column(A1:l1))*column(A1:l1)^0)], ","))).Address(0, 0), "A1", ""), ":", "-"), 2)
End Sub

[ 本帖最后由 Zamyi 于 2009-5-23 16:33 编辑 ]

贝妮

原帖由 Zamyi 于 2009-5-23 08:45 发表
狼版的当13改为1时不能排序，再次简省，一句完成：
Sub macro1()
[a1] =Mid(Replace(Replace(Union([a1], Range(Join(["A" & (SMALL(100+{3,2,4,5,7,9,10,12,11,13,19,21},column(A1:l1))*column(A1:l1)^0)], ",") ...

太神奇，没看懂，大侠能否解释下？

foxlandy

原帖由 Zamyi 于 2009-5-23 08:45 发表
狼版的当13改为1时不能排序，再次简省，一句完成：
Sub macro1()
[a1] =Mid(Replace(Replace(Union([a1], Range(Join(["A" & (SMALL(100+{3,2,4,5,7,9,10,12,11,13,19,21},column(A1:l1))*column(A1:l1)^0)], ",") ...

呵呵,代码是非常的简洁,但是涉及到使用EXCEL内部功能.担心会出现兼容性问题.
原理是把数组内数字赋值给A1XX的单元格并形成一个多选区域,(关键就在这里,EXCEL本身自动会合并相邻区域的地址.)
再读取区域地址然后把不需要的部分替代掉.

zldccmx

原帖由 Zamyi 于 2009-5-23 08:45 发表
狼版的当13改为1时不能排序，再次简省，一句完成：
Sub macro1()
[a1] =Mid(Replace(Replace(Union([a1], Range(Join(["A" & (SMALL(100+{3,2,4,5,7,9,10,12,11,13,19,21},column(A1:l1))*column(A1:l1)^0)], ",") ...

狼版的方法与你的方法均值得借鉴。
狼版只是在教我们如何活用工作表自身的一些功能，而且前面也说了

只是针对本例

。
拿你的办法来说吧，当数组中在在负数，或者是>=100呢，一样会出错。
老朽以为，所有取巧的办法都是不严谨的，就事论事可以，普遍应用就得慎重了。

zldccmx

[a1] = Mid(Replace(Replace(Union([a1], Range(Join(["A" & (SMALL(100+{3,2,4,5,7,9,10,12,11,13,-1,100},column(A1:l1))*column(A1:l1)^0)], ","))).Address(0, 0), "A1", ""), ":", "-"), 2)
返回的结果就是： A99,02-05,07,09-13,A200  显然也是与初衷不符的

[ 本帖最后由 zldccmx 于 2009-5-25 18:22 编辑 ]

zldccmx

老朽就事论事，不针对任何人。

狼版一直是老朽的偶像和仰望对象，老朽这一辈子也追不上他!
Zamyi 也是后起之秀，水平绝对是老朽之上。
这一点老朽始终承认。 绝对是真心话

lbpp

狼版的方法其实是一种排序的方法，叫计数排序法，这个排序方法可以使用数组来实现，狼版在这里利用单元格来充当数组，方法的确比较巧妙。
下面的链接里有一个计数法排序，速度很非常快。有兴趣的朋友可以看一下。

http://club.excelhome.net/attach ... 3f623f&t=1243254114

花香九月

好高深啊，我看不懂

Zamyi

狼版的方法与你的方法均值得借鉴。
狼版只是在教我们如何活用工作表自身的一些功能，而且前面也说了。
拿你的办法来说吧，当数组中在在负数，或者是>=100呢，一样会出错。
老朽以为，所有取巧的办法都是不严谨 ... [/quote]
楼主这个可是“这个数组是产品的分切编号”，一般100以内足矣，又哪来的负数？老朽好似是针对我头像来着吧？老朽的水平也是有眼共睹的，就别谦了。

zldccmx

原帖由 zldccmx 于 2009-5-25 18:20 发表
老朽就事论事，不针对任何人。
绝对是真心话

Zamyi,老朽绝对不针对任何人！同在EH，算是一“家”人，仅仅是切磋技艺而已。

我还是那句话：

任何投机取巧的方法都是局限性的，可以参考借鉴，有选择性的使用。

我也是善意提醒你：你发现了狼版代码的“局限性”，却忽略了检查自己代码的“局限性”。