Excel 2013中如何为表格新增行自动填充连续的控制编号序列

方案1：智能表+公式实现（无需启用宏） #

• 步骤1：选中包含表头的所有现有数据区域，按快捷键Ctrl+T，在弹出的对话框勾选「表包含标题」，点击确定将普通区域转换为Excel智能表。
• 步骤2：假设控制编号列为A列，A2单元格已填入初始值X27906，选中A3单元格输入公式：="X"&TEXT(RIGHT(A2,5)+1,"00000")，按回车后智能表会自动将公式同步到整列。
• 步骤3：后续只要在表的最后一行按回车新增行，控制编号会自动按规则生成连续值。
• 步骤4：如需禁止修改控制编号：选中所有允许编辑的列，右键选择「设置单元格格式」→「保护」，取消勾选「锁定」；再选中控制编号整列，同路径勾选「锁定」和「隐藏」；最后切换到「审阅」选项卡→「保护工作表」，设置密码后仅勾选「选定未锁定的单元格」，确认后控制编号就无法被随意修改。

方案2：VBA实现（稳定性更高，避免删行导致编号错乱） #

• 步骤1：按快捷键Alt+F11打开VBA编辑器，在左侧项目面板双击当前使用的工作表名称，调出代码编辑窗口。
• 步骤2：粘贴如下代码（如果控制编号不在A列，把ControlCol = 1里的1改成对应列的序号即可，比如B列填2）：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ControlCol As Long, LastRow As Long
    ControlCol = 1 ' 控制编号所在列的序号，可自行修改
    If Target.Row > 1 And Target.Rows.Count = 1 Then
        LastRow = Cells(Rows.Count, ControlCol).End(xlUp).Row
        If Cells(Target.Row, ControlCol) = "" And Target.Row = LastRow + 1 Then
            Application.EnableEvents = False
            Cells(Target.Row, ControlCol) = "X" & Format(Right(Cells(LastRow, ControlCol), 5) + 1, "00000")
            Application.EnableEvents = True
        End If
    End If
End Sub

• 步骤3：保存文件时选择「Excel 启用宏的工作簿（*.xlsm）」格式，后续新增行时会自动生成连续控制编号，配合工作表保护设置即可实现编号不可修改。

自定义调整说明 #

如果控制编号前缀不是X、数字位数不是5位，对应修改公式或VBA代码里的前缀字符、RIGHT函数的提取位数、TEXT/Format里的位数模板即可，比如前缀为Y、6位数字的规则，公式可调整为="Y"&TEXT(RIGHT(A2,6)+1,"000000")。

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