如何在Excel单元格内对以+分隔的多段数据按字母顺序排序？

针对100余条记录的批量处理需求，可根据自身使用的Excel版本选择对应方法，无需逐单元格手动调整内容：

方案1：Excel 365/2021及以上版本内置公式实现 #

直接在待处理单元格（假设待排序内容存放在A2单元格）相邻的空白单元格输入如下公式，下拉填充即可批量处理全部记录：
=TEXTJOIN(" + ",TRUE,SORT(TRIM(TEXTSPLIT(A2,"+"))))
公式运行逻辑：

• 按"+"符号拆分原单元格的多段文本为独立数组
• 用TRIM()清理每段文本前后的冗余空格，避免空格干扰排序优先级
• 用SORT()将清洗后的文本段按字母升序排列
• 重新以" + "（匹配原格式带前后空格的分隔符）拼接为完整文本

方案2：全Excel版本通用的VBA自定义函数实现 #

如果使用的是不支持上述动态数组函数的老版本Excel，可以通过自定义函数实现批量处理：

• 按下快捷键Alt+F11调出VBA编辑器，在左侧工程列表右键点击当前工作簿名称，依次选择「插入」-「模块」
• 在弹出的模块编辑窗口中粘贴如下代码：

Function SortCellText(InputStr As String) As String
    Dim TempArr As Variant
    Dim i As Long, j As Long
    ' 统一分隔符格式，拆分文本并清理冗余空格
    TempArr = Split(Replace(InputStr, " + ", "+"), "+")
    ' 按字母顺序对拆分后的数组元素排序
    For i = LBound(TempArr) To UBound(TempArr) - 1
        For j = i + 1 To UBound(TempArr)
            If TempArr(i) > TempArr(j) Then
                Call SwapStr(TempArr(i), TempArr(j))
            End If
        Next j
    Next i
    ' 按原格式拼接排序后的文本
    SortCellText = Join(TempArr, " + ")
End Function

Sub SwapStr(FirstStr As String, SecondStr As String)
    Dim TempStr As String
    TempStr = FirstStr
    FirstStr = SecondStr
    SecondStr = TempStr
End Sub

• 返回Excel工作表界面，在空白单元格直接调用函数即可，例如B2单元格输入=SortCellText(A2)，下拉填充完成所有记录的批量排序。

效果校验：原单元格内容为Self + Kid1 + Mother时，两种方法输出结果均为Kid1 + Mother + Self，完全匹配排序要求。

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