在Excel中经常会涉及到很多的名单表格,想把姓名转换成拼音首字母,这又有什么技巧的呢?
今天小编就为大家分享这篇教程,希望对大家有所帮助 。
文章插图
1、导入一张含有姓名的表格,把姓名放到A列中,在B列中将要导出拼音 。
文章插图
2、现在我们按住Alt+F11,打开VB编辑窗口,单击插入——模块,弹出代码编辑框 。
文章插图
3、在代码编辑框中输入:
Option Explicit
Function PY(TT As String) As Variant
Dim i%, temp$
PY = ""
【怎样在Excel中将汉字姓名转换成首字母科普大全】For i = 1 To Len(TT)
temp = Asc(Mid$(TT, i, 1))
If temp > 255 Or temp < 0 Then
PY = PY & pinyin(Mid$(TT, i, 1))
Else
PY = PY & LCase(Mid$(TT, i, 1))
End If
Next i
End Function
Function pinyin(myStr As String) As Variant
On Error Resume Next
myStr = StrConv(myStr, vbNarrow)
If Asc(myStr) > 0 Or Err.Number = 1004 Then pinyin = ""
pinyin = Application.WorksheetFunction.VLookup(myStr, [{"吖","A";"八","B";"嚓","C";"搭","D";"蛾","E";"发","F";"噶","G";"铪","H";"击","J";"咔","K";"垃","L";"妈","M";"拿","N";"噢","O";"啪","P";"七","Q";"然","R";"仨","S";"他","T";"挖","W";"夕","X";"压","Y";"座","Z"}], 2)
End Function
关闭VB窗口 。
文章插图
4、现在转到工作表中,我们在B2中输入=PY(A2),回车我们就看到姓名的拼音首字母显示出来了 。
文章插图
文章插图
5、我们用填充手柄把B列中的单元格全部填满,这时候我们要的效果就出现了 。
文章插图
推荐阅读
- 怎么设置excel公式计算司龄工资推荐阅读
- Excel中获取汉字区位码的公式读懂您就是高手
- 百度图片识别搜索引擎[技能提升]
- 优步打车怎样付费猜你喜欢的
- 几年前的Qq留言怎么恢复[图文]
- 双系统切换图文教程欢迎阅读
- 手机QQ怎么管理单向好友[技能提升]
- QQ特别关心在线提醒2020教程资讯
- uc浏览器听完歌缓存文件欢迎阅读
- Word应用技巧之“福到了”高手进阶