返回
excel自动提取姓名首字母拼音（中文怎么快速转成拼音呢）
excel自动提取姓名首字母拼音（中文怎么快速转成拼音呢）
2024-11-22 12:08:48  作者:越傻越爱你  网址:https://m.xinb2b.cn/life/xug457161.html

用Excel收集统计个人信息时，会遇见各种各样的问题。例如：我们需要将中文姓名转换成首字母拼音的形式，这时候该怎么操作呢？

你还在一个一个的输入吗？这样太麻烦了，接下来让我们使用VBA，快速将中文转换成拼音首字母的形式，简单便捷，快来试试吧！


打开Microsoft Excel工作簿，如果Excel文件后缀名是“xlsx”，请先将Excel文档另存为“xls”或者“xlsm”类型。

右键单击Sheet1工作表，选中右键菜单中的查看代码。


在Microsoft Visual Basic for Applications窗口中，右键单击工程资源管理器窗口中的空白位置，将鼠标指针移动至插入，选中模块。

接着将以下代码复制粘贴至模块1的代码窗口中，点击保存后退出Visual Basic编辑器。


代码区域

Function Getpychar(char)

temp = 65536 Asc(char)

If (temp >= 45217 And temp <= 45252) Then

Getpychar = "A"

ElseIf (temp >= 45253 And temp <= 45760) Then

Getpychar = "B"

ElseIf (temp >= 45761 And temp <= 46317) Then

Getpychar = "C"

ElseIf (temp >= 46318 And temp <= 46825) Then

Getpychar = "D"

ElseIf (temp >= 46826 And temp <= 47009) Then

Getpychar = "E"

ElseIf (temp >= 47010 And temp <= 47296) Then

Getpychar = "F"

ElseIf (temp >= 47297 And temp <= 47613) Then

Getpychar = "G"

ElseIf (temp >= 47614 And temp <= 48118) Then

Getpychar = "H"

ElseIf (temp >= 48119 And temp <= 49061) Then

Getpychar = "J"

ElseIf (temp >= 49062 And temp <= 49323) Then

Getpychar = "K"

ElseIf (temp >= 49324 And temp <= 49895) Then

Getpychar = "L"

ElseIf (temp >= 49896 And temp <= 50370) Then

Getpychar = "M"

ElseIf (temp >= 50371 And temp <= 50613) Then

Getpychar = "N"

ElseIf (temp >= 50614 And temp <= 50621) Then

Getpychar = "O"

ElseIf (temp >= 50622 And temp <= 50905) Then

Getpychar = "P"

ElseIf (temp >= 50906 And temp <= 51386) Then

Getpychar = "Q"

ElseIf (temp >= 51387 And temp <= 51445) Then

Getpychar = "R"

ElseIf (temp >= 51446 And temp <= 52217) Then

Getpychar = "S"

ElseIf (temp >= 52218 And temp <= 52697) Then

Getpychar = "T"

ElseIf (temp >= 52698 And temp <= 52979) Then

Getpychar = "W"

ElseIf (temp >= 52980 And temp <= 53640) Then

Getpychar = "X"

ElseIf (temp >= 53689 And temp <= 54480) Then

Getpychar = "Y"

ElseIf (temp >= 54481 And temp <= 62289) Then

Getpychar = "Z"

Else

Getpychar = char

End If

End Function

Function Getpy(str)

For a = 1 To Len(str)

Getpy = Getpy & Getpychar(Mid(str, a, 1))

Next a

End Function


例如单元格区域C:C是中文姓名，需要在单元格区域D:D转换成拼音首字母形式。只需在D2单元格中输入函数“=Getpy(C2)”，然后进行单元格填充就可以啦。


是不是非常简单便捷呢？抓紧时间把代码收藏起来吧，有备无患。

点击关注、转发和收藏，有更多计算机小技巧等着您来发现。

  • 黑米储存方法（储存黑米方法）
  • 2024-11-22储存黑米方法无氧保存法：先将要存放的黑米放在通风处摊开晾吹(注意不宜在阳光下曝晒)干透，然后将黑米装入透气性较小的无毒(食品用)塑料口袋内(宜装满)，扎紧袋口，放在阴凉干燥处，这样大米可以保存较长时间花椒防虫保存。
  • 华为手机维修数据备份（智慧助老华为篇）
  • 2024-11-22智慧助老华为篇国家开放大学老年大学和华为共同为老年学友推出“智慧助老·华为篇”专题栏目，教大家使用智能手机上的功能，希望我们的专栏可以让您离智慧生活更近一步手机里面数据那么多，万一手机损坏、丢失找不回来不仅很可惜，。
  • 关于国庆的四字词语（关于国庆的祝福语）
  • 2024-11-22关于国庆的祝福语普天同庆、国泰民安、举国若狂、张灯结彩、繁荣昌盛、鼓乐齐鸣、载歌载舞、锣鼓喧天、热闹非凡祝福语有：（1）欢度国庆，举国同庆！在这美好日子里，让我用最真挚的祝福陪你度过！祝：万事大吉，心想事成，家和万事。
  • 零跑汽车香港ipo（香港今年最大规模IPO诞生）
  • 2024-11-22香港今年最大规模IPO诞生9月29日，浙江电动车厂商浙江零跑科技股份有限公司（下称“零跑汽车”，09863.HK）正式登陆香港市场，融资金额8亿美元，创下今年以来港交所最大规模IPO交易，零跑汽车也是首家IPO首发地位于香港的。
  • 梦到厕所很脏（梦见厕所非常脏是啥意思）
  • 2024-11-22梦见厕所非常脏是啥意思梦到厕所很脏，五行之土，乃是丑土之象征，代表金库，财运良好，多为他人辅佐，求财者听从他人建议，方可在事业中作为秋天梦之吉利，春天梦之不吉利单身男人梦之，事业多被他人影响，人情世故处理不良，则心中多有不。
  • 退休以后干点什么合适（退休后干点什么好呢）
  • 2024-11-22退休后干点什么好呢说实在的，办退休的心情是复杂的，又想退，又不想退我退休前在一所大学的二级学院综合办上班，工作比较轻松，都是一些事务性的工作，财务报销，会务之类的办公室来来往往的都是教授，博士之类的人，我这样一个自考大。
  • 那一场呼啸而过的青春（与我无关却让我揪心的青春）
  • 2024-11-22与我无关却让我揪心的青春由同名原著改编的青春片《那一场呼啸而过的青春》于2017年10月5日全国上映不同于之前的校园纯爱的青春片，该片讲述了一段东北重工业背景下的另类“东北女黑帮”残酷青春故事同名原著因涉及到了黑帮、社会变革。
  • 哦我的皇帝陛下洛菲菲拒绝肖战（我的皇帝陛下2热播）
  • 2024-11-22我的皇帝陛下2热播前段时间热播的网剧《哦！我的皇帝陛下》备受网友关注，作为一部穿越新剧，虽说精彩程度不如《双世宠妃》，但总体还是很圈粉了，剧中赵露思饰演的女主洛菲菲，肉嘟嘟的脸蛋，精湛的演技吸粉无数而表面高冷，一心只爱。
  • 华为高薪待遇怎么样（华为的高工资让所有人羡慕）
  • 2024-11-22华为的高工资让所有人羡慕最近华为员工吐槽，OD岗位招聘遇到困难，候选人不理解，不愿意来华为员工吐槽OD比自己工资还高德科却说:我负责签合同，其他都是你的事结果整得华为里外不是人现在网友开始热烈谈论:大家共同的看法还是觉得OD。
  • 强大内心冥想训练方法（冥想让人更自恋）
  • 2024-11-22冥想让人更自恋来源：环球时报【环球时报记者刘皓然】越冥想，越自大？冥想训练原本旨在达到“无我”的放松境界，但据最新心理学研究显示，这类精神训练只会让“自我”更加膨胀英国《泰晤士报》29日报道称，荷兰奈梅亨大学社会心。