kimbal

回復 1# xandertco

動態陣列

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

複製代碼

另外跟主問題無關的提示:上面integer 應轉成long, 如果行數多於3萬多的話,integer會出問題的.