转载--VBA学习笔记--数组和单元格互相转换--原文链接：https://www.cnblogs.com/Jacklovely/p/6606686.html

本文深入探讨VBA中数组与Excel单元格之间的转换方法，包括定义数组、使用Redim调整数组大小的限制及如何通过两种不同方式将数组数据写入单元格。第一种方法利用Transpose函数将一维数组转换为列数据，第二种则直接定义二维数组进行写入。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

转载--VBA学习笔记--数组和单元格互相转换

原文链接：https://www.cnblogs.com/Jacklovely/p/6606686.html

说明（2017.3.23）：

1. VBA的数组还是很难用的，其实就是非常难用！

2. 要先定义一个数组，可以是空的，也可以里面写个数字作为数组长度。

3. 如果是空数组，可以后面redim重新定义数组长度。如果不是空的，再用redim就会报错“数组维数已定义”！

4. dim里面不能用变量，报错“只能用常数表达式”，里面只能用具体数字。

5. redim不能重新定义数组维数，就是说本来dim了一个一维数组，redim不能把它改成二维数组。

6. redim里面貌似能用变量。

7. 两种方法，一种定义一维数组，需要结果transpose转成行。另一种定义二维数组，结果直接写入单元格。

总结：

1. VBA的数组超级难用，用过的最难用的！

'第一种方法，定义一个一维数组，存放乘积，用transpose换成列后，写入单元格
Public Sub test()
    Dim arr()
    arr = Range("a7: b24")
    arrNum = UBound(arr)
'    如果arr2是个一维数组，后面要用transpose列转行
    Dim arr2()
    ReDim arr2(1 To UBound(arr, 1))

    For i = 1 To UBound(arr, 1)
        arr2(i) = arr(i, 1) * arr(i, 2)
    Next
'    resize从这个单元格往下数多少行，第二个参数是多少列
'    transpose把arr2的列转成行
    Range("e7").Resize(UBound(arr2), 1) = Application.Transpose(arr2)
End Sub
'第二种办法，定义一个二维数组，存放乘积，直接写入单元格
Public Sub test2()
    Dim arr()
    arr = Range("a7: b24")
    arrNum = UBound(arr)
'    如果arr2一开始就定义为二维数组，后面就不用转成行了
    Dim arr2(1 To 18, 1 To 1)
'    本来想用变量作为数组大小，不过好像不支持，redim也不能含有变量，而且不能重新定义二维数组
'    ReDim arr2(1 To 18，1 To 2)

    For i = 1 To UBound(arr, 1)
        arr2(i, 1) = arr(i, 1) * arr(i, 2)
    Next
'    resize从这个单元格往下数多少行，第二个参数是多少列
    Range("e7").Resize(UBound(arr2), 1) = arr2
End Sub