WPS js批量生成货物标签

WPS用户需求：

一位超市的老阿姨和我说：小伙子你会搞这个咩？我每天一个个复制过去，老眼都花喽。为了帮助她改善打工生活，天下搬砖都是一家人，于是有了一下的东东。

达成效果

源代码

function 复制标签(){ let shtData = Application.Worksheets.Item("标签")//此处用名字和序号都不怎么好。WPS没有Excel的sheet1的写法 shtData.Activate() endRow = shtData.Range("A65336").End(xlUp).Row; Rows.Item("1:3").Select(); Selection.Copy(undefined); Rows.Item((endRow+2)+":"+(endRow+2)).Select(); ActiveSheet.Paste(undefined, undefined);}function 删除标签(){ let shtData = Application.Worksheets.Item("标签")//此处用名字和序号都不怎么好。WPS没有Excel的sheet1的写法 shtData.Activate() endRow = shtData.Range("A65336").End(xlUp).Row; Rows.Item("4:"+(endRow+2)).Select(); Selection.Delete(xlShiftUp);}function 获取商品名称(){ let shtData = Application.Worksheets.Item("商品名称")//此处用名字和序号都不怎么好。WPS没有Excel的sheet1的写法 shtData.Activate() endRow = shtData.Range("A65336").End(xlUp).Row; var rng = shtData.Range("A2:A" + endRow); var goodsName = rng.Value2;// ------------------------处理数据，提取最大值 for (var b in goodsName) {// gn = goodsName[b][0]//打印的话一定要将数组对象转成字符，通过[0]取值 gn = goodsName[b]// Debug.Print(gn) 插入值(gn,b) }}function 插入值(name,time){ let shtData = Application.Worksheets.Item("标签")//此处用名字和序号都不怎么好。WPS没有Excel的sheet1的写法 shtData.Activate() var endRow = shtData.Range("A65336").End(xlUp).Row; if (time==0){ shtData.Range("B"+(shtData.Range("A65336").End(xlUp).Row)).Value2 = name;} else{ 复制标签() shtData.Range("B"+(shtData.Range("A65336").End(xlUp).Row)).Value2 = name }}/** * CommandButton1_Click Macro */function CommandButton1_Click(){ 获取商品名称()}/** * CommandButton2_Click Macro */function CommandButton2_Click(){ 删除标签()}WPS文件

表格文件pan.baidu.com/s/1Ycj72WfwAhbrC-4UgeMWyQ?pwd=6ic7