VBA生成随机交易编号重复且均已存在于现有数据表问题排查

问题根因 #

死循环的核心问题出在GetNewTnum函数的随机数初始化逻辑：

• 每次调用函数时都会执行Randomize 10，给VBA随机数生成器传入了固定的种子值10。相同种子下，Rnd函数返回的随机数序列完全固定，且你每次重置种子后只调用一次Rnd，所以所有GetNewTnum的调用返回的都是同一个固定编号，自然永远匹配到已存在的记录，循环无法退出。

修复方案 #

修改GetNewTnum的随机数初始化逻辑即可，调整规则如下：

1. 不要给Randomize传固定参数，无参数的Randomize会使用系统时间作为种子，保证每次运行程序生成的随机序列都不同
2. Randomize只需要全局执行一次，不需要每次生成编号都重复执行，避免重复重置序列

修复后的代码示例 #

' 模块级标记，记录随机数生成器是否已初始化
Private isRandomInitialized As Boolean

Public Function GetNewTnum() As String
    ' 仅第一次调用时初始化随机种子
    If Not isRandomInitialized Then
        Randomize
        isRandomInitialized = True
    End If
    ' 原有生成逻辑，返回6位随机数拼接的编号
    GetNewTnum = "SL-" & Int(Rnd * 1000000)
End Function

可选优化（降低重复概率） #

如果后续数据量增长，担心6位随机数碰撞，可以在编号中加入时间戳，几乎可以完全避免重复：

Public Function GetNewTnum() As String
    If Not isRandomInitialized Then
        Randomize
        isRandomInitialized = True
    End If
    ' 格式：SL-年月日时分秒+3位随机数，每秒支持生成1000个不重复编号
    GetNewTnum = "SL-" & Format(Now(), "YYMMDDHHMMSS") & Int(Rnd * 1000)
End Function

其他说明 #

你当前使用的finddupTnum查重逻辑本身没有问题，500余条数据量下查找效率足够，不需要额外调整。

内容的提问来源于stack exchange，提问作者Carlos Andres