VBA 整个表写入导出0----导出工具的步骤？

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.****.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)