如何在Excel中生成子类别对应分组ID的辅助列（公式/VBA均可）

以下提供Excel公式和VBA两种实现方案，可根据数据集大小选择：

方法一：Excel公式实现 #

适用于中小型数据集，操作简单无需代码。
假设列B中，分组ID是上方最近的标题行（例如分组行是文本标题，子类别是下属条目；或分组行包含特定标识），在A2单元格输入对应公式后下拉填充：

示例1：分组ID为包含特定字符的文本（如含“分组”字样） #

=IF(B2="","",IF(ISNUMBER(SEARCH("分组",B2)),B2,LOOKUP(2,1/(ISNUMBER(SEARCH("分组",B$1:B1))),B$1:B1)))

示例2：分组ID为文本，子类别为数值 #

=IF(B2="","",IF(ISTEXT(B2),B2,LOOKUP(2,1/(ISTEXT(B$1:B1)),B$1:B1)))

原理：LOOKUP(2,1/(条件),区域) 会定位到上方最后一个满足条件的行，提取对应的分组ID。

方法二：Excel VBA实现 #

适用于大型数据集，运行效率远高于公式，避免批量计算卡顿。
步骤：

1. 按 Alt+F11 打开VBA编辑器
2. 右键当前工作簿 → 插入 → 模块
3. 粘贴以下代码，根据实际需求修改判断条件：

Sub AssignGroupID()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentGroup As String
    Dim i As Long
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 修改为你的工作表名称
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    For i = 1 To lastRow
        ' 这里的判断条件可自定义：比如分组ID是含"分组"的文本，就改成 InStr(ws.Cells(i,"B"), "分组") > 0
        If Not IsEmpty(ws.Cells(i, "B")) And Not IsNumeric(ws.Cells(i, "B")) Then
            currentGroup = ws.Cells(i, "B").Value
            ws.Cells(i, "A") = currentGroup
        Else
            ws.Cells(i, "A") = currentGroup
        End If
    Next i
End Sub

4. 按 F5 运行代码，A列会自动填充对应的分组ID关联结果。

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