vickylikeu的博客

原创 EXCEL姓名转换为拼音缩写

打开office Excel，Alt+F11打开VBA界面。在工程 project处右键插入模块，复制以下代码。Function pinyin(p As String) As Stringi = Asc§Select Case iCase -20319 To -20284: pinyin = “A”Case -20283 To -19776: pinyin = “B”Case -19775 To -19219: pinyin = “C”Case -19218 To -18711: pinyin