插入新行时自动生成静态递增EMP_ID的VBA实现方法

核心思路 #

• 放弃SEQUENCE、ROW这类函数方案（它们会随行位置变动或排序改变），改用VBA在插入新行时直接写入静态数值
• 插入新行时自动检测EMP_ID列的最大整数，生成下一个序列值（比如当前最大是50，新行就填51）
• 因为是静态值，后续排序、移动行都不会改变已生成的EMP_ID

具体VBA代码实现 #

把代码放到对应工作表的模块里，代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim empIdCol As Integer
    Dim maxId As Long
    Dim newRow As Range
    
    ' 替换成你EMP_ID实际所在的列号，比如A列=1，B列=2，以此类推
    empIdCol = 1
    
    ' 只处理整行插入的情况，且新行在表格数据范围内
    If Target.Rows.Count = 1 And Target.Columns.Count = Me.UsedRange.Columns.Count Then
        Set newRow = Target
        
        ' 仅当新行的EMP_ID单元格为空时自动填充
        If IsEmpty(newRow.Cells(1, empIdCol)) Then
            ' 获取当前EMP_ID列的最大整数
            maxId = Application.WorksheetFunction.Max(Me.Columns(empIdCol))
            
            ' 无数据时从1开始，否则取最大值+1
            newRow.Cells(1, empIdCol).Value = IIf(maxId = 0, 1, maxId + 1)
        End If
    End If
End Sub

使用步骤 #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧工程面板里找到对应的工作表（比如Sheet1），双击打开它的代码窗口
3. 粘贴上面的代码，记得修改empIdCol的值匹配你的EMP_ID列
4. 保存文件为启用宏的工作簿（.xlsm格式），否则宏无法保存

注意事项 #

• 插入整行、或者在表格末尾敲回车添加新行时，都会自动触发填充EMP_ID
• 生成的是纯静态数值，排序、移动行都不会让已有的EMP_ID变动
• 手动修改EMP_ID后，下次插入新行仍会取当前列的最大值+1，不影响后续序列生成

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