麻烦了啥，就这个：
=PHONETIC(A:A)
供参考
Function 合并(b As Range)Dim dSet d = CreateObject("Scripting.Dictionary")For Each c In b d(c.Value) = ""Next合并 = Join(d.keys, "")Set d = NothingEnd Function
字母去重？
