VBA 产品数组新增元素触发「下标越界」错误排查咨询

报错和VBA产品数组本身没有关联——products是Variant类型，通过Array()函数赋值时会自动适配元素数量，不存在固定边界，从2个元素增加到4个元素的操作本身完全合法，不会触发下标越界。

实际触发错误的是代码循环中的硬引用逻辑：

ActiveSheet.ListObjects("Ship " & i).ListRows.Add (2)
ActiveSheet.ListObjects("Ship " & i).DataBodyRange.Select

这段代码会在当前活动工作表中，按Ship + 产品名的规则查找对应名称的Excel超级表（ListObject）：

• 原始数组只有BALANCER、SKIN LIGHTENER两个产品，模板中提前预置了Ship BALANCER、Ship SKIN LIGHTENER两个匹配的超级表，因此运行正常
• 新增两个产品后，代码循环到FIRM AND FADE 6%、FIRM AND FADE 8%时，会尝试查找Ship FIRM AND FADE 6%、Ship FIRM AND FADE 8%这两个超级表，而模板中没有创建对应名称的表，ListObjects按无效索引取值时就直接抛出下标越界错误。

之前的排查方向出现偏差，是因为修改数组的操作刚好触发了额外的循环轮次，碰到了不存在的表引用，并非数组配置本身的问题。

• 打开模板文件Dermesse_Dashboard(Template).xlsx，定位到代码中操作的目标工作表（代码中通过ActiveWorkbook.Sheets(2).Select指定，即工作簿中索引为2的第二个工作表）
• 参照原有两个产品对应的Ship BALANCER、Ship SKIN LIGHTENER超级表的字段结构、排版位置、格式样式，新建两个独立的超级表，分别严格命名为Ship FIRM AND FADE 6%、Ship FIRM AND FADE 8%，注意名称中的空格、特殊符号必须和数组中的产品名称完全一致
• 新建表时注意和原有表格的位置错开，避免表格区域重叠被写入数据时覆盖，对应代码注释中提到的“表格位置不对会被覆盖”的提示
• 保存模板后重新运行代码即可正常执行，不需要额外调整数组的边界配置。

• 不要通过修改数组的ReDim配置尝试解决问题，当前数组为动态可变类型，没有硬编码的边界限制
• 如果新建表后仍然报错，检查工作簿的工作表顺序是否被改动，导致Sheets(2)的索引指向了错误的工作表；同时核对超级表的名称是否完全匹配，差一个空格、大小写错误都会导致查找失败报下标越界
• 代码中的ADODB参数删除逻辑不需要调整：每轮循环删除索引为2的参数（即第三个参数位，对应产品参数）、再新增下一个产品参数的逻辑，对任意长度的产品数组都兼容，不存在配置冲突。

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