排序

马吊仔

排序的宏 麻烦大家帮忙

microyip

录制一下宏就行了

Chip_Kenny

1. Sub zz()
   
2. Application.ScreenUpdating = 0
   
3. Dim s$, ar, k$, i&, j&, n&, r&, c
   
4. ar = Range([a3], [b3].End(2)).Value
   
5. s = [b3].Value
   
6. For j = 1 To UBound(ar, 2)
   
7.     If ar(1, j) = s Then k = k & "|" & j
   
8. Next
   
9. c = Split(Mid(k, 2), "|")
   
10. For i = 0 To UBound(c) - 1
    
11.     j = c(i) + 0: n = c(i + 1) - 1
    
12.     r = Cells(Rows.Count, j).End(3).Row
    
13.     Range(Cells(3, j), Cells(r, n)).Sort key1:=Cells(3, j), order1:=1, Header:=1
    
14. Next
    
15. j = c(i) + 0: n = UBound(ar, 2)
    
16. r = Cells(Rows.Count, j).End(3).Row
    
17. Range(Cells(3, j), Cells(r, n)).Sort key1:=Cells(3, j), order1:=1, Header:=1
    
18. Application.ScreenUpdating = 1
    
19. End Sub

复制代码