WPS宏与数组公式：高效拆分固定资产清单-WPS高效文档技巧使用方法

WPS宏与数组公式：高效拆分固定资产清单点击使用AI助手了解更多

发布于 2025-01-22 liusiyang 6 编辑

AI 智能搜索

基于灵犀AI办公助手生成

完整内容，请前往灵犀查看

⭐【案例描述】

在固定资产管理中，我们经常需要将资产清单按照每种资产数量进行拆分，每个物品以“1”为单位，方便独立编号，进行贴标管理。如“电脑”为数量为3，则拆分为3行数据，名称重复显示，数量均为1。如下图，将AB两列转换为DEF三列的形式。

⭐【JSA代码】

按ALT+F11打开WPS宏编辑器，复制下方代码粘贴到编辑器中。

👉	function 按数量拆分数据为多行() { //将A1单元格所在连续区域写入数组，即AB两列 ar=Range('a1').CurrentRegion.Value2 for(i=1;i 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”为单位的数量 } } }