按数量将物品名称拆分为单行，以“1”为单位

function 按数量拆分数据为多行()

{

//将A1单元格所在连续区域写入数组，即AB两列

ar=Range('a1').CurrentRegion.Value2

for(i=1;i<ar.length;i++){ //按A列名称循环

for(j=1;j<=ar[i][1];j++){ //按B列数量循环

//获取最后一行数据的下一行，作为写入位置

k=Range('d65535').End(xlUp).Row+1

Range('d'+k).Value2=k-1 //生成序号

Range('e'+k).Value2=ar[i][0] //重复名称

Range('f'+k).Value2=1 //以“1”为单位的数量

}

}

}