VBA：將兩個不同欄位資料存入同一陣列

Sub Macro_002()
'
' 將兩個不同欄位資料存入同一陣列
’
'
' 預備計時的起始時間
'StartTime = Timer

'定義「陣列」
Dim MyArray1()

' 取得其中一欄的最後位置
k = Sheets("直式更表").Range("e65536").End(xlUp).Row

' 重定義陣列大小，只讀兩欄資料，故 1 to 2
ReDim MyArray1(1 To k, 1 To 2)

' 設迴圈
For r = 1 To k
　　　m = 1
　　　For c = 1 To 2
　　　　　　MyArray1(r, c) = Cells(r, 4 + m).Value
　　　　　　m = m + 1
　　　　　　' mmm = MyArray1(r, 1) ' 測試用
　　　　　　' NNN = MyArray1(r, 2) ' 測試用
　　　Next c
' 迴圈結束
Next r

　　　' 設定結束時間
　　　' EndTime = Timer
　　　'顯示程式耗時
　　　' MsgBox Format(EndTime - StartTime, "00.00") & "秒"
　　　' 測試用
　　　' MsgBox mmm & " " & NNN

End Sub