历遍工作表自动排序的问题

fzxba

1. Sub Guess()
   
2.   Application.ScreenUpdating = False
   
3.   Dim wks As Worksheet, col, i As Integer
   
4.   col = Array(7, 5, 4)
   
5.   For Each wks In Worksheets
   
6.     With wks
   
7.       With .Range("F1:L1", .Range("F1:L1").End(xlDown))
   
8.         For i = 0 To UBound(col)
   
9.           .Sort .Item(col(i)), xlAscending, , , , , , xlNo
   
10.         Next
    
11.       End With
    
12.     End With
    
13.   Next
    
14.   Application.ScreenUpdating = True
    
15. End Sub

复制代码