stillfish00

¦^´_ 1# msmplay

1. Sub Test()
   
2.     Dim i As Integer
   
3.     For i = 1 To 31
   
4.         With Sheets(CStr(i))
   
5.             .Sort.SortFields.Clear
   
6.             .Sort.SortFields.Add key:=.Range("D6"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   
7.             With .Sort
   
8.                 .SetRange Range("C6:AI14")
   
9.                 .Header = xlGuess
   
10.                 .MatchCase = False
    
11.                 .Orientation = xlTopToBottom
    
12.                 .SortMethod = xlPinYin
    
13.                 .Apply
    
14.             End With
    
15.         End With
    
16.     Next
    
17. End Sub

½Æ»s¥N½X