多条件"中国式排序"

china047

各位老师:


           如何用字典与数组的方式,按多个条件(A列的仓库+B列的编号为条件) 对C列的日期进行"中国式排序"例如:涂黄颜色的部分,先谢过各位老师了!
中国式排名.rar (70.52 KB, 下载次数: 16)

2023-5-29 10:32 上传

点击文件名下载附件

fanyoulin

单元格排序就是一行代码的事，为什么要用字典和数组？

china047

fanyoulin 发表于 2023-5-29 10:35
单元格排序就是一行代码的事，为什么要用字典和数组？

要在D列放入排序结果,而且真实数据会有几万行,普通排序速度会很慢!

fanyoulin

china047 发表于 2023-5-29 11:01
要在D列放入排序结果,而且真实数据会有几万行,普通排序速度会很慢!

单元格排序又不会删除你的数据，所以我看不懂你说的“要在D列放入排序结果”是什么意思？难道D列是指排序的位次？另外单元格排序就是最快的，数组和字典尤其字典是统计数据用的，没见谁用它来排序。

吴中泉

标题是中国式排序，附件名又是中国式排名，根据你模拟的数据，我猜应该是排名

zxsea_7426

micch

用单元格排序确实方便，所以就不用字典和代码了

1. Sub Main()
   
2.     '// 中国式排名，排名数字不间断，同值同名
   
3.     With Sheet1
   
4.         r = .Cells(.Rows.Count, 1).End(3).Row
   
5.         .Range("d2:e" & r).ClearContents
   
6.         With .Range("a1:e" & r)
   
7.         ar = .Value
   
8.         For i = 1 To r
   
9.             ar(i, 5) = i
   
10.         Next
    
11.         .Value = ar
    
12.         .Sort .Cells(1, 1), xlAscending, .Cells(1, 2), , xlAscending, .Cells(1, 3), xlDescending, xlYes
    
13.         ar = .Value
    
14.         For i = 2 To r
    
15.             x = ar(i, 1) & "_" & ar(i, 2)
    
16.             If x = ar(i - 1, 1) & "_" & ar(i - 1, 2) Then
    
17.                     If ar(i, 3) = ar(i - 1, 3) Then
    
18.                             ar(i, 4) = ar(i - 1, 4)
    
19.                     Else
    
20.                             ar(i, 4) = ar(i - 1, 4) + 1
    
21.                     End If
    
22.             Else
    
23.                             ar(i, 4) = 1
    
24.             End If
    
25.         Next
    
26.         .Value = ar
    
27.         .Sort .Cells(1, 5), xlAscending, , , , , , xlYes
    
28.         End With
    
29.     End With
    
30. End Sub
    

复制代码

micch

Hontyu

..........

zxsea_7426

micch 发表于 2023-5-29 13:48

你这辅助列最后不清除吗？