Sub
单元格创建二维数组()
Dim
arr
As
Variant
'定义任意类型
Range(
"A1:C3"
).Value = 5
'赋值A1:A3=5
arr = Range(
"A1:C1"
).Value
'创建数组,值为A1:A3
"e1:G1"
).Value = arr
'将数组写入e1:G1
End