如何在Google Sheets/Excel中无需拖动自动填充分组递增序列？

方法一：公式法（无需宏，适合中小数据量） #

假设初始数据在A列，在旁边插入辅助列（比如B列），在B1单元格输入以下公式，然后下拉填充到所有行：

=IF(A1<>"",A1,TEXTBEFORE(INDEX(A:A,MAX((A$1:A1<>"")*ROW(A$1:A1))),"-")&"-"&(TEXTAFTER(INDEX(A:A,MAX((A$1:A1<>"")*ROW(A$1:A1))),"-")+COUNTBLANK(INDEX(A:A,MAX((A$1:A1<>"")*ROW(A$1:A1))):A1)))

公式逻辑：

• 定位当前行上方最近的非空单元格值
• 拆分出前缀（如145-）和初始数字
• 统计最近非空行到当前行的空白行数，加到初始数字上生成递增后的数值

填充完成后，可将B列值复制粘贴为数值到A列，再删除辅助列。

方法二：Power Query法（批量处理，适合大数据量） #

1. 选中数据列，点击「数据」选项卡 → 「从表格/区域」（Excel 2016及以上版本支持）
2. 在Power Query编辑器中，选中目标列，点击「转换」→ 「填充」→ 「向下」，将空白行先填充为上方的初始值
3. 点击「添加列」→ 「索引列」→ 「从1开始」
4. 添加自定义列，输入公式（将列1替换为你的实际列名）：

= [列1] & "-" & Text.From(Table.RowCount(Table.SelectRows(#"添加索引", (x) => x[列1] = [列1] and x[索引] <= [索引])))

5. 删除原数据列和索引列，关闭并上载结果到Excel，替换原数据即可。

方法三：VBA宏（一键批量处理） #

按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码，按F5运行即可自动完成填充：

Sub FillIncrementalNumbers()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    Dim baseValue As String
    Dim prefix As String, num As Integer
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    i = 1
    Do While i <= lastRow
        If ws.Cells(i, "A").Value <> "" Then
            baseValue = ws.Cells(i, "A").Value
            prefix = Left(baseValue, InStr(baseValue, "-") - 1) & "-"
            num = CInt(Right(baseValue, Len(baseValue) - InStr(baseValue, "-")))
            j = i + 1
            Do While j <= lastRow And ws.Cells(j, "A").Value = ""
                num = num + 1
                ws.Cells(j, "A").Value = prefix & num
                j = j + 1
            Loop
            i = j
        Else
            i = i + 1
        End If
    Loop
End Sub

注意：运行宏前建议先备份数据，避免意外修改。

内容的提问来源于stack exchange，提问作者Ianthe MB Dempsey