試了,留個備忘。
Option Base 1 '數組的下限編號由 "1" 起
Sub test001()
'測試動態二維數組
Dim MyArry() '宣告一個數組
Worksheets("sheet1").Activate '設定資料頁
r = Range("A65536").End(xlUp).Row '按資料頁,設第一維
s = Range("IV1").End(xlToLeft).Column '按資料頁,設第二維
ReDim MyArry(r, s) '動態數組,改變二維的數量
'
For i = 1 To r '迴圈,將資料頁 A 欄寫進第一維 (姓名)
For j = 1 To s '迴圈,將資料頁 B 欄寫進第二維 (編號)
MyArry(i, j) = Cells(i, j).Value ' 寫入 姓名 至第一維
MyArry(i, s) = Cells(i, s).Value ' 寫入 編號 至第二維
Next j
Next i
End Sub
沒有留言:
張貼留言