[已解决]自定义排序

张雄友 · 发表于 2015-5-17 15:28

本帖最后由张雄友于 2015-5-17 21:00 编辑

自定义排序。

最佳答案

dsmch

2015-5-17 20:34

For i = 1 To UBound(arr)

dsmch · 发表于 2015-5-17 17:05

复制代码

张雄友 · 发表于 2015-5-17 17:39

dsmch 发表于 2015-5-17 17:05

怎么下标越界？可能理解不到底。

dsmch · 发表于 2015-5-17 18:16

Sub dsmch自定义纵向排序()
Dim arr, brr, crr, d, i&, j&, n&
Set d = CreateObject("scripting.dictionary")
arr = Range("a1").CurrentRegion
brr = Array("3A", "3B", "3C", "3D", "3E", "3F", "2G", "2H", "2J", "3G", "3H", "3J") '指定条件，不是区域。因为条件放在工作表中不方便！
ReDim crr(1 To UBound(brr) + 1, 1 To UBound(arr, 2))
For i = 0 To UBound(brr)
d(brr(i)) = i + 1
Next
For i = 2 To UBound(arr)
n = d(arr(i, 1))
For j = 1 To UBound(arr, 2)
crr(n, j) = arr(i, j)
Next
Next
Range("h2").Resize(UBound(crr), UBound(crr, 2)) = crr
End Sub

复制代码

张雄友 · 发表于 2015-5-17 18:45

dsmch 发表于 2015-5-17 18:16

不用CurrentRegion 定位，怎么会少了一个数？

dsmch · 发表于 2015-5-17 20:34

For i = 1 To UBound(arr)

xt_one · 发表于 2015-12-19 21:58

可是需排序的条件900多个，加入不了自定义该怎么办呢，谢谢！

xt_one · 发表于 2015-12-19 21:58

dsmch 发表于 2015-5-17 18:16

可是需排序的条件900多个，加入不了自定义该怎么办呢，谢谢！

xt_one · 发表于 2015-12-19 21:59

可是需排序的条件900多个，加入不了自定义该怎么办呢，谢谢！

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