特殊排序阶梯性的排序，麻烦看看

此用户被禁言

要求与示例结果都在附件中有说明，麻烦老师看看。。这个用VBA怎么来完成？想了好久，完全没有头绪，这种排序感觉好难


特殊排序方式.zip (9.53 KB, 下载次数: 12)

2014-12-9 20:48 上传

点击文件名下载附件

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   With Worksheets("sheet1")
   
7.     r = .Cells(1, 1).End(xlDown).Row
   
8.     arr = .Range("a2:f" & r)
   
9.     ReDim brr(1 To UBound(arr), 1 To 1)
   
10.     n = 0
    
11.     For i = 1 To UBound(arr)
    
12.       For j = 4 To 1 Step -1
    
13.         If Len(arr(i, j)) <> 0 Then
    
14.           If Not d.Exists(arr(i, j)) Then
    
15.             n = n + 1000
    
16.             d(arr(i, j)) = n
    
17.           End If
    
18.           Exit For
    
19.         End If
    
20.       Next
    
21.       brr(i, 1) = d(arr(i, j)) - j
    
22.     Next
    
23.     .Range("g2").Resize(UBound(brr), 1) = brr
    
24.     .Range("a2:g" & r).Sort key1:=.Cells(1, 7), order1:=xlAscending, header:=xlNo
    
25.     .Columns("g:g").ClearContents
    
26.   End With
    
27. End Sub
    

复制代码

chxw68

这道题很新鲜！

zhiget

火车票？？不懂你的意思
第二列 有5个成都 为什么你只排4个？

相邻两列有相同就这排？ 如果是 行数可能要增加

第一列 和第二列都有九江  不排？

此用户被禁言

chxw68 发表于 2014-12-9 21:04
这道题很新鲜！

多谢老师，能否说一下你这个大概原理？没有怎么明白原理呢。。

此用户被禁言

zhiget 发表于 2014-12-9 21:08
火车票？？不懂你的意思
第二列 有5个成都 为什么你只排4个？

我只从最后向前面看。。第二列有5个成都，但是广元        成都        武汉  这个最后以武汉结束的，所以这个成都不用放在前面。。

yjh_27

参见附件。

此用户被禁言

yjh_27 发表于 2014-12-9 21:52
参见附件。

多谢老师。。。