owen06

¦^´_ 1# smallpoper

¸Õ¸Õ¬Ý

1. Sub test()
   
2. Dim arr As Range
   
3. For i = 2 To Worksheets.Count
   
4. Set arr = Sheets(i).Range("e8:e31")
   
5.                Sheets(i).[E32] = Application.WorksheetFunction.Min(arr)
   
6.                Sheets(i).[E33] = Application.WorksheetFunction.Average(arr)
   
7.                Sheets(i).[E34] = Application.WorksheetFunction.Max(arr)
   
8. Next
   
9. End Sub

½Æ»s¥N½X