Excel中录入Entry 1列数据时如何对相邻Entry 2列实现增量更新

方法1：公式实现（无需启用宏，操作简单） #

假设Entry 1为A列、Entry 2为B列，表头在第1行，数据从第2行开始：
在B2单元格输入公式：
=TEXT(COUNTA(A$2:A2),"0000")
输入完成后将公式沿B列向下拖拽填充即可。只要A列对应行录入了内容，B列就会自动生成符合4位前导零规则的递增序号，输入顺序不影响最终序号的连续性。

方法2：VBA自动触发（录入后自动填充，无需手动拉公式） #

如果需要完全自动生成，可使用工作表修改事件实现：

1. 按下Alt+F11打开VBA编辑器，在左侧工程列表双击你要使用该功能的工作表
2. 在弹出的代码编辑窗口粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理Entry1列的单单元格修改，可将1改为你Entry1列对应的列号
    If Target.Column <> 1 Or Target.Cells.Count > 1 Then Exit Sub
    ' 清空Entry1内容时同步清空对应Entry2内容
    If Target.Value = "" Then
        Target.Offset(0, 1).Value = ""
        Exit Sub
    End If
    ' 统计当前Entry1列非空数据总数（减1排除表头）
    Dim seq_num As Long
    seq_num = Application.WorksheetFunction.CountA(Range("A:A")) - 1
    ' 生成4位前导零序号写入Entry2列
    Target.Offset(0, 1).Value = Format(seq_num, "0000")
End Sub

3. 关闭VBA编辑器，将文件保存为.xlsm格式（启用宏的工作簿）。后续只要在Entry1列录入新内容，对应Entry2列会自动生成符合要求的递增序号。

注意事项 #

• 如需调整前导零位数，将公式或代码中的0000修改为对应位数的0即可，比如5位就改成00000
• 如果Entry1列不是A列，将代码中Target.Column <> 1的1改为对应列号（比如C列对应3）即可

需求示例对应效果 #

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