VBA数组值无法批量写入Excel表格列，仅显示首条记录求助

核心原因 #

Excel单元格区域接收数组值时，要求数组维度与区域维度匹配。你遇到的问题大概率是一维数组直接赋值给列区域，或者写入区域大小与数组长度不匹配导致的。

正确写法分两种情况 #

情况1：使用一维数组（需转置）

如果你的数组是一维的（比如arr(1 To 648000)），直接赋值给列区域只会填充第一个元素，需要用Transpose转置后再写入：

' 假设arr已通过循环填充完成
Range("A1:A648000").Value = Application.Transpose(arr)

情况2：直接使用二维数组（更稳定，推荐大数据量使用）

对于648K条记录的大数据量，直接声明二维数组（行×列）更稳妥，避免转置的性能损耗：

' 声明二维数组：行数对应记录数，列数为1（对应表格第一列）
Dim arr() As Variant
ReDim arr(1 To 648000, 1 To 1)

' 循环填充数组时，指定二维索引
For i = 1 To 648000
    arr(i, 1) = ' 你的赋值逻辑（比如从原表格取数或计算值）
Next i

' 一次性写入目标区域，用Resize匹配数组大小
Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr

关键注意事项 #

• 写入区域的大小必须和数组元素总数完全匹配：比如数组有648000个元素，目标区域必须是648000行×1列，否则会出现部分值不显示的问题。
• 大数据量操作时，务必避免循环写入单个单元格，数组一次性写入是效率最高的方式。

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