以智能的方式按字母顺序对逗号分隔的字符串进行排序

Question

我有一根看起来像

"Carol, Ernie, Alice, Bob, Dave"

我想把它传递给一个对它进行排序的VBA函数，这样它就变成了

"Alice, Bob, Carol, Dave, Ernie"

是否有一种聪明的方法可以通过不需要大量自定义代码的内置函数来做到这一点，或者我运气不好？

Answer 1

在https://stackoverflow.com/a/45379461/2193968使用这个想法

这应该是可行的：

Function SortCSV(Value As String)
    Set Arr = CreateObject("System.Collections.ArrayList")
    For Each Item In Split(Value, ",")
        Arr.Add Trim(Item)
    Next
    Arr.Sort
    SortCSV = Join(Arr.ToArray, ",")
    Set Arr = Nothing
End Function