概述：在工作时，有时候会用到汉语拼音，本文讲述如何在Excel中通过vba程序提取汉字的拼音。

1、alt+F11调出vba编写窗口

2、新建——模块

3、粘贴以下代码

Function PinYin2(Hz As String)Dim PinMa As StringDim MyPinMa As VariantDim Temp As Integer, i As Integer, j As IntegerPinMa = "a,20319,ai,20317,an,20304,ang,20295,ao,20292,"PinMa = PinMa & "ba,20283,bai,20265,ban,20257,bang,20242,bao,20230,bei,20051,ben,20036,beng,20032,bi,20026,bian,20002,biao,19990,bie,19986,bin,19982,bing,19976,bo,19805,bu,19784,"PinMa = PinMa & "ca,19775,cai,19774,can,19763,cang,19756,cao,19751,ce,19746,ceng,19741,cha,19739,chai,19728,chan,19725,chang,19715,chao,19540,che,19531,chen,19525,cheng,19515,chi,19500,chong,19484,chou,19479,chu,19467,chuai,19289,chuan,19288,chuang,19281,chui,19275,chun,19270,chuo,19263,ci,19261,cong,19249,cou,19243,cu,19242,cuan,19238,cui,19235,cun,19227,cuo,19224,"PinMa = PinMa & "da,19218,dai,19212,dan,19038,dang,19023,dao,19018,de,19006,deng,19003,di,18996,dian,18977,diao,18961,die,18952,ding,18783,diu,18774,dong,18773,dou,18763,du,18756,duan,18741,dui,18735,dun,18731,duo,18722,"PinMa = PinMa & "e,18710,en,18697,er,18696,"PinMa = PinMa & "fa,18526,fan,18518,fang,18501,fei,18490,fen,18478,feng,18463,fo,18448,fou,18447,fu,18446,"PinMa = PinMa & "ga,18239,gai,18237,gan,18231,gang,18220,gao,18211,ge,18201,gei,18184,gen,18183,geng,18181,gong,18012,gou,17997,gu,17988,gua,17970,guai,17964,guan,17961,guang,17950,gui,17947,gun,17931,guo,17928,"PinMa = PinMa & "ha,17922,hai,17759,han,17752,hang,17733,hao,17730,he,17721,hei,17703,hen,17701,heng,17697,hong,17692,hou,17683,hu,17676,hua,17496,huai,17487,huan,17482,huang,17468,hui,17454,hun,17433,huo,17427,"PinMa = PinMa & "ji,17417,jia,17202,jian,17185,jiang,16983,jiao,16970,jie,16942,jin,16915,jing,16733,jiong,16708,jiu,16706,ju,16689,juan,16664,jue,16657,jun,16647,"PinMa = PinMa & "ka,16474,kai,16470,kan,16465,kang,16459,kao,16452,ke,16448,ken,16433,keng,16429,kong,16427,kou,16423,ku,16419,kua,16412,kuai,16407,kuan,16403,kuang,16401,kui,16393,kun,16220,kuo,16216,"PinMa = PinMa & "la,16212,lai,16205,lan,16202,lang,16187,lao,16180,le,16171,lei,16169,leng,16158,li,16155,lia,15959,lian,15958,liang,15944,liao,15933,lie,15920,lin,15915,ling,15903,liu,15889,long,15878,lou,15707,lu,15701,lv,15681,luan,15667,lue,15661,lun,15659,luo,15652,"PinMa = PinMa & "ma,15640,mai,15631,man,15625,mang,15454,mao,15448,me,15436,mei,15435,men,15419,meng,15416,mi,15408,mian,15394,miao,15385,mie,15377,min,15375,ming,15369,miu,15363,mo,15362,mou,15183,mu,15180,"PinMa = PinMa & "na,15165,nai,15158,nan,15153,nang,15150,nao,15149,ne,15144,nei,15143,nen,15141,neng,15140,ni,15139,nian,15128,niang,15121,niao,15119,nie,15117,nin,15110,ning,15109,niu,14941,nong,14937,nu,14933,nv,14930,nuan,14929,nue,14928,nuo,14926,"PinMa = PinMa & "o,14922,ou,14921,"PinMa = PinMa & "pa,14914,pai,14908,pan,14902,pang,14894,pao,14889,pei,14882,pen,14873,peng,14871,pi,14857,pian,14678,piao,14674,pie,14670,pin,14668,ping,14663,po,14654,pu,14645,"PinMa = PinMa & "qi,14630,qia,14594,qian,14429,qiang,14407,qiao,14399,qie,14384,qin,14379,qing,14368,qiong,14355,qiu,14353,qu,14345,quan,14170,que,14159,qun,14151,"PinMa = PinMa & "ran,14149,rang,14145,rao,14140,re,14137,ren,14135,reng,14125,ri,14123,rong,14122,rou,14112,ru,14109,ruan,14099,rui,14097,run,14094,ruo,14092,"PinMa = PinMa & "sa,14090,sai,14087,san,14083,sang,13917,sao,13914,se,13910,sen,13907,seng,13906,sha,13905,shai,13896,shan,13894,shang,13878,shao,13870,she,13859,shen,13847,sheng,13831,shi,13658,shou,13611,shu,13601,shua,13406,shuai,13404,shuan,13400,shuang,13398,shui,13395,shun,13391,shuo,13387,si,13383,song,13367,sou,13359,su,13356,suan,13343,sui,13340,sun,13329,suo,13326,"PinMa = PinMa & "ta,13318,tai,13147,tan,13138,tang,13120,tao,13107,te,13096,teng,13095,ti,13091,tian,13076,tiao,13068,tie,13063,ting,13060,tong,12888,tou,12875,tu,12871,tuan,12860,tui,12858,tun,12852,tuo,12849,"PinMa = PinMa & "wa,12838,wai,12831,wan,12829,wang,12812,wei,12802,wen,12607,weng,12597,wo,12594,wu,12585,"PinMa = PinMa & "xi,12556,xia,12359,xian,12346,xiang,12320,xiao,12300,xie,12120,xin,12099,xing,12089,xiong,12074,xiu,12067,xu,12058,xuan,12039,xue,11867,xun,11861,"PinMa = PinMa & "ya,11847,yan,11831,yang,11798,yao,11781,ye,11604,yi,11589,yin,11536,ying,11358,yo,11340,yong,11339,you,11324,yu,11303,yuan,11097,yue,11077,yun,11067,"PinMa = PinMa & "za,11055,zai,11052,zan,11045,zang,11041,zao,11038,ze,11024,zei,11020,zen,11019,zeng,11018,zha,11014,zhai,10838,zhan,10832,zhang,10815,zhao,10800,zhe,10790,zhen,10780,zheng,10764,zhi,10587,zhong,10544,zhou,10533,zhu,10519,zhua,10331,zhuai,10329,zhuan,10328,zhuang,10322,zhui,10315,zhun,10309,zhuo,10307,zi,10296,zong,10281,zou,10274,zu,10270,zuan,10262,zui,10260,zun,10256,zuo,10254"MyPinMa = Split(PinMa, ",")For i = 1 To Len(Hz)Temp = Asc(Mid(Hz, i, 1))If Temp < 0 ThenTemp = Abs(Temp)For j = 791 To 1 Step -2If Temp <= Val(MyPinMa(j)) ThenPinYin2 = PinYin2 & MyPinMa(j - 1) & ""Exit ForEnd IfNextEnd IfNextPinYin2 = Trim(PinYin2)
End Function

说明：代码来自网络

4、关闭VBA窗口，调用

在cell中输入下面公式即可。

完成后，效果如下：

excel中提取中文拼音相关推荐

  1. excel中提取月份_在Excel中自动添加月份表

    excel中提取月份 Set up a Master sheet in your workbook, and add month sheets automatically, based on that ...

  2. Excel如何提取汉字拼音首字母

    今天跟大家分享一下Excel如何提取汉字拼音首字母 1.我们想要将D列数据中的汉字拼音首字母提取出来. 2.首先我们选中D列数据单元格区域 3.然后点击DIY工具箱(Excel工具箱,百度即可了解详细 ...

  3. Excel中提取英文，数值和编码(LEN函数)

    Excel中提取英文,数值和编码(LEN函数) 提取英文: 数据源中包含英文+中文,要求提取英文信息 =LEFT(A2,2*LEN(A2)-LENB(A2)) 解读:LEN函数按照字符数计算,LENB ...

  4. 传入一个中文字符串,返回一个字符串中的中文拼音

    /**      * @param 传入一个中文字符串      * @return 返回一个字符串中的中文拼音      */     private String getNameNum(Strin ...

  5. matlab提取数据的一部分,matlab处理excel数据【怎么用MATLAB从excel中提取部分数据】...

    已经把excel的一列导入到matlab的工作区,怎么计算这一列数的均值.标准差.最小值.最大值以及中位数? 把这个EXCEL放到matlab目录下的work里,假设名为1.xls,然后在matlab ...

  6. 从Excel中提取数据

    从事android客户端开发的小伙伴们肯定都知道打点的痛苦,尤其是把点位从excel复制到java文件中,还要一个一个的修改,繁琐之极,所以想到了从excel中提取数据. 1.开发用的是android ...

  7. 如何在excel中提取教师 教不同多个班级的综合平均分 合格率

    在Excel中提取教师教多个班级的综合平均分和合格率,你可以这样做: 建立一个数据表,表格的第一列是教师的姓名,第二列是班级名称,其余列是学生的成绩. 使用Excel的IF语句,对学生成绩进行判断,确 ...

  8. Excel如何从单元格中提取中文汉字

    今天有一位小伙伴在后台留言问我,怎么从单元格中提取出汉字.下面就给大家分享两种提取汉字的方法,一种工具法,一种函数法. 1.工具法 1.如图,单元格中包含汉字.数字.字母.符号,现在想要从这些单元格中 ...

  9. 从Word，Excel中提取Flash

    转载地址:http://www.cnblogs.com/phcis/archive/2008/09/04/1284035.html 最近得到一些好玩的Falsh,无奈都是嵌入在Word或Excel中的 ...

  10. Excel中提取单元格中的部分内容或单元格中的数字公式大全（提取数字，提取前几位，提取指定文字之间的内容等等）

    Excel如何提取单元格中的部分文字或单元格中的数字 Excel如何提取单元格中的部分文字或单元格中的数字,整理了Excel中所有的提取要求,写成了一个公式翻译工具. 支持以下提取方式,输入提取要求, ...

最新文章

  1. Database之SQLSever：SQL命令实现四则运算、desc降序、like模糊查询、distinct去重、MAX/MIN/SUM/AVG/COUNT/GROUP/having等案例之详细攻略
  2. 参数 中_Python中函数的参数传递
  3. 在Windows上安装Docker
  4. 详细设计说明书示例_专利说明书常用句型汇总
  5. linux 备份mysql并上传_linux备份数据库并上传至远程服务器（定时执行shell进行ftp上传）...
  6. hadoop3.0新特性介绍
  7. 看到的一个很不错的分析LCA和RMQ的文章（转载，先收着）
  8. awbeci—一个帮助你快速处理日常工作的网址收集网站
  9. Spring Boot干货系列：（十二）Spring Boot使用单元测试
  10. 一个基于 EasyUI 的前台架构（4）主体页面框架收工
  11. Java程序员不得不会的124道面试题（含答案）
  12. [人工智能-深度学习-23]：卷积神经网络CNN - 卷积核的本质是多维输入的神经元
  13. Ubuntu18.04出现无WIFI适配器解决方法汇总
  14. GMIS 2017大会圆桌论坛：机器智能时代的全球化进程
  15. CCHTTP后端与diygw前端完美结合，开发前端后端-教程1
  16. 使用C++枚举WINDOWS计划任务-使用管理员启动获取全计划任务，否则获取部分计划任务
  17. 阿里巴巴图标库的字体图标使用方法
  18. 一些恶搞人的C++程序（千万别试，会哭的）
  19. 密码打码就安全了吗？这款星标 20K 的去 『马赛克』 开源神器，用 AI 一秒还原高清原图！...
  20. VMware esxcli定时开启虚拟机

热门文章

  1. 最新MATLAB R2020b超详细安装教程---亲自安装成功！！！
  2. python语言基础与应用 mooc答案_Python语言基础与应用_中国大学 MOOC_章节考试选修课答案...
  3. OBS推流工具使用说明
  4. Hadoop大数据综合案例3-MapReduce数据预处理
  5. python程序代码大全-Python编程代码示例 - 全文
  6. 【边喝caffee边Caffe 】(三) Check failed: registry.count(t ype) == 1 (0 vs. 1) Unknown layer type
  7. C++使用万能头文件报错
  8. cad无法安装_装机必备！免安装CAD迷你看图特别版PC软件
  9. 2022华为杯研究生数学建模竞赛E题思路解析
  10. windows下载东西提高速度的方式。