VBA新手请教-按数值将execl拆分成多行记录，执行总是卡死

         小弟需要用EXECL整理大量的数据，如下：发货数据按包由总部发出，“单品|实发量”为件数。现在我想用VBA把这个表格按照件数（即“单品|实发量”的值）进行展开，即每一行记录代表一件货品。我已经编写了vba代码如下：          小弟需要用EXECL整理大量的数据，如下：发货数据按包由总部发出，“单品|实