Excel中为字符串内重复出现的Summary添加序号的方法求助

方法1：动态数组公式（Excel 365/2021及以上） #

利用TEXTSPLIT、SEQUENCE和TEXTJOIN的组合，一键完成拆分、处理与合并：

=TEXTJOIN("|",,SUBSTITUTE(TEXTSPLIT(A1,"|"),"Summary","Summary"&SEQUENCE(COUNTIF(TEXTSPLIT(A1,"|"),"*Summary*"))))

公式说明： #

1. TEXTSPLIT(A1,"|")：将原字符串按|拆分为独立的子片段数组
2. COUNTIF(...)：统计含“Summary”的子片段数量，确定序号最大值
3. SEQUENCE(...)：生成从1开始的连续序号数组
4. SUBSTITUTE(...)：为每个子片段中的“Summary”追加对应序号
5. TEXTJOIN("|",,...)：将处理后的子片段用|重新拼接为完整字符串

如果存在不含“Summary”的子片段，可调整为：

=TEXTJOIN("|",,SUBSTITUTE(TEXTSPLIT(A1,"|"),"Summary",IF(ISNUMBER(SEARCH("Summary",TEXTSPLIT(A1,"|"))),"Summary"&SEQUENCE(ROWS(TEXTSPLIT(A1,"|"))),"")))

方法2：兼容旧版Excel的公式（2013及以上） #

借助FILTERXML实现字符串拆分，配合ROW生成序号：

=TEXTJOIN("|",,SUBSTITUTE(FILTERXML("<t><s>"&SUBSTITUTE(A1,"|","</s><s>")&"</s></t>","//s"),"Summary","Summary"&ROW(INDIRECT("1:"&LEN(A1)-LEN(SUBSTITUTE(A1,"|",""))+1))))

注：部分旧版Excel需按Ctrl+Shift+Enter作为数组公式输入

公式说明： #

1. SUBSTITUTE(A1,"|","</s><s>")：将分隔符替换为XML标签格式
2. FILTERXML(...)：解析XML字符串，提取所有子片段
3. ROW(INDIRECT(...))：根据分隔符数量生成对应序号
4. SUBSTITUTE+TEXTJOIN：完成替换与拼接

方法3：VBA宏（灵活处理任意场景） #

适合批量处理或需重复操作的场景，步骤如下：

1. 按Alt+F11打开VBA编辑器
2. 右键点击当前工作簿→插入→模块
3. 粘贴以下代码：

Sub AddSummarySerialNumbers()
    Dim targetCell As Range
    Dim originalStr As String
    Dim splitParts() As String
    Dim index As Integer
    
    ' 遍历选中的所有单元格
    For Each targetCell In Selection
        originalStr = targetCell.Value
        ' 按|拆分字符串
        splitParts = Split(originalStr, "|")
        
        ' 为每个子片段的Summary添加序号
        For index = LBound(splitParts) To UBound(splitParts)
            splitParts(index) = Replace(splitParts(index), "Summary", "Summary" & (index + 1))
        Next index
        
        ' 拼接回原格式并写入单元格
        targetCell.Value = Join(splitParts, "|")
    Next targetCell
End Sub

4. 返回Excel，选中需处理的单元格，按Alt+F8选择AddSummarySerialNumbers运行即可

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