2011年10月24日 星期一

VBA:動態二維數組

試了,留個備忘。

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


沒有留言: