双条件排序

张雄友 · 发表于 2015-5-21 18:52

yjh_27 发表于 2015-5-21 18:47
不能，因为你的排序条件无规律可言。
工作表中是没有的：可以在其他表中指定，否则需在代码生成（难度大 ...

YjhSort(arr, "a", "4u0;1;1", , , , , , , brr) 红色代码是什么意思？

yjh_27 · 发表于 2015-5-21 18:59

4 对arr4列排序
u0; 自定义序列，使用参数10数组，按相等匹配
1; 自定义序列为参数10数组的第1列
1 不在自定义序列的排除，输出数组行数变

详见模块2说明

张雄友 · 发表于 2015-5-21 19:04

yjh_27 发表于 2015-5-21 18:59
4 对arr4列排序
u0; 自定义序列，使用参数10数组，按相等匹配
1; 自定义序列为参数10数组的第 ...

是否这样做？？？

yjh_27 · 发表于 2015-5-21 19:13

张雄友发表于 2015-5-21 19:04
是否这样做？？？

是这样的。

可参照我的主贴
多Key数组排序(分类、统计、重复处理)-自定义函数
http://club.excelhome.net/thread-1090007-1-1.html
(出处: ExcelHome技术论坛)

feiren228 · 发表于 2015-5-22 08:27

张雄友发表于 2015-5-21 18:12
与效果不符合。

我加了几组重复数据，请仔细核对下。

张雄友 · 发表于 2015-5-22 12:59

2gc是排在最后的哦……

张雄友 · 发表于 2015-5-22 18:12

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

2GC 是放在最后的，的确不符。

feiren228 · 发表于 2015-5-25 08:18

张雄友发表于 2015-5-22 18:12
2GC 是放在最后的，的确不符。

没注意2GC这个条件，中间加个判断条件就可以了

feiren228 · 发表于 2015-5-25 08:23

张雄友发表于 2015-5-22 18:12
2GC 是放在最后的，的确不符。

Sub test()
Dim arr, brr, brr1, crr, d, i&, ii&, j&, n&, k
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
arr = Range("B3:D" & Cells(Rows.Count, 2).End(xlUp).Row) '确定数组范围
brr = Array("3A", "3B", "3C", "3D", "3E", "3F", "2G", "2H", "2J", "3G", "3H", "3J") '指定条件，但不知指定第二个条件“组别”？？？？
brr1 = Array("A", "B", "C")
ReDim crr(1 To UBound(arr), 1 To UBound(arr, 2))
For i = 0 To UBound(brr)
For ii = 0 To UBound(brr1)
If brr(i) & brr1(ii) <> "2GC" Then d(brr(i) & brr1(ii)) = ""
Next ii
Next i
d("2GC") = ""
For i = 1 To UBound(arr)
k = i & "," & arr(i, 1) & arr(i, 2)
d1(k) = i
Next
n = 0
For Each k In d
temp = Filter(d1.keys, k)
For i = 0 To UBound(temp)
n = n + 1
For j = 1 To 3
crr(n, j) = arr(d1(temp(i)), j)
Next j
Next
Next
Range("M3").Resize(1000, 3) = ""
Range("M3").Resize(UBound(crr), UBound(crr, 2)) = crr
End Sub
请测试》》》

复制代码

张雄友 · 发表于 2015-5-25 12:53

feiren228 发表于 2015-5-25 08:18
没注意2GC这个条件，中间加个判断条件就可以了

		自动登录	找回密码
密码			免费注册

[求助] 双条件排序