Excel单列基于系列历史值自动填充后续连续序列需求

方法1：基础COUNTIF公式（兼容全版本Excel） #

假设系列标识列是A列（如A10、A12输入22），序号填充列是B列，在B10单元格输入公式：
=COUNTIF($A$1:A9, A10) + 1
按回车后B10会自动生成3；同理在B12输入：
=COUNTIF($A$1:A11, A12) + 1
会生成4。

• 原理：COUNTIF($A$1:A9, A10)统计当前单元格上方所有行中22的出现次数，加1就是当前系列的下一个连续序号
• 下拉公式时，$A$1锁定起始行，范围会自动扩展到当前行的上一行，无需手动调整

方法2：动态数组公式（适用于Excel 365/2021） #

如果使用新版Excel，可实现整列自动计算，无需逐个输入公式：
在B1单元格输入以下公式，公式会自动溢出填充整列：
=BYROW(A:A, LAMBDA(x, IF(x="", "", COUNTIF($A$1:INDEX(A:A,ROW(x)-1), x)+1)))

• 效果：只要A列输入系列标识（11/22），B列对应行自动生成序号；A列清空时，B列同步清空

方法3：VBA自动触发（适合批量操作场景） #

若需要输入标识后自动填充，无需手动输入公式，可通过VBA实现：

1. 按下Alt+F11打开VBA编辑器
2. 双击左侧对应工作表，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Set rng = Intersect(Target, Me.Columns("A"))
    If rng Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    Dim cell As Range
    For Each cell In rng
        If cell.Value <> "" Then
            cell.Offset(0, 1).Value = Application.WorksheetFunction.CountIf(Me.Range("A1:A" & cell.Row - 1), cell.Value) + 1
        Else
            cell.Offset(0, 1).ClearContents
        End If
    Next cell
    Application.EnableEvents = True
End Sub

3. 保存文件为.xlsm格式，之后在A列输入11或22，右侧B列会自动生成对应序号

内容的提问来源于stack exchange，提问作者Pranav Ramanand Kulkarni