k = 0For Each myd In tdata i = k \ (UBound(tdata, 1) - LBound(tdata, 1) + 1) "第一維下標值 j = k Mod (UBound(tdata, 2) - LBound(tdata, 2) + 1) "第二維下標值 Print "tdata(" & i & "," & j & ")=" & myd k = k + 1Next
或者不用遍歷，直接順序讀取即可（在陣列大小已知的情況下，遍歷其實沒啥意義了）：
For j = LBound(tdata, 1) To UBound(tdata, 1) For i = LBound(tdata, 2) To UBound(tdata, 2) Print "tdata(" & i & "," & j & ")=" & tdata(i, j) NextNext
這個只能透過一個變數累加，然後從中分解出下標值：
k = 0For Each myd In tdata i = k \ (UBound(tdata, 1) - LBound(tdata, 1) + 1) "第一維下標值 j = k Mod (UBound(tdata, 2) - LBound(tdata, 2) + 1) "第二維下標值 Print "tdata(" & i & "," & j & ")=" & myd k = k + 1Next
或者不用遍歷，直接順序讀取即可（在陣列大小已知的情況下，遍歷其實沒啥意義了）：
For j = LBound(tdata, 1) To UBound(tdata, 1) For i = LBound(tdata, 2) To UBound(tdata, 2) Print "tdata(" & i & "," & j & ")=" & tdata(i, j) NextNext