排序

悲伤的小老头

张雄友 发表于 2016-7-19 21:04
你这种情况是建立在c列没有重复值的基础上的，如果是这样，用辅助列很容易实现。

出问题了。。请下载求助文件做个实例好吗！

悲伤的小老头

香川群子 发表于 2016-7-20 14:25
如果基准列都是数字，而且是标准的自然数序列，
那么可以直接定义一个数组即可。无需使用字典。这样速度 ...

大师，求实例！

香川群子

悲伤的小老头 发表于 2016-7-21 14:13
大师，求实例！

我看了你的测试附件，毫无排序的必要。只要把基准列复制n列即可得到你示例所需的结果。


如果你有实际需求，请你上真正的数据附件。进一步说明排序要求。

悲伤的小老头

香川群子 发表于 2016-7-21 14:31
我看了你的测试附件，毫无排序的必要。只要把基准列复制n列即可得到你示例所需的结果。

文件太大了，先传3000行。AE列排序成AF列那样，而A列到AD列随着AE列一起排序。谢谢香川裙子老师！
求助.rar (1.37 MB, 下载次数: 3)

2016-7-21 23:31 上传

点击文件名下载附件

香川群子

悲伤的小老头 发表于 2016-7-21 23:32
文件太大了，先传3000行。AE列排序成AF列那样，而A列到AD列随着AE列一起排序。谢谢香川裙子老师！

以最后1列AF列的乱序自然数为排序基准，
以倒数第2列AE列的值作为排序关键值排序。其余列不参与排序，只需跟随变化。

1. Sub test() 'by kagawa 2016/7/22
   
2.     Dim ar, br(), cr&(), i&, j&, m&, n&, r&, tms#
   
3.     tms = Timer
   
4. 
   
5.     ar = [a1].CurrentRegion '读取数据到数组ar
   
6.     m = UBound(ar): n = UBound(ar, 2) '最大行m、最大列n
   
7. 
   
8.     ReDim br(1 To m, 1 To n - 1), cr&(1 To m)
   
9.     '定义存放排序结果的数组br、以及排序参照值的数组cr
   
10. 
    
11.     For i = 1 To m '遍历各行整理排序参数
    
12.         r = ar(i, n): cr(r) = i '整理最后1列排序值对应的行序号，即排序结果存入数组cr
    
13.     Next
    
14.     '如 第1行排序基准值r=2361 最后排序结果应为对应第 i行=1
    
15. 
    
16.     For i = 1 To m '遍历各行进行排序
    
17.         r = cr(ar(i, n - 1)) '按cr记录索引返回实际排序对应值
    
18.         For j = 1 To n - 1 '把A列到AD列以及AE列一起移动到位即可
    
19.             br(r, j) = ar(i, j)
    
20.         Next
    
21.     Next
    
22.     '原理：如果某行值ar(i, n - 1)=2361、那么r = cr(ar(i, n - 1)) 将返回=1 表明本行排序结果=第1行
    
23. 
    
24.     MsgBox Format(Timer - tms, "0.000s") '排序整理完成
    
25.     [a1].Resize(m, n - 1) = br  '输出结果到工作表
    
26. End Sub
    

复制代码