Excel VBA代码运行无报错单变量可写入工作表但数组写入失败如何解决

问题原因 #

• 写入区域未匹配数组大小：你直接对单个单元格Range("B3")赋值，Excel仅会将数组的第一个元素填入该单元格，不会自动扩展填充数组的所有内容。
• 数组维度和写入方向不匹配：你声明的ItemNames是一维数组，VBA中一维数组默认为行向数组，直接写入区域会横向填充，若需要纵向填充到B列需要转置处理。
• 数组索引默认从0开始：你声明Dim ItemNames(260) As Variant时未指定下标，默认索引范围是0~260，你循环赋值时k从1开始，索引0的位置为空值，会导致写入结果第一个值为空。

修复方案 #

快速修复（仅修改写入语句） #

把代码最后一行的写入语句替换为以下内容即可正常写入：

' Resize将B3向下扩展到和数组元素数量一致的行数，Transpose把行向一维数组转为列向
Sheets("ProducedData").Range("B3").Resize(UBound(ItemNames), 1).Value = Application.Transpose(ItemNames)

优化建议 #

1. 声明数组时指定下标从1开始，避免空值问题：

' 所有固定长度数组都可以按该格式声明，索引从1到260
Dim ItemNames(1 to 260) As Variant

2. 如果需要同时写入所有你定义的数组（如商品名放B列、颜色放C列、尺码放D列等），可以直接构建二维数组一次性写入，比逐列写入效率更高：

' 16个字段，最多260行数据
Dim Result(1 to 260, 1 to 16) As Variant
' 循环时给Result(k, 1) = ItemNames(k)，Result(k,2) = ColorsResults(k) 依次赋值
' 最后一次性写入
Sheets("ProducedData").Range("B3").Resize(260, 16).Value = Result

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