- ©«¤l
- 10
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 35
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2013-6-19
- ³Ì«áµn¿ý
- 2019-7-17
|
½Ð°Ý¤@¤U¦pªGn°w¹ï¨CÓsheetªºe8:e31°µ³Ì¤pÈ/¥§¡È/³Ì¤jÈpºâ¡A¦A±Npºâ©Ò±oªº¼ÆÈÅã¥Ü¦be32/e33/e34¡Aµ{¦¡n«ç»ò¼g(²Ä3¦æ¤@ª½¥X²{¿ù»~)
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 |
|