大佬们看看这个办法是不是太笨了

quantaotao

xunanming 发表于 2023-3-8 11:46
尾号最大可生成多少?小于100的按00,大于100的按 000?是否可以直接都按000方式?

最大1000,要是不够的话还要再加.  

xunanming

quantaotao 发表于 2023-3-8 11:53
最大1000,要是不够的话还要再加.

尾号是否必须两位按00,三位000,四位0000.可否同一0000样式.如若可以..
Sub aaaa()
Dim rng As Range
Dim i As Long
Dim pono As String
For i = 1 To 9999
        pono = "橡皮鱼" & Format(Date, "yyyymmdd") & "-" & Format(i, "0000")
        Set rng = Sheets("sheet2").Range("a:a").Find(pono, , , 1)
        If rng Is Nothing Then
                Sheets("sheet1").Cells(1, 1) = pono
                Exit For
        End If      
Next
End Sub

准提部林

quantaotao 发表于 2023-3-8 11:53
最大1000,要是不够的话还要再加.

那得用四位數當序號,
可不能用 -1   -21  -109  -2001...排序及找查會有問題???
-0001  -0021  -0109  -2001 ...才是通案//

xunanming

楼主看看这样是否可以满足需求.

quantaotao

xunanming 发表于 2023-3-8 12:32
楼主看看这样是否可以满足需求.

这个不错...