VBA下标越界（运行时错误-9）提示问题处理

问题反馈：

测试：采购在途表行数900行没问题，2300行就会报错。

排查处理：

测试复现问题

点击调试

初步判断：caigouzaituarr 或shuchuliaojianxuqiu 数组越界

shuchuliaojianxuqiu如果h大于6万会越界，现在看订单就三百行，每个bom按20个原材料算也不会越界。

Jhs是即时库存表的行数，此处应该时 chs；

即时库存表时1373行，所以会出现小于1373不会越界，大于就会越界。

处理内容：

caigouzaituarr = Sheets("采购在途").Range("A2:M" & jhs)  '采购在途数据装入数组

改为

caigouzaituarr = Sheets("采购在途").Range("A2:M" & chs)  '采购在途数据装入数组

执行成功；