vba 号码生成

gyf519

Private Sub CommandButton1_Click()
Dim s As String, n%, r As Range
n = 1
Do
s = Format(Range("d1"), "ddmmyyyy") & Left(Range("a1"), 1) & n
Set r = Worksheets(2).UsedRange.Find(s, lookat:=xlWhole)
n = n + 1
Loop While Not r Is Nothing
Cells(1, "j") = s
Worksheets(2).Range("a100000").End(xlUp)(2, 1) = s
End Sub

菜小包同学

Qs18 发表于 2024-8-14 14:15
试试..........

谢谢，可以用. 问个傻问题，能请教一下n%的语法么

gwjkkkkk

Option Explicit
Sub TEST6()
    Dim ar, i&, dic As Object, strTxt$
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = Worksheets(2).[A1].CurrentRegion.Value
    For i = 1 To UBound(ar)
        dic(ar(i, 1)) = Empty
    Next i
   
    With Worksheets(1)
        strTxt = Format(.[D1].Value, "ddmmyyyy" & "A")
        For i = 1 To 10
            If Not dic.exists(strTxt & i) Then
                .[J1].Value = strTxt & i: Exit For
            End If
        Next i
        .Activate
    End With
   
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

参与一下。。。

菜小包同学

谢谢大家！！

菜小包同学

问题已解决，非常感谢大家的帮助