提取汉字拼音首字母的VBA代码：
Option Explicit
Function PY(TT As String) As Variant '自定义函数，目的：把一组汉字变为一组汉字拼音的第一个字母。
Dim i%, temp$
PY = ""
For i = 1 To Len(TT)
temp = Asc(Mid$(TT, i, 1))
If temp > 255 Or temp < 0 Then '是汉字吗？

优质内容筛选与推荐>>
1、java实现的3种排序方式，包括冒泡、选择、插入
2、2014 Multi-University Training Contest 1/HDU4864_Task(贪心)
3、实验报告五 201521430002 张实
4、计算非零元素
5、PL/SQL 找到某列都为空的列名

赞赏

长按二维码向我转账

受苹果公司新规定影响，微信 iOS 版的赞赏功能被关闭，可通过二维码转账支持公众号。

阅读

已发送

发送中