如何创建删除其他行后仍保持不变的增量索引编号？

Power Query自带的索引列是动态生成的，源数据删行后所有索引会重新排序。要给每行分配永久唯一的索引值，即使其他行被删除，对应行的索引也不会改变，下面分别用Power Query和VBA两种方法实现：

Power Query方法 #

核心思路：把索引值持久化存储到源数据中，而不是仅在查询里临时生成。

1. 首次给源数据添加永久索引 #

• 导入源数据到Power Query，添加索引列（建议从1开始，更符合日常使用习惯）
• 将处理后的数据加载回源数据表格（比如Excel的ListObject），让索引列成为源数据的一部分。

示例：
原表格：

添加索引并保存回源数据后：

2. 后续查询直接引用永久索引 #

之后再做数据处理时，不再重新生成索引列，直接使用源数据里的永久索引列。这样即使删除第一行，剩余行的索引依然保留：

3. 新增行自动分配新索引 #

如果需要给新增行自动分配不重复的索引，可以用以下M语言代码在Power Query中实现：

let
    源 = Excel.CurrentWorkbook(){[Name="Table1"]}[Content], // 替换为你的表格名称
    最大索引 = List.Max(源[永久索引]),
    添加新索引 = Table.AddColumn(源, "新索引", each if [永久索引] = null then 最大索引 + 1 else [永久索引]),
    替换空值 = Table.ReplaceValue(添加新索引,null,最大索引+1,Replacer.ReplaceValue,{"新索引"}),
    整理列 = Table.RenameColumns(Table.RemoveColumns(替换空值,{"永久索引"}),{{"新索引", "永久索引"}})
in
    整理列

运行后刷新查询，再将数据加载回源表格即可。

VBA方法 #

适合需要在Excel中自动维护永久索引的场景，新增行自动分配索引，删除行不改变现有索引。

1. 准备工作 #

在Excel表格中插入一列，命名为永久索引。

2. 编写自动维护的VBA代码 #

打开VBA编辑器（按Alt+F11），找到对应的工作表，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tbl As ListObject
    Dim maxIndex As Long
    Dim rowNum As Long
    
    Set tbl = Me.ListObjects("Table1") ' 替换为你的表格名称
    If Intersect(Target, tbl.DataBodyRange) Is Nothing Then Exit Sub
    
    Application.EnableEvents = False ' 避免触发循环
    
    ' 获取当前最大索引值
    maxIndex = IIf(IsEmpty(tbl.ListColumns("永久索引").DataBodyRange), 0, Application.WorksheetFunction.Max(tbl.ListColumns("永久索引").DataBodyRange))
    
    ' 遍历所有行，为空的索引列分配新值
    For rowNum = 1 To tbl.ListRows.Count
        If tbl.ListRows(rowNum).Range.Columns(tbl.ListColumns("永久索引").Index).Value = "" Then
            maxIndex = maxIndex + 1
            tbl.ListRows(rowNum).Range.Columns(tbl.ListColumns("永久索引").Index).Value = maxIndex
        End If
    Next rowNum
    
    Application.EnableEvents = True
End Sub

以后只要在表格里新增行，永久索引列会自动填充不重复的数值；删除行时，剩余行的索引不会变动。

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