For i = 2 To Worksheets.Count
For a = 5 To 9
arr = Worksheets(i).Range(Cells(8, a), Cells(31, a)).Value
Worksheets(i).[E32] = Application.WorksheetFunction.Min(arr)
Worksheets(i).[E33] = Application.WorksheetFunction.Average(arr)
Worksheets(i).[E34] = Application.WorksheetFunction.Max(arr)
Next
Next作者: GBKEE 時間: 2014-4-11 14:54