Question

VBA如何用二维数组给单元格赋值？

Answer 1

可以用Resize来实现，示例如下：
arr=range("A1:Z1")'将第一行，A到Z列，赋值给数组arr

range("A2").resize(ubound(arr),1)=application.transpose(arr)'将数组Arr转置后，赋予A2开始的A列中。

关于Resize属性：

调整指定区域的大小。返回 Range对象，该对象代表调整后的区域。
expression.Resize(RowSize, ColumnSize)
expression 必需。该表达式返回要调整大小的 Range对象。
RowSize Variant 类型，可选。新区域中的行数。如果省略该参数，则该区域中的行数保持不变。
ColumnSize Variant类型，可选。新区域中的列数。如果省略该参数。则该区域中的列数保持不变。

Answer 2

Sub test()
Dim arr(1 To 3, 1 To 4)
For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
        n = n + 1 * 3
        arr(i, j) = n
    Next
Next
Range("A1").Resize(3, 4) = arr '二维数组直接赋值
Range("A10").Resize(4, 3) = WorksheetFunction.Transpose(arr) '二维数组行列转置后赋值
End Sub

追问

Excel中哦~

追答

是啊

Answer 3

range（"A1").resize（ubound（ARR，1），ubound(ARR,2))=arr

直接赋值就可以了

通过ubound函数计算出，数组的范围