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