Excel VBA实现新增/删除条目时不变的唯一编号列需求

以下是适配你需求的VBA代码方案，确保每个新增条目获得永久唯一且不会随增删操作改变的编号，完美支撑跨工作簿查询的主键需求：

一、用户窗体提交时自动生成编号 #

假设你的用户窗体有提交按钮，编号要写入工作表A列（可自行修改目标列），在按钮点击事件中加入以下代码：

Private Sub cmdSubmit_Click()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim uniqueID As String
    
    ' 指定目标工作表（替换为你的工时表名称）
    Set ws = ThisWorkbook.Worksheets("工时记录表")
    
    ' 定位到下一个空行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 生成唯一编号：精确到秒的时间戳+3位随机数，彻底避免同一秒提交的重复问题
    uniqueID = Format(Now(), "YYYYMMDDHHMMSS") & Format(Int(Rnd() * 999), "000")
    
    ' 写入编号
    ws.Cells(lastRow, "A").Value = uniqueID
    
    ' 这里保留你原有的提交逻辑（写入工时、工作内容等）
    ' ...
    
    ' 清空窗体控件
    Me.txtWorkHours.Value = "" ' 替换为你的控件名称
    Me.txtWorkContent.Value = ""
End Sub

二、手动在工作表输入时自动生成编号 #

如果允许直接在工作表录入数据，可通过工作表事件自动为空的编号列生成编号：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    Dim uniqueID As String
    
    ' 指定编号列（这里是A列，可修改为你的目标列）
    Set rng = Intersect(Target, Me.Columns("A"))
    
    If Not rng Is Nothing Then
        Application.EnableEvents = False ' 防止触发循环事件
        
        For Each cell In rng
            ' 仅为空单元格生成编号，已存在的编号不会被覆盖
            If cell.Value = "" Then
                uniqueID = Format(Now(), "YYYYMMDDHHMMSS") & Format(Int(Rnd() * 999), "000")
                cell.Value = uniqueID
            End If
        Next cell
        
        Application.EnableEvents = True
    End If
End Sub

关键注意事项 #

• 唯一性保障：时间戳精确到秒，搭配3位随机数，重复概率可忽略；若需更极致的唯一性，可添加用户名前缀（比如Environ("Username") & "_" & uniqueID）。
• 永久固定：代码仅在单元格为空时生成编号，一旦写入就不会被后续操作修改；若要防止手动篡改，可右键编号列→设置单元格格式→保护→勾选「锁定」，再保护工作表并允许编辑其他列。
• 查询适配：生成的编号为字符串格式，不会随行的增删移位，可直接作为跨工作簿查询的主键，确保勾选状态在刷新时不丢失。

内容的提问来源于stack exchange，提问作者Carina Marshall