基于Excel表格非空行生成连续编号的非易失性单公式问询

直接在编号列首单元格（如A2）输入以下公式，会自动溢出填充所有行，跳过空行生成连续编号，且支持数据动态扩展：

=LET(
    name_col, B2:B11,  // 替换为你的姓名列实际范围，用结构化表列名（如Table1[姓名]）可自动适配新增行
    IF(name_col="", "", SCAN(0, name_col, LAMBDA(acc, curr, IF(curr<>"", acc+1, acc))))
)

• 核心逻辑：
  • LET定义变量简化公式，属于非易失性函数
  • SCAN逐行遍历姓名列，遇到非空单元格就累加计数，空行则保留当前计数，最后用IF把空行的编号置空
  • 若使用Excel结构化表（Ctrl+T创建），将name_col替换为表的姓名列引用，新增数据行时公式会自动扩展

如果你的Excel版本不支持动态数组，或需要自动响应数据变化，可使用VBA：

手动运行宏版本 #

1. 按Alt+F11打开VBA编辑器
2. 右键目标工作簿→插入→模块，粘贴以下代码：

Sub AutoNumberNames()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long, count As Long
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")  ' 替换为你的工作表名
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row  ' 姓名列是B列，按需修改
    count = 0
    
    ws.Range("A2:A" & lastRow).ClearContents
    
    For i = 2 To lastRow
        If ws.Cells(i, "B").Value <> "" Then
            count = count + 1
            ws.Cells(i, "A").Value = count
        End If
    Next i
End Sub

运行宏即可生成编号。

自动更新版本（工作表事件） #

双击VBA编辑器左侧的目标工作表，粘贴以下代码，姓名列数据变化时会自动更新编号：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lastRow As Long, i As Long, count As Long
    
    If Not Intersect(Target, Me.Columns("B")) Is Nothing Then
        lastRow = Me.Cells(Me.Rows.Count, "B").End(xlUp).Row
        count = 0
        
        Me.Range("A2:A" & lastRow).ClearContents
        
        For i = 2 To lastRow
            If Me.Cells(i, "B").Value <> "" Then
                count = count + 1
                Me.Cells(i, "A").Value = count
            End If
        Next i
    End If
End Sub

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