Excel插入任意位置行时自动递增ID列的实现可行性问询

完全可以实现，需要用VBA代码监听工作表的行插入事件，配合你要求的max_value命名单元格完成，具体步骤如下：

1. 设置max_value命名单元格 #

• 选一个闲置单元格（比如B1），输入当前A列ID的最大值作为初始值
• 点击公式栏左侧的名称框，输入max_value后回车，完成单元格命名

2. 添加工作表事件VBA代码 #

• 右键目标工作表的标签（比如Sheet1），选择「查看代码」
• 在弹出的VBE编辑器中，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim insertedRow As Range
    ' 判断是否插入了行
    If Target.Rows.Count > 0 And Target.Columns.Count = Me.Columns.Count Then
        ' 遍历所有插入的行（支持批量插入）
        For Each insertedRow In Target.Rows
            ' 更新max_value的值
            ThisWorkbook.Names("max_value").RefersToRange.Value = ThisWorkbook.Names("max_value").RefersToRange.Value + 1
            ' 给新行的A列赋值更新后的max_value
            Me.Cells(insertedRow.Row, "A").Value = ThisWorkbook.Names("max_value").RefersToRange.Value
        Next insertedRow
    End If
End Sub

3. 保存与启用宏 #

• 将文件保存为**Excel启用宏的工作簿（.xlsm）**格式
• 每次打开文件时，需启用宏才能触发自动ID功能

注意事项 #

• 手动修改max_value的值后，后续插入新行会基于修改后的值继续递增
• 代码支持批量插入多行，每一行都会分配唯一递增的ID

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