双条件排序

张雄友

双条件排序，将排序条件放入 array 中，而不是引用单元格（附件放在单元是是为了说明排序条件）：
排序条件黄色单元格（车间，组别）2G,C是排在最后的。     

doitbest

用公式生成辅助列E列，再排序即可。如用VBA，思路与数组公式相同

feiren228

.....

1. Sub test()
   
2.     Dim arr, brr, brr1, crr, d, i&, ii&, j&, n&, k
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     Set d1 = CreateObject("scripting.dictionary")
   
5.     arr = Range("B3:D" & Cells(Rows.Count, 2).End(xlUp).Row) '确定数组范围
   
6.     brr = Array("3A", "3B", "3C", "3D", "3E", "3F", "2G", "2H", "2J", "3G", "3H", "3J") '指定条件，但不知指定第二个条件“组别”？？？？
   
7.     brr1 = Array("A", "B", "C")
   
8.     ReDim crr(1 To UBound(arr), 1 To UBound(arr, 2))
   
9.     For i = 0 To UBound(brr)
   
10.         For ii = 0 To UBound(brr1)
    
11.             d(brr(i) & brr1(ii)) = ""
    
12.         Next ii
    
13.     Next i
    
14.     For i = 1 To UBound(arr)
    
15.        k = i & "," & arr(i, 1) & arr(i, 2)
    
16.        d1(k) = i
    
17.     Next
    
18.     n = 0
    
19.     For Each k In d
    
20.         temp = Filter(d1.keys, k)
    
21.         For i = 0 To UBound(temp)
    
22.             n = n + 1
    
23.             For j = 1 To 3
    
24.                 crr(n, j) = arr(d1(temp(i)), j)
    
25.             Next j
    
26.         Next
    
27.     Next
    
28.     Range("M3").Resize(UBound(crr), UBound(crr, 2)) = crr
    
29. End Sub
    

复制代码

feiren228

...
双条件排序.rar (12.39 KB, 下载次数: 23)

2015-5-21 16:24 上传

点击文件名下载附件

bluexuemei

你这不就是按产量排序吗？

yjh_27

1. Sub aa()
   
2. ra = Range("b" & Rows.Count).End(xlUp).Row
   
3. arr = Range("b3:e" & ra)
   
4. For i = 1 To UBound(arr)
   
5.     arr(i, 4) = arr(i, 1) & arr(i, 2)
   
6. Next
   
7. 
   
8. rb = Range("t" & Rows.Count).End(xlUp).Row
   
9. brr = Range("t3:u" & rb)
   
10. For i = 1 To UBound(brr)
    
11.     brr(i, 1) = brr(i, 1) & brr(i, 2)
    
12. Next
    
13. 
    
14. crr = YjhSort(arr, "a", "4u0;1;1", , , , , , , brr)
    
15. Range("m3").Resize(UBound(crr), 3) = crr
    
16. 
    
17. End Sub
    

复制代码

yjh_27

自定义序列。

数组预处理（二列合并）

张雄友

feiren228 发表于 2015-5-21 16:24
...

与效果不符合。

张雄友

yjh_27 发表于 2015-5-21 16:53
自定义序列。

数组预处理（二列合并）

黄色单元格的排序条件（T3：U38）能不能写入代码中去？因为实际操作时，工作表中是没有的，附件只是为了说明而列出来的。

yjh_27

张雄友 发表于 2015-5-21 18:42
黄色单元格的排序条件（T3：U38）能不能写入代码中去？因为实际操作时，工作表中是没有的，附件只是为了 ...

不能，因为你的排序条件无规律可言。
工作表中是没有的：可以在其他表中指定，否则需在代码生成（难度大）