如何将VBA二维数组导出到工作表Range？求优雅实现方案

我太懂你用循环挨个写单元格的痛苦了——代码啰嗦不说，数据量大的时候还慢得离谱。其实VBA本身就自带了一个高效又简洁的方法，能直接把二维数组一次性「怼」到Range里，完全不用循环，既省代码又提效率。

核心逻辑 #

VBA的Range对象支持直接接收二维数组的值，只要数组的行列数和目标Range的大小完全匹配就行。这里要注意两个关键细节：

• 工作表的单元格是基于1的索引，如果你的数组是默认的基于0（比如用Array()创建或者ReDim时没指定起始索引），要确保维度对应上，或者动态调整目标Range的大小。
• 二维数组的结构要和Range的行列对应：数组的第一维对应行，第二维对应列（比如arr(i,j)就对应工作表里第i行第j列的单元格）。

代码示例 #

假设你已经有了一个二维数组myArray，比如从监视窗口看到它是(1 to 5, 1 to 3)的结构（5行3列），那直接写这一行就行：

' 以Sheet1的A1为起点，自动匹配数组的行列大小
Sheet1.Range("A1").Resize(UBound(myArray, 1), UBound(myArray, 2)).Value = myArray

如果你的数组是基于0的（比如(0 to 4, 0 to 2)），就用下面的写法自动计算行列数：

With Sheet1.Range("A1")
    .Resize(UBound(myArray, 1) - LBound(myArray, 1) + 1, _
            UBound(myArray, 2) - LBound(myArray, 2) + 1).Value = myArray
End With

为啥这方法比循环香？ #

• 效率爆炸：循环是逐个单元格和工作表交互，每一次都有性能开销；一次性赋值只需要一次交互，数据量越大，速度差距越明显。
• 代码极简：一行核心代码代替十几甚至几十行循环，可读性拉满。

容易踩的坑 #

1. 如果是一维数组，直接赋值会变成横向的一行，想转成纵向列的话要用到转置：

   ' 把一维数组转成列写入
   Sheet1.Range("A1").Resize(UBound(myArray) - LBound(myArray) + 1, 1).Value = Application.Transpose(myArray)
   

2. 确保数组里的元素类型和单元格兼容，别把对象类型直接往单元格里塞，会报错。

要是你的数组结构比较特殊（比如监视窗口里看到是不规则的？不过一般二维数组都是规则的），可以把数组的具体结构描述给我，我再帮你调整细节~

内容的提问来源于stack exchange，提问作者hornetbzz