需求：编写Excel VBA宏自动生成连续唯一UID并填充A列

原代码问题分析 #

• 循环逻辑错误：Do Until IsEmpty(Range("Mlist[ID]")) 仅会检查第一个单元格是否为空，无法遍历整个列获取最大ID值
• 固定目标单元格：硬编码A5，无法对应B列新增内容的动态行
• 缺少自动触发机制：需要手动运行宏，无法实现B列添加内容时自动生成ID

正确的VBA实现代码 #

打开Excel的VBA编辑器（按Alt + F11），找到对应Items工作表，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim maxID As Long
    Dim currentRow As Long
    Dim lastRow As Long
    Dim cell As Range
    Dim i As Integer
    Dim currentNum As Long
    
    ' 仅处理B列的单元格变更
    If Not Intersect(Target, Me.Columns("B")) Is Nothing Then
        ' 遍历所有变更的单元格
        For Each cell In Target
            currentRow = cell.Row
            ' 若B列单元格为空，清空对应A列内容
            If cell.Value = "" Then
                Me.Cells(currentRow, "A").ClearContents
                GoTo NextCell
            End If
            
            ' 获取A列已有的最大ID数值
            lastRow = Me.Cells(Me.Rows.Count, "A").End(xlUp).Row
            If lastRow = 1 And Me.Cells(1, "A").Value = "" Then
                maxID = 0
            Else
                ' 先尝试用Max函数提取最大数值（适用于A列为数值格式的情况）
                maxID = Application.Max(Me.Range("A1:A" & lastRow).Value)
                ' 若A列为纯文本格式，手动提取UID中的数字部分
                If IsError(maxID) Then
                    maxID = 0
                    For i = 1 To lastRow
                        If Me.Cells(i, "A").Value Like "UID-####" Then
                            currentNum = CLng(Mid(Me.Cells(i, "A").Value, 5, 4))
                            If currentNum > maxID Then maxID = currentNum
                        End If
                    Next i
                End If
            End If
            
            ' 生成格式为UID-0001的新ID并写入对应A列
            Me.Cells(currentRow, "A").Value = "UID-" & Format(maxID + 1, "0000")
NextCell:
        Next cell
    End If
End Sub

代码说明 #

• 自动触发：通过Worksheet_Change事件，当B列单元格内容新增或修改时自动执行
• 动态匹配行：根据B列变更单元格的所在行，自动在对应A列位置生成ID
• ID连续性：自动识别A列已存在的最大UID数字部分，生成下一个连续编号
• 格式兼容：同时支持A列为数值格式或纯文本格式的情况，确保ID提取准确
• 空值处理：若B列单元格被清空，对应A列的ID也会同步清空

使用注意事项 #

• 确保目标工作表名称为Items，若名称不同，将代码中的Me替换为Worksheets("你的工作表名称")
• 若A列已有历史UID，需保证格式为UID-0001这类四位数字的规范格式，否则需先手动调整后再使用

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