如何用Arrayformula/溢出公式生成遇空白重启的序列编号？

公式方案（优先推荐） #

利用SCAN函数实现逐行累计计数，避免循环引用，同时结合辅助列或主任务列判断重置计数。

基于主任务列（B列）的实现 #

假设B列为主任务标题列（主任务行有内容，子任务行空白），C列为编号列，在C3单元格输入以下公式：

=ARRAYFORMULA(LET(
    task_col, B3:B,
    count_seq, SCAN(0, task_col, LAMBDA(acc, curr, IF(LEN(curr)>0, 0, acc+1))),
    IF(LEN(task_col)>0, "", count_seq)
))

逻辑说明：

1. LET函数定义变量简化公式，task_col指向主任务列范围
2. SCAN从初始值0开始遍历主任务列：
   • 若当前行是主任务（curr有内容），将累计值重置为0
   • 若当前行是子任务（curr空白），累计值加1
3. 最后通过IF判断，主任务行返回空白，子任务行返回累计计数结果

基于辅助列（标记primary/secondary）的实现 #

假设D列为辅助列（值为primary或secondary），C列为编号列，在C3单元格输入：

=ARRAYFORMULA(LET(
    type_col, D3:D,
    count_seq, SCAN(0, type_col, LAMBDA(acc, curr, IF(curr="primary", 0, acc+1))),
    IF(type_col="primary", "", count_seq)
))

逻辑说明：

• 用辅助列的primary标记触发计数重置，secondary标记执行累计加1
• 主任务行（primary）返回空白，子任务行（secondary）返回连续编号

VBA方案 #

若需要用VBA实现自动更新，可添加工作表事件代码：

1. 打开目标工作表的VBA编辑器（右键工作表标签→查看代码）
2. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lastRow As Long
    Dim i As Long
    Dim subTaskCount As Integer
    
    ' 自定义列标，根据实际表格调整
    Const TYPE_COL As String = "D"   ' 辅助列（primary/secondary）
    Const NUM_COL As String = "C"    ' 编号列
    
    lastRow = Me.Cells(Me.Rows.Count, TYPE_COL).End(xlUp).Row
    subTaskCount = 0
    
    Application.EnableEvents = False ' 避免触发重复事件
    For i = 3 To lastRow
        Select Case Me.Cells(i, TYPE_COL).Value
            Case "primary"
                Me.Cells(i, NUM_COL).Value = ""
                subTaskCount = 0
            Case "secondary"
                subTaskCount = subTaskCount + 1
                Me.Cells(i, NUM_COL).Value = subTaskCount
        End Select
    Next i
    Application.EnableEvents = True
End Sub

逻辑说明：

• 监听工作表内容变化，自动重新计算子任务编号
• 遇到primary行清空编号并重置计数，secondary行递增计数并写入编号列
• Application.EnableEvents = False防止循环触发事件

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