请教：是否有函数，可以将包含字母的文字的拼音首字母取出？

northwolves

QUOTE:

以下是引用rongr8266在2006-12-22 10:14:42的发言：
还有个小问题，如果文字中本来就包含字母呢，比如“WR技术社区”，能否返回为“WRJSSQ”，上面的公式好像就不可以了。

Function py(ByVal x As String) As String
On Error Resume Next
py = x
Dim i As Integer
For i = 1 To Len(x)
If Mid(x, i, 1) <> " " Then py = Replace(py, Mid(py, i, 1), Mid("ABCDEFGHJKLMNOPQRSTWXYZZ", Evaluate("MATCH(" & Asc(Mid(x, i, 1)) & ",{-20319,-20283,-19775,-19218,-18710,-18526,-18239,-17922,-17417,-16474,-16212,-15640,-15165,-14922,-14914,-14630,-14149,-14090,-13318,-12838,-12556,-11847,-11055,-10247},1)"), 1))
Next
End Function

yuanjing

vlookup函数好像能够样

amtf1234

cdyh2，高手阿/

cdyh2

QUOTE:

以下是引用amtf1234在2007-2-26 11:06:48的发言：
cdyh2，高手阿/

不敢当，学习前辈的

wwwruc

收藏了，歇息诶。