【原创】VBA（实验21）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.youkuaiyun.com/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了呢？