GBKEE

¦^´_ 1# smallpoper

1. For i = 2 To Worksheets.Count
   
2.         For A = 5 To 9
   
3.             With Worksheets(i)
   
4.                 Arr = .Range(.Cells(8, A), .Cells(31, A)).Value
   
5.                 '°}¦C¾É¤JÀx¦s®æªº­È,¤@«ß¬O¤Gºû°}¦C
   
6.                 Arr = Application.Transpose(Arr) '¥Î¤u§@ªí¨ç¼ÆÂà¸m¬°¤@¬°°}¦C
   
7.                 .Cells(32, A) = Application.WorksheetFunction.Min(Arr)
   
8.                 .Cells(33, A) = Application.WorksheetFunction.Average(Arr)
   
9.                 .Cells(34, A) = Application.WorksheetFunction.Max(Arr)
   
10.             End With
    
11.         Next
    
12.     Next

½Æ»s¥N½X