vba怎么给二维数组赋值array

Question

如题所述

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类型，可选。新区域中的列数。如果省略该参数。则该区域中的列数保持不变。