[已解决]按条件排序

雨玥

请教：怎样将SHEET1表中的A3:AH里的内容以C列内容进行排序，但是排序的条件是：按“条件”工作表中的B列内容的顺序（B3往下的内容）进行排序，当然同一行中的内容也同时跟着变动（即原来一行中的内容排序后内容还要在同一行中），见效果表。谢谢

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-7 21:04

1. Sub Macro1()
   
2. Dim arr, brr, crr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a3:ah" & Range("a65536").End(xlUp).Row)
   
5. brr = Sheets("条件").[b3:b9]
   
6. ReDim crr(1 To UBound(arr), 1 To 1)
   
7. For i = 1 To UBound(brr)
   
8.     d(brr(i, 1) & "村") = i
   
9. Next
   
10. For i = 1 To UBound(arr)
    
11.     crr(i, 1) = d(arr(i, 3))
    
12. Next
    
13. Range("ai3").Resize(UBound(crr)) = crr
    
14. Range("a3").Resize(UBound(arr), UBound(arr, 2) + 1).Sort Key1:=Range("AI3"), Order1:=xlAscending, Header:=xlGuess
    
15. [ai:ai].ClearContents
    
16. End Sub
    

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, crr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a3:ah" & Range("a65536").End(xlUp).Row)
   
5. brr = Sheets("条件").[b3:b9]
   
6. ReDim crr(1 To UBound(arr), 1 To 1)
   
7. For i = 1 To UBound(brr)
   
8.     d(brr(i, 1) & "村") = i
   
9. Next
   
10. For i = 1 To UBound(arr)
    
11.     crr(i, 1) = d(arr(i, 3))
    
12. Next
    
13. Range("ai3").Resize(UBound(crr)) = crr
    
14. Range("a3").Resize(UBound(arr), UBound(arr, 2) + 1).Sort Key1:=Range("AI3"), Order1:=xlAscending, Header:=xlGuess
    
15. [ai:ai].ClearContents
    
16. End Sub
    

复制代码

dsmch

…………

雨玥

dsmch 发表于 2014-4-7 21:07
…………

哈哈，真是太感谢老师了。帮了我的大忙了。

王华英

一点都看不懂，复制的代码在哪啊，往哪复制代码啊。