二維動態數組問題

Question

我想得到一個數組asBigClass2(row, 2),其中row可變﹐下面程序執行到第二次循環時為什么會報"陣列索引超出範圍
"的錯誤        row = 0
        col = 0
        Do While xlsWs.Range("A" & row + 2) <> ""
            asBigClass1(0) = Trim(.Range("A" & row + 2))
            asBigClass1(1) = Trim(.Range("B" & row + 2))
            asBigClass1(2) = Trim(.Range("C" & row + 2))
            For k = 0 To 2
                ReDim Preserve asBigClass2(row + 1, 2)
                asBigClass2(row, k) = asBigClass1(k)
            Next
            Debug.Print asBigClass2(row, col)
            row = row + 1
        Loop

Answer 1

用如聲明
Dim asBigClass1(3) As String
Dim asBigClass2() As String

Answer 2

Preserve 的关系,用Preserve 的时候ReDim只能改变最后的一维.
建议你先把运行上面这段程序时先把两维倒换过来,运行完毕后再倒转两维的数据.