Sub GenerateUniqueValues()
    Dim ws As Worksheet
    Dim i As Long
    Dim currentValue As Long
    Dim isUnique As Boolean

    Set ws = ThisWorkbook.Sheets("Sheet1") ' 请确保 "Sheet1" 是你的工作表的名称
    
    currentValue = 1 ' 从1开始计数

    For i = 1 To 9876
        isUnique = False
        Do While Not isUnique
            If IsError(Application.Match(currentValue, ws.Range("B:B"), 0)) Then
                isUnique = True
            Else
                currentValue = currentValue + 1
            End If
        Loop
        ws.Cells(i, 3).Value = currentValue ' 3表示C列
        currentValue = currentValue + 1
    Next i
End Sub