产品唯一性编号的方法

孙森峰

各位大神，请帮忙简化一下，或者提供新思路

产品行会复制，复制后重新编号，我的代码如下，感觉就是VBA

                var ids = []; //商品序号
                var exist = 0;
                const idRange = ActiveSheet.Range("B1").End(xlDown);
                const rowsCount = idRange.Row;               
                if(Selection.Cells(1,1).Column != 1) return;
                if(Selection.Cells(1,1).Row <= rowsCount) {
                        var idBefore = Selection.Cells(1,1).Value2;
                        if(idBefore != undefined) { //如果有编号不为空，判断重不重复
                                for(let i = 0; i < rowsCount; i ++) {
                                        ids[i] = ActiveSheet.Cells(i+1,1).Value2;
                                        if(ActiveSheet.Cells(i+1,1).Value2 == idBefore) {
                                                exist ++;
                                        }
                                }
                                ids[0] = 0;
                        } else { //否则，exist=0，把当前数组元素赋值0（当前为空格）
                                for(let i = 0; i < rowsCount; i ++) {
                                        ids[i] = ActiveSheet.Cells(i+1,1).Value2;                               
                                }
                                ids[0] = 0;
                                ids[Selection.Cells(1,1).Row-1] = 0;
                        }
                        if(exist == 0 || exist > 1) {
                                var id = Math.max(...ids); //展开数组，取最大值
                                Selection.Cells(1,1).Value2 = id + 1;
                        }
                }

grf1973

放到数组里遍历一遍全部重新编号好了，何必用selection，cells之类的呢。

LIUZHU

直接说编号的规则是什么？并且，上附件

孙森峰

规则
如果没有商品，则序号为1，新加商品序号加1
最常操作是复制行进行修改，然后修改序号

LIUZHU

孙森峰 发表于 2024-5-11 19:10
规则
如果没有商品，则序号为1，新加商品序号加1
最常操作是复制行进行修改，然后修改序号

理清下思路，在“商品代码”列后面添加新的记录，如果该商品代码是新增的商品代码（当前商品代码中不存在），则编号为1，如果该商品代码已经存在，那么在已经存在的商品代码的最大编号基础上加1，不知道我是否理解到位了？

LIUZHU

试试吧，不知道是否符合要求

LIUZHU

附件在此，请测试

孙森峰

应该不是这样
首先，整个编号列不能重复，是唯一键值
1）当没有数据行时，加入的书据编号为1，当已经有数据时，取最大值加1
2）无论复制哪一行，插入到什么地方，新编号都是最大值加1

我们只是对新复制的行进行自动编号，其他的内容不变