嘿，这个需求我太熟了！给你整理了三个不同场景下的实用方法，不管你是小数据快速处理，还是大数据自动化，都能轻松搞定：

一、公式法（新手友好，快速出结果） #

假设你的原始物种数据在A列（A1是表头，数据从A2开始），直接在B2单元格敲下面这个公式，然后下拉填充到所有行就行：

=LEFT(A2,FIND(" ",A2)-1)&" "&COUNTIF($A$2:A2,LEFT(A2,FIND(" ",A2)-1)&" *")

公式逻辑拆解： #

• LEFT(A2,FIND(" ",A2)-1)：先把前面的组名（Cat/Dog/Human）提取出来
• COUNTIF($A$2:A2,xxx)：从A2到当前行，统计同组的个体数量，自然就是该个体在组内的顺序号
• 最后把组名和序号拼在一起，完美得到你要的格式

要是你的组名和后缀之间不是空格（比如下划线），把公式里的" "换成对应的分隔符就行，灵活得很！

二、Power Query法（大数据/自动更新首选） #

如果数据量超大，或者之后还要不断新增个体，用Power Query来自动化处理最合适：

1. 选中你的数据区域，点击数据选项卡 → 从表格/区域（记得勾选“我的表格有标题”）
2. 进入Power Query编辑器后，点添加列 → 自定义列，输入这段代码（把[物种]换成你实际的列名）：

let
    组名 = Text.BeforeDelimiter([物种], " "),
    组内序号 = Table.RowCount(Table.SelectRows(#"Changed Type", each Text.BeforeDelimiter([物种], " ") = 组名))
in
    组名 & " " & Text.From(组内序号)

3. 点击关闭并上载，结果会自动生成在新工作表里，之后只要右键刷新，新增的个体就会自动按顺序编号，完全不用手动改！

三、VBA宏（重复操作省时间） #

要是你经常要做这个重命名操作，写个小宏一键搞定：
按Alt+F11打开VBA编辑器，插入一个新模块，粘贴下面的代码：

Sub RenameSpeciesByGroup()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim groupName As String
    Dim seqNum As Integer
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从第二行开始遍历数据（第一行是表头）
    For i = 2 To lastRow
        ' 拆分出组名
        groupName = Split(ws.Cells(i, "A").Value, " ")(0)
        ' 统计当前组到本行的累计数量
        seqNum = Application.WorksheetFunction.CountIf(ws.Range("A2:A" & i), groupName & " *")
        ' 写入重命名后的内容到B列
        ws.Cells(i, "B").Value = groupName & " " & seqNum
    Next i
End Sub

回到Excel按Alt+F8，选中这个宏运行就行，几秒钟就搞定所有重命名！

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