如何制作同时包含数字与字母的混合有序列表？

问题背景 #

你的单元格内包含3个以换行分隔的列表项，需要将其转换为「数字编号大项 + 字母编号子项」的格式，例如：

1. a. 第一点 b. 第二点 c. 第三点
2. a. 第一点 b. 第二点 c. 第三点
3. a. 第一点 b. 第二点 c. 第三点

之前使用的公式逻辑有误，无法实现嵌套编号需求，以下提供两种可行方案：

方案1：Excel 365/2021 公式实现 #

适用于支持动态数组和LAMBDA函数的新版本Excel，假设目标单元格为I3，子项以空格分隔（可按需修改分隔符）：

=LET(
    原始内容, I3,
    大项列表, TEXTSPLIT(原始内容, CHAR(10)),
    子项分隔符, " ",
    生成字母前缀, LAMBDA(n, CHAR(96 + n)&". "),
    处理单大项, LAMBDA(大项, TEXTJOIN(" ", TRUE, MAP(SEQUENCE(COUNTA(TEXTSPLIT(大项, 子项分隔符))), 生成字母前缀)&TEXTSPLIT(大项, 子项分隔符))),
    TEXTJOIN(CHAR(10), TRUE, SEQUENCE(ROWS(大项列表))&". "&MAP(大项列表, 处理单大项))
)

公式说明：

1. TEXTSPLIT(原始内容, CHAR(10))：将单元格内的换行内容拆分为独立大项
2. 生成字母前缀：通过ASCII码生成a.、b.这类子项前缀
3. 处理单大项：拆分每个大项的子项，为子项添加字母前缀后合并
4. 最后为每个大项添加数字编号，用换行合并成最终格式

方案2：旧版Excel VBA宏实现 #

如果你的Excel版本不支持动态数组，可使用VBA宏批量处理：

Sub 生成嵌套编号()
    Dim 源单元格 As Range
    Dim 原始文本 As String
    Dim 大项数组() As String
    Dim 子项数组() As String
    Dim 结果文本 As String
    Dim i As Integer, j As Integer
    
    ' 配置参数
    Set 源单元格 = ThisWorkbook.ActiveSheet.Range("I3") ' 替换为你的源单元格地址
    Dim 子项分隔符 As String: 子项分隔符 = " " ' 替换为实际子项分隔符
    
    原始文本 = 源单元格.Value
    大项数组 = Split(原始文本, vbLf)
    
    For i = LBound(大项数组) To UBound(大项数组)
        子项数组 = Split(大项数组(i), 子项分隔符)
        结果文本 = 结果文本 & (i + 1) & ". "
        For j = LBound(子项数组) To UBound(子项数组)
            结果文本 = 结果文本 & Chr(97 + j) & ". " & 子项数组(j) & " "
        Next j
        结果文本 = Left(结果文本, Len(结果文本) - 1) & vbLf ' 移除末尾多余空格并换行
    Next i
    
    ' 将结果输出到源单元格右侧
    源单元格.Offset(0, 1).Value = Left(结果文本, Len(结果文本) - 1)
End Sub

使用方法：

1. 按Alt + F11打开VBA编辑器
2. 插入新模块，粘贴上述代码
3. 修改代码中的源单元格地址和子项分隔符为实际值
4. 运行宏，结果会输出到源单元格的右侧单元格

关于之前公式的问题 #

你之前使用的公式仅简单拼接行号和替换字符，没有对大项、子项进行拆分和针对性编号，因此无法生成符合要求的嵌套编号格式。

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