Excel实现C列输入名称时B列自动按输入顺序生成ID编号

注意：=ROW()-1、=COUNTA($C$2:C2)这类按行位置统计的公式仅能按行号顺序生成编号，无法满足乱序输入时按实际输入先后生成ID的需求，以下是两种可落地的有效方案：

方案1：无宏公式方案（需开启迭代计算） #

该方案不需要编写代码，仅靠内置公式即可实现，适合无法启用宏的场景：

• 先开启迭代计算配置：点击「文件」-「选项」-「公式」，勾选启用迭代计算，将「最多迭代次数」设置为1，点击确定保存设置。
• 选中B列所有需要自动生成编号的单元格（例如B2:B1000，可根据自己表格实际最大行数调整范围，不要包含表头），输入以下公式后按Ctrl+Enter批量填充到选中区域：

  =IF(C2="","",IF(B2<>"",B2,MAX($B$2:$B$1000)+1))
  

方案注意事项 #

• 公式中的$B$2:$B$1000范围要和你实际选中的B列填充范围完全一致
• 已生成编号的B列单元格不要手动清空，否则会导致后续生成的编号重复
• 清空C列对应单元格的内容时，B列编号会自动清空，不会影响其他已有编号的顺序

方案2：VBA事件方案（稳定性最优） #

如果可以启用宏，用工作表Change事件实现的效果最稳定，不会受公式重算、单元格排序影响：

• 打开需要配置的表格，按Alt+F11调出VBA编辑器
• 在左侧工程资源管理器中双击你要实现功能的工作表名称，在弹出的代码编辑区粘贴以下代码：

  Private Sub Worksheet_Change(ByVal Target As Range)
      Dim watchRng As Range, cell As Range
      Dim nextNo As Long
      ' 仅监控C列（name列）的内容修改
      Set watchRng = Intersect(Target, Me.Columns("C"))
      If watchRng Is Nothing Then Exit Sub
      
      Application.EnableEvents = False
      For Each cell In watchRng
          nextNo = Application.WorksheetFunction.Max(Me.Columns("B")) + 1
          If cell.Value <> "" Then
              ' 仅当对应B列为空时生成新编号，已有编号不改动
              If VBA.IsEmpty(Me.Cells(cell.Row, "B")) Then
                  Me.Cells(cell.Row, "B").Value = nextNo
              End If
          Else
              ' C列内容清空时同步清空对应B列编号
              Me.Cells(cell.Row, "B").ClearContents
          End If
      Next
      Application.EnableEvents = True
  End Sub
  

• 粘贴完成后关闭VBA编辑器，将表格保存为.xlsm（启用宏的工作簿）格式即可生效。后续在C列任意单元格输入名称，对应B列都会按输入先后顺序自动生成从1开始的递增ID，完全匹配你举例的输入顺序效果。

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