EXCEL中能否直接把中文转换成拼音？
kuaidi.ping-jia.net 作者：佚名 更新日期：2024-07-13
如何在excel中把汉字转换成拼音
Excel表格中汉字转拼音技巧
2011-01-27 20:54:57| 分类： 编程OFFICE Excel | 标签：pinma pinyin excel temp mypinma |字号 订阅
Function PinYin(Hz As String)
Dim PinMa As String
Dim MyPinMa As Variant
Dim Temp As Integer, i As Integer, j As Integer
PinMa = "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 Then
Temp = Abs(Temp)
For j = 791 To 1 Step -2
If Temp <= Val(MyPinMa(j)) Then
PinYin = PinYin & MyPinMa(j - 1) & " "
Exit For
End If
Next
End If
Next
PinYin = Trim(PinYin)
End Function
Excel自定义函数方法：
1.启动Excel 2003（其它版本请仿照操作），打开相应的工作表；
2.执行“工具→宏→Visual Basic编辑器”命令（或者直接按“Alt+F11”组合键），进入Visual Basic编辑状态；
3.执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态；
4.将代码输入其中；
5.代码输入完成后，关闭Visual Basic编辑窗口，返回Excel编辑状态；
6.自定义函数就可以用了，如：选中D2单元格，输入公式：=PinYin(A2
网上找的，我自己没测试。
让人加分不厚道，助人为乐快乐之本
打开Excel->工具->宏->Viaual Basic编辑器
在弹出来的窗口中对着VBAproject点右键->插入->模块
下面会出现一个名为"模块1"，点击
在右边的空白栏中粘贴以下内容：
''''''''''''''''''''''
'VBscript代码提供者：小白
'联系方法：
'E-mail:xiaobai@17560.net
'
'VBA代码转换者：惟惟
'联系方法：Email:wuweiyin@yeah.net
'个人博客：http://weiwei.blog.163.com
'如有不正确的地方，请提出来或是帮忙完善
'谢谢
''''''''''''''''''''''''''''''
Function getpychar(char)
tmp = 65536 + Asc(char)
If (tmp >= 45217 And tmp <= 45252) Then
getpychar = "A"
ElseIf (tmp >= 45253 And tmp <= 45760) Then
getpychar = "B"
ElseIf (tmp >= 45761 And tmp <= 46317) Then
getpychar = "C"
ElseIf (tmp >= 46318 And tmp <= 46825) Then
getpychar = "D"
ElseIf (tmp >= 46826 And tmp <= 47009) Then
getpychar = "E"
ElseIf (tmp >= 47010 And tmp <= 47296) Then
getpychar = "F"
ElseIf (tmp >= 47297 And tmp <= 47613) Then
getpychar = "G"
ElseIf (tmp >= 47614 And tmp <= 48118) Then
getpychar = "H"
ElseIf (tmp >= 48119 And tmp <= 49061) Then
getpychar = "J"
ElseIf (tmp >= 49062 And tmp <= 49323) Then
getpychar = "K"
ElseIf (tmp >= 49324 And tmp <= 49895) Then
getpychar = "L"
ElseIf (tmp >= 49896 And tmp <= 50370) Then
getpychar = "M"
ElseIf (tmp >= 50371 And tmp <= 50613) Then
getpychar = "N"
ElseIf (tmp >= 50614 And tmp <= 50621) Then
getpychar = "O"
ElseIf (tmp >= 50622 And tmp <= 50905) Then
getpychar = "P"
ElseIf (tmp >= 50906 And tmp <= 51386) Then
getpychar = "Q"
ElseIf (tmp >= 51387 And tmp <= 51445) Then
getpychar = "R"
ElseIf (tmp >= 51446 And tmp <= 52217) Then
getpychar = "S"
ElseIf (tmp >= 52218 And tmp <= 52697) Then
getpychar = "T"
ElseIf (tmp >= 52698 And tmp <= 52979) Then
getpychar = "W"
ElseIf (tmp >= 52980 And tmp <= 53640) Then
getpychar = "X"
ElseIf (tmp >= 53689 And tmp <= 54480) Then
getpychar = "Y"
ElseIf (tmp >= 54481 And tmp <= 62289) Then
getpychar = "Z"
Else '如果不是中文，则不处理
getpychar = char
End If
End Function
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & getpychar(Mid(str, i, 1))
Next i
End Function
********复制到此结束,本行不复制*******
现在转换函数已编写完成!关掉此编缉的窗口。
要在Excel中使用，方法如下：
A1 A2
中国 =getpy(A1)
按alt键+F11键，就会弹出一个对话框，选择框中的创建模板，然后在模板上编辑自定义函数即可
可以把中文转换成拼音的。
excel中把汉字转换成拼音
答：1、打开需要整理的表格数据,如下图2、快捷键alt+f11,调出宏设置页面,选择插入中的模块选项3、在出现的模块面板中,定义一个getpy的方法,将如下代码粘贴进去Function pinyin(p As String) As Stringi = Asc(p)Select Case iCase -20319 To -20318: pinyin = a Case -20317 To -20305: pinyin = ai Case -...
EXCEL中能否直接把中文转换成拼音?
答：Excel内是可以把中文转换成为拼音的，但需要转换函数（函数可通过网络上面下载），下面给出具体操作方法：所需材料：Excel、准备好的中文转拼音函数。一、首先打开Excel软件，然后按Alt+F11打开Viaual Basic编辑器，点击工具栏“插入”，选项内点击“模块”。二、这时把准备好的中文转拼音函数粘贴入该模块下...
excel中如何将汉字转换为拼音excel中如何将汉字转换为拼音字母_百度知 ...
答：1、首先，打开要转换成拼音的excel表格。2、按“Alt+F11”组合键，进入Visual Basic编辑状态，也就是看到的这个灰色的编辑界面。3、执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态。4、看到空白界面后，将下面的所有内容复制，粘贴到空白处。5、按下ALT+Q关闭Visual ...
如何在excel中把汉字转换成拼音如何在excel中把汉字转换成拼音格式
答：1.首先用office Excel 2007打开文档;2.然后鼠标标定在D2单元格，输入公式“=getpy(C2)”，按回车键确认;3.我们就看到姓名一栏汉语拼音就自动出现了;4.选中D2单元格，鼠标放在单元格右下角,当出现“+”后，向下拖动鼠标;5.这样，姓名一栏所有的汉字都以拼音形式显示了;6.如果我们需要将拼音的首字母...
怎样把excel中的汉字转为拼音
答：1. 首先，在WPS Excel中打开你需要转换拼音的表格。2. 选中包含汉字的单元格或区域。你可以通过鼠标点击并拖拽来选择多个单元格。3. 在WPS Excel的菜单栏中，找到“开始”选项卡，并点击“拼音指南”按钮。这个按钮通常位于“字体”组的右下角。4. 在弹出的“拼音指南”对话框中，你可以看到选定的...
EXCEL中如何将中文转换成拼音
答：1、我们新建一个表格，在里面输入测试数据，如下图所示 2、我们新建一个Word文档，将表格的内容复制上去 3、我们接着在Word文档中，将光标选中内容，再点击拼音指南 4、弹出拼音指南对话框，我们点击确定即可 5、这时候就可以看到Word文档上面的内容都有拼音了 6、我们再将Word的内容复制到表格中，接着...
在excel中,如何将汉语转换拼音?
答：1、先将中文复制后，不带格式粘贴到word中（只保留文本），然后选取这些中文，点击拼音指南按钮，将这些文字全部标注上拼音。2、然后将这些带拼音的文字再复制粘贴至Excel中的某个单元格中如A1，在另外的单元格中（如A2）中输入，=PHONETIC(A1)，确定。如果需将首字母变为大写，再加个PROPER()函数。
如何在excel中把汉字转换成拼音
答：利用EXCEl表格中的宏,轻松将汉字转换为拼音1.启动Excel 2003(其它版本请仿照操作),打开相应的工作表;2.执行“工具→宏→Visual Basic编辑器”命令(或者直接按“Alt+F11”组合键),进入Visual Basic编辑状态;3.执行“插入→模块”命令,插入一个新模块。再双击插入的模块,进入模块代码编辑状态;4.将代码输入其中; ...
怎么在EXCEL里把汉字转为拼音?
答：1、首先在自己电脑上，打开Excel一份表格。2、我们就在打开的表格D1单元格上，输入转拼音的汉字，然后在D2单元格里输入=getpy(A2)公式。因为姓名在A列上，所以需要引用单元格选择A2。3、输入完公式选中好引用名字的单元格之后，按下确定键在D2单元格就可以看到姓名已经转换成拼音了。4、然后选中D2...
excel中的汉字怎么转换为拼音?
答：excel汉字转拼音不带声调步骤如下：1、从excel复制人名到word，鼠标全选汉字，通过Ctrl+C快捷键复制，无格式黏贴到word。2、使用Word中字体菜单里的“拼音指南”功能，点击确定。3、复制word中拼音，通过Ctrl+V快捷键粘贴到excel。4、利用Phonetic函数提取单元格中的拼音，在C1单元格输入=Phonetic（B1），...
1、打开相应的Excel文件,按“Alt+F11”组合键，弹出“Visual Basic编辑器”。
2、鼠标点击“Visual Basic编辑器”菜单栏的“插入”选项，选择下拉列表里的“模块”，插入“模块”。
1.启动Excel 2003（其它版本请仿照操作），打开相应的工作表。
2.执行“工具→宏→Visual Basic编辑器”命令（或者直接按“Alt+F11”组合键），进入Visual Basic编辑状态。
3.执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态。
4.将代码输入其中。
5.代码输入完成后，关闭Visual Basic编辑窗口，返回Excel编辑状态。
6.自定义函数就可以用了。
Excel内是可以把中文转换成为拼音的，但需要转换函数（函数可通过网络上面下载），下面给出具体操作方法：
所需材料：Excel、准备好的中文转拼音函数。
一、首先打开Excel软件，然后按Alt+F11打开Viaual Basic编辑器，点击工具栏“插入”，选项内点击“模块”。
二、这时把准备好的中文转拼音函数粘贴入该模块下，然后就可以关闭掉Viaual Basic编辑器。
三、回到Excel界面在需要转换的单元格内输入中文转拼音的公式（这里需要根据下载的函数来输入对应的公式，如下图的公式为=pinyin，而有一些公式则为=getpy，注意公式不要用错），按下回车键即可得到公式内所求单元格的拼音。
四、最后按住已转换完成单元格右下角向下拖动即可得到整列中文的拼音 。
Excel表格中汉字转拼音技巧
2011-01-27 20:54:57| 分类： 编程OFFICE Excel | 标签：pinma pinyin excel temp mypinma |字号 订阅
Function PinYin(Hz As String)
Dim PinMa As String
Dim MyPinMa As Variant
Dim Temp As Integer, i As Integer, j As Integer
PinMa = "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 Then
Temp = Abs(Temp)
For j = 791 To 1 Step -2
If Temp <= Val(MyPinMa(j)) Then
PinYin = PinYin & MyPinMa(j - 1) & " "
Exit For
End If
Next
End If
Next
PinYin = Trim(PinYin)
End Function
Excel自定义函数方法：
1.启动Excel 2003（其它版本请仿照操作），打开相应的工作表；
2.执行“工具→宏→Visual Basic编辑器”命令（或者直接按“Alt+F11”组合键），进入Visual Basic编辑状态；
3.执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态；
4.将代码输入其中；
5.代码输入完成后，关闭Visual Basic编辑窗口，返回Excel编辑状态；
6.自定义函数就可以用了，如：选中D2单元格，输入公式：=PinYin(A2
网上找的，我自己没测试。
让人加分不厚道，助人为乐快乐之本
打开Excel->工具->宏->Viaual Basic编辑器
在弹出来的窗口中对着VBAproject点右键->插入->模块
下面会出现一个名为"模块1"，点击
在右边的空白栏中粘贴以下内容：
''''''''''''''''''''''
'VBscript代码提供者：小白
'联系方法：
'E-mail:xiaobai@17560.net
'
'VBA代码转换者：惟惟
'联系方法：Email:wuweiyin@yeah.net
'个人博客：http://weiwei.blog.163.com
'如有不正确的地方，请提出来或是帮忙完善
'谢谢
''''''''''''''''''''''''''''''
Function getpychar(char)
tmp = 65536 + Asc(char)
If (tmp >= 45217 And tmp <= 45252) Then
getpychar = "A"
ElseIf (tmp >= 45253 And tmp <= 45760) Then
getpychar = "B"
ElseIf (tmp >= 45761 And tmp <= 46317) Then
getpychar = "C"
ElseIf (tmp >= 46318 And tmp <= 46825) Then
getpychar = "D"
ElseIf (tmp >= 46826 And tmp <= 47009) Then
getpychar = "E"
ElseIf (tmp >= 47010 And tmp <= 47296) Then
getpychar = "F"
ElseIf (tmp >= 47297 And tmp <= 47613) Then
getpychar = "G"
ElseIf (tmp >= 47614 And tmp <= 48118) Then
getpychar = "H"
ElseIf (tmp >= 48119 And tmp <= 49061) Then
getpychar = "J"
ElseIf (tmp >= 49062 And tmp <= 49323) Then
getpychar = "K"
ElseIf (tmp >= 49324 And tmp <= 49895) Then
getpychar = "L"
ElseIf (tmp >= 49896 And tmp <= 50370) Then
getpychar = "M"
ElseIf (tmp >= 50371 And tmp <= 50613) Then
getpychar = "N"
ElseIf (tmp >= 50614 And tmp <= 50621) Then
getpychar = "O"
ElseIf (tmp >= 50622 And tmp <= 50905) Then
getpychar = "P"
ElseIf (tmp >= 50906 And tmp <= 51386) Then
getpychar = "Q"
ElseIf (tmp >= 51387 And tmp <= 51445) Then
getpychar = "R"
ElseIf (tmp >= 51446 And tmp <= 52217) Then
getpychar = "S"
ElseIf (tmp >= 52218 And tmp <= 52697) Then
getpychar = "T"
ElseIf (tmp >= 52698 And tmp <= 52979) Then
getpychar = "W"
ElseIf (tmp >= 52980 And tmp <= 53640) Then
getpychar = "X"
ElseIf (tmp >= 53689 And tmp <= 54480) Then
getpychar = "Y"
ElseIf (tmp >= 54481 And tmp <= 62289) Then
getpychar = "Z"
Else '如果不是中文，则不处理
getpychar = char
End If
End Function
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & getpychar(Mid(str, i, 1))
Next i
End Function
********复制到此结束,本行不复制*******
现在转换函数已编写完成!关掉此编缉的窗口。
要在Excel中使用，方法如下：
A1 A2
中国 =getpy(A1)
按alt键+F11键，就会弹出一个对话框，选择框中的创建模板，然后在模板上编辑自定义函数即可
可以把中文转换成拼音的。
答：1、打开需要整理的表格数据,如下图2、快捷键alt+f11,调出宏设置页面,选择插入中的模块选项3、在出现的模块面板中,定义一个getpy的方法,将如下代码粘贴进去Function pinyin(p As String) As Stringi = Asc(p)Select Case iCase -20319 To -20318: pinyin = a Case -20317 To -20305: pinyin = ai Case -...
答：Excel内是可以把中文转换成为拼音的，但需要转换函数（函数可通过网络上面下载），下面给出具体操作方法：所需材料：Excel、准备好的中文转拼音函数。一、首先打开Excel软件，然后按Alt+F11打开Viaual Basic编辑器，点击工具栏“插入”，选项内点击“模块”。二、这时把准备好的中文转拼音函数粘贴入该模块下...
答：1、首先，打开要转换成拼音的excel表格。2、按“Alt+F11”组合键，进入Visual Basic编辑状态，也就是看到的这个灰色的编辑界面。3、执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态。4、看到空白界面后，将下面的所有内容复制，粘贴到空白处。5、按下ALT+Q关闭Visual ...
答：1.首先用office Excel 2007打开文档;2.然后鼠标标定在D2单元格，输入公式“=getpy(C2)”，按回车键确认;3.我们就看到姓名一栏汉语拼音就自动出现了;4.选中D2单元格，鼠标放在单元格右下角,当出现“+”后，向下拖动鼠标;5.这样，姓名一栏所有的汉字都以拼音形式显示了;6.如果我们需要将拼音的首字母...
答：1. 首先，在WPS Excel中打开你需要转换拼音的表格。2. 选中包含汉字的单元格或区域。你可以通过鼠标点击并拖拽来选择多个单元格。3. 在WPS Excel的菜单栏中，找到“开始”选项卡，并点击“拼音指南”按钮。这个按钮通常位于“字体”组的右下角。4. 在弹出的“拼音指南”对话框中，你可以看到选定的...
答：1、我们新建一个表格，在里面输入测试数据，如下图所示 2、我们新建一个Word文档，将表格的内容复制上去 3、我们接着在Word文档中，将光标选中内容，再点击拼音指南 4、弹出拼音指南对话框，我们点击确定即可 5、这时候就可以看到Word文档上面的内容都有拼音了 6、我们再将Word的内容复制到表格中，接着...
答：1、先将中文复制后，不带格式粘贴到word中（只保留文本），然后选取这些中文，点击拼音指南按钮，将这些文字全部标注上拼音。2、然后将这些带拼音的文字再复制粘贴至Excel中的某个单元格中如A1，在另外的单元格中（如A2）中输入，=PHONETIC(A1)，确定。如果需将首字母变为大写，再加个PROPER()函数。
答：利用EXCEl表格中的宏,轻松将汉字转换为拼音1.启动Excel 2003(其它版本请仿照操作),打开相应的工作表;2.执行“工具→宏→Visual Basic编辑器”命令(或者直接按“Alt+F11”组合键),进入Visual Basic编辑状态;3.执行“插入→模块”命令,插入一个新模块。再双击插入的模块,进入模块代码编辑状态;4.将代码输入其中; ...
答：1、首先在自己电脑上，打开Excel一份表格。2、我们就在打开的表格D1单元格上，输入转拼音的汉字，然后在D2单元格里输入=getpy(A2)公式。因为姓名在A列上，所以需要引用单元格选择A2。3、输入完公式选中好引用名字的单元格之后，按下确定键在D2单元格就可以看到姓名已经转换成拼音了。4、然后选中D2...
答：excel汉字转拼音不带声调步骤如下：1、从excel复制人名到word，鼠标全选汉字，通过Ctrl+C快捷键复制，无格式黏贴到word。2、使用Word中字体菜单里的“拼音指南”功能，点击确定。3、复制word中拼音，通过Ctrl+V快捷键粘贴到excel。4、利用Phonetic函数提取单元格中的拼音，在C1单元格输入=Phonetic（B1），...
