excel在某一单元格生成一个唯一不重复合同号

zhangyurx888 · 发表于 2023-1-5 21:14

太极拍天雄发表于 2023-1-5 16:01
练习一个好玩一下

就是这个效果，1000以内没有重复就可以

太极拍天雄 · 发表于 2023-1-5 21:20

zhangyurx888 发表于 2023-1-5 21:14
就是这个效果，1000以内没有重复就可以

代码我设置了重复就取消的循环，我没时间测试，你自己测试一下吧！

zhangyurx888 · 发表于 2023-1-5 21:21

太极拍天雄发表于 2023-1-5 16:01
练习一个好玩一下

还有一个要求，就是P后面第一个数字可以更改，然后，从更改数据后面随机生成不重复的数字

太极拍天雄 · 发表于 2023-1-5 21:35

zhangyurx888 发表于 2023-1-5 21:21
还有一个要求，就是P后面第一个数字可以更改，然后，从更改数据后面随机生成不重复的数字

那就你自己设定P后面的第一个数字

nicleyuan · 发表于 2023-1-5 22:28

本帖最后由 nicleyuan 于 2023-1-5 23:06 编辑

图片.png

好玩。。

hcm19522 · 发表于 2023-1-6 11:05

本帖最后由 hcm19522 于 2023-1-6 11:14 编辑

C2{=IF(A2="","",A2&TEXT(SMALL(IF(MMULT(N(IFERROR(TRANSPOSE(RIGHT(C$1:C1,4))-ROW($1:$9999),"")=0),ROW($1:1)^0)=0,ROW($1:$9999)),RANDBETWEEN(1,10000-ROW(A1))),"0000"))

zhangyurx888 · 发表于 2023-1-10 09:26

nicleyuan 发表于 2023-1-5 22:28
好玩。。

收到，谢谢了！

zhangyurx888 · 发表于 2023-1-10 09:26

hcm19522 发表于 2023-1-6 11:05
C2{=IF(A2="","",A2&TEXT(SMALL(IF(MMULT(N(IFERROR(TRANSPOSE(RIGHT(C$1:C1,4))-ROW($1:$9999),"")=0),ROW ...

收到，感谢感谢

zhangyurx888 · 发表于 2023-1-10 09:37

太极拍天雄发表于 2023-1-5 16:01
练习一个好玩一下

能否帮我改一下第二张表生成合同号时固定不动的那个几字。第一张表合同号前面几个字是“桦担字23D”，第二张表我想改成“桦担字23P”.也就是常规业务用D表示，批量业务用P表示。

tanglf188 · 发表于 2023-1-10 10:23

参与一下，每次生成的数量和合同号前缀可以自定义。
Sub GetNumber()
If Sheet1.Range("C" & Rows.Count).End(xlUp).Row > 99999999 Then Exit Sub '总数据大于8位则退出
pprefix = "佳南23P" '前缀字符串
totals = 5 '每次生成的数量
counter = 0
Do
      intrand = pprefix & Int((Rnd * 100000000) + 1)
      If Len(intrand) = Len(pprefix) + 8 Then
         Set findcell = Sheet1.Range("C:C").Find("intrand", LookAt:=xlWhole)
         If findcell Is Nothing Then
            last = Sheet1.Range("C" & Rows.Count).End(xlUp).Row
            Sheet1.Range("C" & last + 1) = intrand
            counter = counter + 1
            If counter >= totals Then Exit Do
         End If
      End If
Loop
End Sub

		自动登录	找回密码
密码			免费注册

[求助] excel在某一单元 格生成一个唯一不重复合同号

[求助] excel在某一单元格生成一个唯一不重复合同号