GBKEE

¦^´_ 1# acdx

1. Ar(1) = Array(50, 60, 70, 80)
   
2.     Ar(2) = Array(150, 260, 370, 480)
   
3.     Maxl = Application.StDev(Ar(1), Ar(2))

½Æ»s¥N½X

GBKEE

¦^´_ 3# acdx

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ar(1 To 2), Maxl, Maxt, tRow
   
4.     Ar(1) = Array(6, 7, 5, 8, 9, 1, 2, 0, 22, 28)
   
5.     Ar(2) = Array(16, 17, 25, 18, 29, 31, 22, 20)
   
6.     For tRow = 1 To UBound(Ar(1))
   
7.         Maxl = Ar(1)
   
8.         Maxt = Ar(2)
   
9.         ReDim Preserve Maxl(tRow)                   '¤¸¯À¼Æ -> 0 TO tRow = tRow+1
   
10.         ReDim Preserve Maxt(tRow)
    
11.              'Preserve ¿ï¾Ü©Ê¤Þ¼Æ¡C·í§ïÅܭ즳°}¦C³Ì«á¤@ºûªº¤j¤p®É¡A¤´µM«O¦³­ì¨Óªº¸ê®ÆªºÃöÁä¦r¡C
    
12.         Cells(tRow, "A") = Application.StDev(Maxl) / Application.Average(Maxl)
    
13.         Cells(tRow, "B") = Application.StDev(Maxt) / Application.Average(Maxt)
    
14.     Next   
    
15. End Sub

½Æ»s¥N½X