stillfish00

¦^´_ 3# Scott090 GBKEE
¤À¨É¤@¤U­Ó¤H¸gÅç¡A°}¦C¤pªº¸Ü¡Aapplication.index«Ü¤è«K
¦ý¬O¤j¤@ÂIªº°}¦C¡A³o­Ó¨ç¼Æªº®Ä²v´N«Ü®t(¶V¤j¶V©úÅã)¡A
¦pªG¬O­«µø°õ¦æ®É¶¡ªº±¡ªp¤U¡A´NºÉ¶qÁÙ¬O¥Î°j°é¥h¨ú·|§Ö«Ü¦h¡C

1. Sub testForIndex()
   
2.   Dim ar2d(1 To 200, 1 To 500)
   
3.   Dim test1, test2
   
4.   Dim i As Long, j As Long
   
5.   Dim t
   
6.   
   
7.   t = Timer
   
8.   ReDim test1(1 To UBound(ar2d, 2))
   
9.   For i = 1 To UBound(ar2d) 'µ¥©ó¶]¨â¦Ê¦¸
   
10.     For j = 1 To UBound(ar2d, 2)
    
11.       test1(j) = ar2d(i, j)
    
12.     Next
    
13.   Next
    
14.   Debug.Print Timer - t   '¬ù0.027343¬í
    
15.   
    
16.   t = Timer
    
17.   For i = 1 To UBound(ar2d) 'µ¥©ó¶]¨â¦Ê¦¸
    
18.     test2 = Application.index(ar2d, i)
    
19.   Next
    
20.   Debug.Print Timer - t   '¬ù3.867188¬í
    
21. End Sub

½Æ»s¥N½X