kimbal

¦^´_ 1# xandertco

°ÊºA°}¦C

1. Sub test()
   
2. Dim a As long
   
3. a = Cells(Range("A65536").End(xlUp).Row, 1).Row - 1
   
4. 
   
5. Dim myarray()
   
6. ReDim myarray(a, 1)
   
7. For i = 0 To a
   
8.     For j = 0 To 1
   
9.       myarray(i, j) = Cells(i + 1, j + 1)
   
10.     Next j
    
11. Next i
    
12. End Sub

½Æ»s¥N½X

¥t¥~¸ò¥D°ÝÃDµLÃöªº´£¥Ü:¤W­±integer À³Âনlong, ¦pªG¦æ¼Æ¦h©ó3¸U¦hªº¸Ü,integer·|¥X°ÝÃDªº.