这个可以有。只要自定义一个拼音函数就行了。
插入一个模块，代码如下：
－－－－－－－－－－－－
Option Compare TextFunction PY(ByVal rng As Range) Dim i%, k%, str$
str = Replace(Replace(rng, " ", ""), " ", "") For i = 1 To Len(str) k = 1 Do Until Mid("八嚓哒妸发旮铪讥讥咔垃妈拿哦妑七然仨他哇哇哇夕丫匝咗", k, 1) > Mid(str, i, 1) k = k + 1 Loop PY = PY & Chr(64 + k) NextEnd Function
－－－－－－－－－－－
那么PY就是个首字母的拼音函数了，按正常函数使用。如
－－－－－－－－－－－－－－－－－－－－－－－－－
