Sub 整sheet读入导出()

Dim arr1

Dim arr2()

arr1 = Sheets("e_1").Range("a1:d3")   '只能给变量赋值，不能给数组赋值？

m = 1

Rem 二维数组，记住 x y 坐标系分别是 row column

For j = 1 To UBound(arr1, 2)

   For i = 1 To UBound(arr1, 1)

       arr2(m) = arr1(i, j)

       m = m + 1

       Debug.Print arr2(m)

   Next i

Next j

End Sub

正确的应该是？

Sub 整sheet读入导出()

Dim arr1

Dim arr2()

arr1 = Sheets("e_1").Range("a1:d3")   '只能给变量赋值，不能给数组赋值？

m = 0

Rem 二维数组，记住 x y 坐标系分别是 row column

For i = 1 To UBound(arr1, 1)

   For j = 1 To UBound(arr1, 2)

'       arr2(m) = arr1(i, j)   '问题出在数组不能给赋值？应该怎么给每个赋值呢

'       m = m + 1

'       Debug.Print arr2(m)

        Debug.Print arr1(i, j)

   Next j

Next i

End Sub

https://blog.csdn.net/taller_2000/article/details/79368376

Sub 整sheet读入导出()

Dim arr1

Dim arr2()

Dim m

arr1 = Sheets("e_1").Range("a1:d3")   '只能给变量赋值，不能给数组赋值？

m = 1       'm 别从0开始！

n = UBound(arr1, 1) * UBound(arr1, 2)

Rem 二维数组，记住 x y 坐标系分别是 row column

For i = 1 To UBound(arr1, 1)

   For j = 1 To UBound(arr1, 2)

   ReDim arr2(1 To n)   '必须得先算出n，并且给arr2重定义n才行

       arr2(m) = arr1(i, j)   '问题出在数组不能给赋值？应该怎么给每个赋值呢

       m = m + 1

       Debug.Print arr2(m)

      ' Debug.Print arr1(i, j)

   Next j

Next i

End Sub

M怎么会越界 =13了呢？