如何用VBA内置函数高效对逗号分隔字符串按字母排序？

可以借助Excel的WorksheetFunction.Sort内置函数实现，无需编写自定义排序逻辑，步骤简洁：

• 用Split函数将逗号分隔字符串拆分为数组
• 调用WorksheetFunction.Sort对数组进行升序排序
• 用Join函数将排序后的数组重新拼接为目标格式的字符串

完整代码示例 #

Sub SortCommaSeparatedString()
    Dim originalStr As String
    Dim sortedArr As Variant
    Dim sortedStr As String
    
    originalStr = "Carol, Ernie, Alice, Bob, Dave"
    ' 先去除字符串中的空格，再拆分；若原字符串无空格可省略Replace部分
    sortedArr = WorksheetFunction.Sort(Split(Replace(originalStr, " ", ""), ","))
    ' 拼接回带空格的逗号分隔格式
    sortedStr = Join(sortedArr, ", ")
    
    Debug.Print sortedStr ' 输出结果：Alice, Bob, Carol, Dave, Ernie
End Sub

补充说明 #

• 若使用Excel 2019之前的版本，可替换为WorksheetFunction.SortA（固定升序），用法一致
• 如果原字符串的逗号后无空格，直接用Split(originalStr, ",")拆分即可，无需Replace处理

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