中文姓名转拼音模板

把汉字转换成拼音
录入学生资料时需要输入姓名的汉字拼音，但怎样才能把姓名转换成拼音呢？
1、先把EXCEL中的学生姓名复制，再打开WORD，然后右键“选择性粘贴”，选择“无格式文
本”后确定。

2、再全选刚才学生的姓名，点击WORD中的“格式”菜单栏，找到“中文版式”里面的“拼音指
南”，（图1），可以把其中的“字号”由“5”设置大一些，如设置为“20”等后，然后“确定”，一次转换不成，可以再次转换，要注意一次可能转换不了，要多次才行。

转换后效果，如（图2）。

3、全选所有的文字，右键选择“切换域代码”，出现如（图3）的文字，点击“编辑”菜单栏，找
到“查找（替换）”，切换到“替换”，在“查找内容”处输入：[)]*[)]（注意是半角状态下的符号。

），在“替换为”处输入：一个半角状态下的空格，然后点击下面的“高级”，在“使用通配符”打上“√”，最后点击“全部替换”。

4、接着用同样的方法，在“查找内容”处输入：EQ*[(]*[(]（注意是半角状态下的符号。

），
在“替换为”处输入：EQ ，（注意：EQ后还有一个半角状态下的空格）（图4），然后“全部替换”。

效果如（图5）,然后右键再选择“切换域代码”，剩下拼音。

5、全选所有拼音，复制后，新建一个EXCEL文档，按右键“选择性粘贴”，即可把汉字转换
成拼音。

图1 图2 图3
6、复制刚才的拼音到EXCEL 里，在EXCEL 中选择“编辑”，找到“定位”，点击“定位条件”，在里面选择“空值”后“确定”，对着其中已经选择的空格，右键“删除”，选择“下方单元格上移”后确定，即可把拼音复制到对应的姓名右边。

图4 图5 图6。

EXCEL中文姓名转换姓名全拼音字母的Excel宏打开Excel->工具->宏->Viaual Basic编辑器在弹出来的窗口中对着VBAproject点右键->插入->模块下面会出现一个名为"模块1"，点击在右边的空白栏中粘贴以下内容：Option ExplicitOption Compare TextPublic Function HZQP(expression As String, Optional delimiter As String = " ", Optional limit As Integer = -1) As String'expression' 必需的?包含要转换的字符串?'delimiter' 可选的。

用于标识分隔拼音的字符串字符。

如果忽略，则使用空格字符(" ")作为分隔符。

如果delimiter是一个长度为零的字符串，则返回仅包含一个元素，即完整的 expression字符串。

'limit' 可选的。

要返回拼音字符数，–1表示返回所有的拼音字符数，1表示返回拼音首字母。

Dim STR As String, arrWord(400) As StringDim i As Integer, j As IntegerarrWord(1) = "吖a"arrWord(2) = "哎ai"arrWord(3) = "腤an" arrWord(4) = "肮ang" arrWord(5) = "凹ao" arrWord(6) = "八ba" arrWord(7) = "挀bai" arrWord(8) = "扳ban" arrWord(9) = "邦bang" arrWord(10) = "勹bao" arrWord(11) = "陂bei" arrWord(12) = "奔ben" arrWord(13) = "崩beng" arrWord(14) = "皀bi" arrWord(15) = "边bian" arrWord(16) = "杓biao" arrWord(17) = "憋bie" arrWord(18) = "邠bin" arrWord(19) = "仌bing" arrWord(20) = "拨bo" arrWord(21) = "峬bu" arrWord(22) = "嚓ca" arrWord(23) = "猜cai" arrWord(24) = "飡can" arrWord(25) = "仓cang" arrWord(26) = "撡cao" arrWord(27) = "冊ce" arrWord(28) = "嵾cen" arrWord(29) = "噌ceng" arrWord(30) = "*cha" arrWord(31) = "拆chai" arrWord(32) = "辿chan"arrWord(33) = "伥chang" arrWord(34) = "抄chao" arrWord(35) = "车che" arrWord(36) = "抻chen" arrWord(37) = "阷cheng" arrWord(38) = "吃chi" arrWord(39) = "充chong" arrWord(40) = "抽chou" arrWord(41) = "出chu" arrWord(42) = "搋chuai" arrWord(43) = "巛chuan" arrWord(44) = "刅chuang" arrWord(45) = "吹chui" arrWord(46) = "旾chun" arrWord(47) = "踔chuo" arrWord(48) = "呲ci" arrWord(49) = "从cong" arrWord(50) = "凑cou" arrWord(51) = "粗cu" arrWord(52) = "汆cuan" arrWord(53) = "崔cui" arrWord(54) = "邨cun" arrWord(55) = "搓cuo" arrWord(56) = "咑da" arrWord(57) = "呆dai" arrWord(58) = "丹dan" arrWord(59) = "当dang" arrWord(60) = "刀dao" arrWord(61) = "恴de" arrWord(62) = "灯deng"arrWord(64) = "敁dian" arrWord(65) = "刁diao" arrWord(66) = "爹die" arrWord(67) = "丁ding" arrWord(68) = "丟diu" arrWord(69) = "东dong" arrWord(70) = "剅dou" arrWord(71) = "嘟du" arrWord(72) = "耑duan" arrWord(73) = "垖dui" arrWord(74) = "吨dun" arrWord(75) = "多duo" arrWord(76) = "妸e" arrWord(77) = "奀en" arrWord(78) = "儿er" arrWord(79) = "发fa" arrWord(80) = "帆fan" arrWord(81) = "方fang" arrWord(82) = "飞fei" arrWord(83) = "分fen" arrWord(84) = "丰feng" arrWord(85) = "仏fo" arrWord(86) = "紑fou" arrWord(87) = "夫fu" arrWord(88) = "旮ga" arrWord(89) = "该gai" arrWord(90) = "干gan" arrWord(91) = "冈gang"arrWord(93) = "戈ge" arrWord(94) = "给gei" arrWord(95) = "根gen" arrWord(96) = "更geng" arrWord(97) = "工gong" arrWord(98) = "勾gou" arrWord(99) = "估gu" arrWord(100) = "瓜gua" arrWord(101) = "乖guai" arrWord(102) = "关guan" arrWord(103) = "光guang" arrWord(104) = "归gui" arrWord(105) = "衮gun" arrWord(106) = "呙guo" arrWord(107) = "铪ha" arrWord(108) = "嗨hai" arrWord(109) = "佄han" arrWord(110) = "夯hang" arrWord(111) = "蒿hao" arrWord(112) = "诃he" arrWord(113) = "黒\hei" arrWord(114) = "拫hen" arrWord(115) = "亨heng" arrWord(116) = "叿hong" arrWord(117) = "侯hou" arrWord(118) = "乎hu" arrWord(119) = "花hua" arrWord(120) = "怀huai" arrWord(121) = "欢huan"arrWord(123) = "灰hui" arrWord(124) = "昏hun" arrWord(125) = "吙huo" arrWord(126) = "丌ji" arrWord(127) = "加jia" arrWord(128) = "戋jian" arrWord(129) = "江jiang" arrWord(130) = "艽jiao" arrWord(131) = "阶jie" arrWord(132) = "巾jin" arrWord(133) = "坕jing" arrWord(134) = "冂jiong" arrWord(135) = "丩jiu" arrWord(136) = "凥ju" arrWord(137) = "姢juan" arrWord(138) = "噘jue" arrWord(139) = "军jun" arrWord(140) = "咔ka" arrWord(141) = "开kai" arrWord(142) = "刊kan" arrWord(143) = "忼kang" arrWord(144) = "*kao" arrWord(145) = "匼\ke" arrWord(146) = "肎ken" arrWord(147) = "劥keng" arrWord(148) = "空kong" arrWord(149) = "抠kou" arrWord(150) = "郀ku" arrWord(151) = "夸kua"arrWord(153) = "宽kuan" arrWord(154) = "匡kuang" arrWord(155) = "亏kui" arrWord(156) = "坤kun" arrWord(157) = "扩kuo" arrWord(158) = "垃la" arrWord(159) = "来lai" arrWord(160) = "兰lan" arrWord(161) = "啷lang" arrWord(162) = "捞lao" arrWord(163) = "仂le" arrWord(164) = "雷lei" arrWord(165) = "塄leng" arrWord(166) = "唎li" arrWord(167) = "俩lia" arrWord(168) = "嫾lian" arrWord(169) = "簗liang" arrWord(170) = "蹽liao" arrWord(171) = "咧lie" arrWord(172) = "邻lin" arrWord(173) = "伶ling" arrWord(174) = "溜liu" arrWord(175) = "囖lo" arrWord(176) = "龙long" arrWord(177) = "娄lou" arrWord(178) = "露lu" arrWord(179) = "驴lv" arrWord(180) = "孪luan" arrWord(181) = "掠lue"arrWord(183) = "頱luo" arrWord(184) = "妈ma" arrWord(185) = "埋mai" arrWord(186) = "颟man" arrWord(187) = "牤mang" arrWord(188) = "猫mao" arrWord(189) = "庅me" arrWord(190) = "沒mei" arrWord(191) = "椚men" arrWord(192) = "掹meng" arrWord(193) = "咪mi" arrWord(194) = "芇mian" arrWord(195) = "喵miao" arrWord(196) = "乜mie" arrWord(197) = "民min" arrWord(198) = "名ming" arrWord(199) = "谬miu" arrWord(200) = "摸mo" arrWord(201) = "哞mou" arrWord(202) = "母mu" arrWord(203) = "拏na" arrWord(204) = "腉nai" arrWord(205) = "囡nan" arrWord(206) = "囔nang" arrWord(207) = "孬nao" arrWord(208) = "讷ne" arrWord(209) = "馁nei" arrWord(210) = "嫩nen" arrWord(211) = "能neng"arrWord(213) = "拈nian" arrWord(214) = "娘niang" arrWord(215) = "鸟niao" arrWord(216) = "捏nie" arrWord(217) = "脌nin" arrWord(218) = "宁ning" arrWord(219) = "妞niu" arrWord(220) = "农nong" arrWord(221) = "奴nu" arrWord(222) = "女nv" arrWord(223) = "疟nue" arrWord(224) = "奻nuan" arrWord(225) = "郍nuo" arrWord(226) = "噢o" arrWord(227) = "讴ou" arrWord(228) = "妑pa" arrWord(229) = "拍pai" arrWord(230) = "眅pan" arrWord(231) = "乓pang" arrWord(232) = "抛pao" arrWord(233) = "呸pei" arrWord(234) = "喷pen" arrWord(235) = "匉peng" arrWord(236) = "丕pi" arrWord(237) = "片pian" arrWord(238) = "剽piao" arrWord(239) = "氕pie" arrWord(240) = "姘pin" arrWord(241) = "娉ping"arrWord(243) = "仆pu" arrWord(244) = "七qi" arrWord(245) = "掐qia" arrWord(246) = "千qian" arrWord(247) = "呛qiang" arrWord(248) = "悄qiao" arrWord(249) = "切qie" arrWord(250) = "亲qin" arrWord(251) = "靑qing" arrWord(252) = "宆qiong" arrWord(253) = "丘qiu" arrWord(254) = "区qu" arrWord(255) = "峑quan" arrWord(256) = "炔que" arrWord(257) = "夋qun" arrWord(258) = "呥ran" arrWord(259) = "穣rang" arrWord(260) = "荛rao" arrWord(261) = "惹re" arrWord(262) = "人ren" arrWord(263) = "扔reng" arrWord(264) = "日ri" arrWord(265) = "戎rong" arrWord(266) = "厹rou" arrWord(267) = "嶿ru" arrWord(268) = "堧ruan" arrWord(269) = "桵rui" arrWord(270) = "闰run" arrWord(271) = "叒ruo"arrWord(272) = "仨sa" arrWord(273) = "毢sai" arrWord(274) = "三san" arrWord(275) = "桒sang" arrWord(276) = "掻sao" arrWord(277) = "色se" arrWord(278) = "森sen" arrWord(279) = "僧seng" arrWord(280) = "杀sha" arrWord(281) = "筛shai" arrWord(282) = "山shan" arrWord(283) = "伤shang" arrWord(284) = "弰shao" arrWord(285) = "奢she" arrWord(286) = "申shen" arrWord(287) = "升sheng" arrWord(288) = "尸shi" arrWord(289) = "収shou" arrWord(290) = "书shu" arrWord(291) = "刷shua" arrWord(292) = "衰shuai" arrWord(293) = "闩shuan" arrWord(294) = "霜shuang" arrWord(295) = "谁shui" arrWord(296) = "吮shun" arrWord(297) = "说shuo" arrWord(298) = "厶si" arrWord(299) = "忪song" arrWord(300) = "凁sou" arrWord(301) = "苏su"arrWord(303) = "夊sui" arrWord(304) = "孙sun" arrWord(305) = "唆suo" arrWord(306) = "他ta" arrWord(307) = "囼tai" arrWord(308) = "坍tan" arrWord(309) = "汤tang" arrWord(310) = "仐tao" arrWord(311) = "忑te" arrWord(312) = "鼟teng" arrWord(313) = "剔ti" arrWord(314) = "天tian" arrWord(315) = "旫tiao" arrWord(316) = "贴tie" arrWord(317) = "厅ting" arrWord(318) = "囲tong" arrWord(319) = "偷tou" arrWord(320) = "凸tu" arrWord(321) = "湍tuan" arrWord(322) = "推tui" arrWord(323) = "吞tun" arrWord(324) = "乇tuo" arrWord(325) = "屲wa" arrWord(326) = "歪wai"arrWord(327) = "弯wan" arrWord(328) = "尩wang" arrWord(329) = "危wei" arrWord(330) = "昷wen"arrWord(332) = "挝wo" arrWord(333) = "乌wu" arrWord(334) = "夕xi" arrWord(335) = "呷xia" arrWord(336) = "仙xian" arrWord(337) = "乡xiang" arrWord(338) = "灱xiao" arrWord(339) = "些xie" arrWord(340) = "心xin" arrWord(341) = "兴xing" arrWord(342) = "凶xiong" arrWord(343) = "休xiu" arrWord(344) = "戌xu" arrWord(345) = "吅xuan" arrWord(346) = "疶xue" arrWord(347) = "坃xun" arrWord(348) = "丫ya" arrWord(349) = "咽yan" arrWord(350) = "殃yang" arrWord(351) = "邀yao" arrWord(352) = "椰ye" arrWord(353) = "一yi" arrWord(354) = "乚yin" arrWord(355) = "应ying" arrWord(356) = "哟yo" arrWord(357) = "佣yong" arrWord(358) = "优you" arrWord(359) = "扜yu" arrWord(360) = "囦yuan"arrWord(362) = "蒀yun" arrWord(363) = "帀za" arrWord(364) = "災zai" arrWord(365) = "兂zan" arrWord(366) = "牂zang" arrWord(367) = "傮zao" arrWord(368) = "啫ze" arrWord(369) = "贼zei" arrWord(370) = "怎zen" arrWord(371) = "曽zeng" arrWord(372) = "吒zha" arrWord(373) = "夈zhai" arrWord(374) = "沾zhan" arrWord(375) = "张zhang" arrWord(376) = "佋zhao" arrWord(377) = "蜇zhe" arrWord(378) = "贞zhen" arrWord(379) = "凧zheng" arrWord(380) = "之zhi" arrWord(381) = "中zhong" arrWord(382) = "州zhou" arrWord(383) = "朱zhu" arrWord(384) = "抓zhua" arrWord(385) = "拽zhuai" arrWord(386) = "专zhuan" arrWord(387) = "妆zhuang" arrWord(388) = "隹zhui" arrWord(389) = "宒zhun" arrWord(390) = "卓zhuo"arrWord(392) = "宗zong"arrWord(393) = "邹zou"arrWord(394) = "租zu"arrWord(395) = "劗zuan"arrWord(396) = "厜zui"arrWord(397) = "尊zun"arrWord(398) = "昨zuo"arrWord(399) = "咗zuo"For i = 1 To Len(expression)STR = Mid(expression, i, 1)If (Asc(STR) < 0) ThenFor j = 1 To 399If Left(arrWord(j), 1) > STR ThenIf limit = -1 ThenSTR = Mid(arrWord(j - 1), 2) & delimiterElseSTR = Mid(arrWord(j - 1), 2, limit) & delimiterEnd IfExit ForEnd IfNextEnd IfHZQP = HZQP + STRNextHZQP = Left(HZQP, Len(HZQP) - Len(delimiter))End Function在你的excel中创建宏，输入以下内容，然后在excel中使用自定义函数=hsqp(字符表达式，"",开关参数)三种用法: =hzqp(A2,"",-1) =hzqp(A2,"-",-1) =hzqp(A2," ",-1)单词公式拼音公式我们 women women wo-men wo men=hzqp(A2,"",-1) =hzqp(A2,"-",-1) =hzqp(A2," ",-1)三种用法: =hzqp(A2,"",-1) =hzqp(A2,"-",-1) =hzqp(A2," ",-1)。

名字转换为‎首字母（VBA自定‎义函数）1、打开EXC‎E L2、按 ALT+F11 ，点击插入-插入模块，在右面窗口‎中粘贴下面‎代码，直接关闭窗‎口3、输入公式=hztop‎y(A1)，填充所有单‎元格4、选中所有缩‎写，复制-选择性粘贴‎-数值（因为是自定‎义函数，只有在当前‎文件中可以‎显示结果，其他电脑因‎没有公式而‎显示错误）5、使用条件格‎式，检索出含有‎汉字的单元‎格:先点中一个‎单元格（设为D5），条件格式-新建格式规‎则-使用公式确‎定要设置格‎式的单元格‎：在下面对话‎框中输入公‎式=LENB(D5)>LEN(D5)，自己设置格‎式，确定后退出‎，再把该单元‎格的格式用‎格式刷刷所‎有单元格。

有汉字的出‎现所设格式‎6、选择自定义‎排序-排序依据“单元格颜色‎”-次序“无单元格颜‎色”“在底端”-确定。

7、将汉字手动‎改写为相应‎的字母。

8、核对多音字‎。

注：以上方法只‎可以在当前‎文件夹使用‎，如何将宏保‎存，使自定义函‎数可以在所‎有文件夹中‎使用1、新建一个E‎X CEL2、按 ALT+F11 ，点击插入-插入模块，在右面窗口‎中粘贴下面‎代码，直接关闭窗‎口3、另存为-其他格式-文件名改为‎宏名称、保存类型选‎择“EXCEL‎加载宏（*,xlam）”,文件将自动‎保存在C:\Users‎\111\AppDa‎t a\Roami‎n g\Micro‎s oft\AddIn‎s文件夹。

4、打开需要工‎作的EXL‎E L，点击开始-EXCEL‎选项-加载项-转到（G）...-选中上面保‎存的宏名称‎-确定。

这样，在该电脑的‎所有EXC‎E L中，都可以直接‎使用自定义‎公式。

代码(只复制星号‎内的内容)******************************************************************************* Funct‎i on hztop‎y(hzpy As Strin‎g) As Strin‎gDim hzstr‎i ng As Strin‎g, pystr‎i ng As Strin‎gDim hzpys‎u m As Integ‎e r, hzi As Integ‎e r, hzpyh‎e x As Integ‎e rhzstr‎i ng = Trim(hzpy)hzpys‎u m = Len(Trim(hzstr‎i ng))pystr‎i ng = ""For hzi = 1 To hzpys‎u mhzpyh‎e x = "&H" + Hex(Asc(Mid(hzstr‎i ng, hzi, 1)))Selec‎t Case hzpyh‎e xCase &HB0A1‎To &HB0C4‎: pystr‎i ng = pystr‎i ng + "A"Case &HB0C5‎To &HB2C0‎: pystr‎i ng = pystr‎i ng + "B"Case &HB2C1‎To &HB4ED‎: pystr‎i ng = pystr‎i ng + "C"Case &HB4EE‎To &HB6E9‎: pystr‎i ng = pystr‎i ng + "D"Case &HB6EA‎To &HB7A1‎: pystr‎i ng = pystr‎i ng + "E"Case &HB7A2‎To &HB8C0‎: pystr‎i ng = pystr‎i ng + "F"Case &HB8C1‎To &HB9FD‎: pystr‎i ng = pystr‎i ng + "G"Case &HB9FE‎To &HBBF6‎: pystr‎i ng = pystr‎i ng + "H"Case &HBBF7‎To &HBFA5‎: pystr‎i ng = pystr‎i ng + "J"Case &HBFA6‎To &HC0AB‎: pystr‎i ng = pystr‎i ng + "K"Case &HC0AC‎To &HC2E7‎: pystr‎i ng = pystr‎i ng + "L"Case &HC2E8‎To &HC4C2‎: pystr‎i ng = pystr‎i ng + "M"Case &HC4C3‎To &HC5B5‎: pystr‎i ng = pystr‎i ng + "N"Case &HC5B6‎To &HC5BD‎: pystr‎i ng = pystr‎i ng + "O"Case &HC5BE‎To &HC6D9‎: pystr‎i ng = pystr‎i ng + "P"Case &HC6DA‎To &HC8BA‎: pystr‎i ng = pystr‎i ng + "Q"Case &HC8BB‎To &HC8F5‎: pystr‎i ng = pystr‎i ng + "R"Case &HC8F6‎To &HCBF9‎: pystr‎i ng = pystr‎i ng + "S"Case &HCBFA‎To &HCDD9‎: pystr‎i ng = pystr‎i ng + "T"Case &HEDC5‎: pystr‎i ng = pystr‎i ng + "T"Case &HCDDA‎To &HCEF3‎: pystr‎i ng = pystr‎i ng + "W"Case &HCEF4‎To &HD1B8‎: pystr‎i ng = pystr‎i ng + "X"Case &HD1B9‎To &HD4D0‎: pystr‎i ng = pystr‎i ng + "Y"Case &HD4D1‎To &HD7F9‎: pystr‎i ng = pystr‎i ng + "Z"Case Elsep ystr‎i ng = pystr‎i ng + Mid(hzstr‎i ng, hzi, 1)End Selec‎tNexthztop‎y = pystr‎i ngEnd Funct‎i on*******************************************************************************。

excel 表格将汉字名字，转换为汉语拼音excel 表格将汉字名字，转换为汉语拼音，除婵、婷、妍、倩、奕、嫦、冼、钰、炜、泉、楠、佼等部分字不能转换外，大部可以用此方法转换的。

打开excel 添加个模块Function PinYin(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,200 32,bi,20026,bian,20002,biao,19990,bie,19986,bin,19982,bing,19976,bo,19805,bu,19 784,"PinMa = PinMa &"ca,19775,cai,19774,can,19763,cang,19756,cao,19751,ce,19746,ceng,19741,cha,1973 9,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,1928 1,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,1 8756,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,1844 7,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,1642 9,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,1615 8,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,lu n,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,1 5363,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,148 71,pi,14857,pian,14678,piao,14674,pie,14670,pin,14668,ping,14663,po,14654,pu,14 645,"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,141 22,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,1390 6,sha,13905,shai,13896,shan,13894,shang,13878,shao,13870,she,13859,shen,13847,s heng,13831,shi,13658,shou,13611,shu,13601,shua,13406,shuai,13404,shuan,13400,sh uang,13398,shui,13395,shun,13391,shuo,13387,si,13383,song,13367,sou,13359,su,13 356,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,1259 4,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,zh en,10780,zheng,10764,zhi,10587,zhong,10544,zhou,10533,zhu,10519,zhua,10331,zhua i,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)) ThenPinYin = PinYin & MyPinMa(j - 1) & " "Exit ForEnd IfNextEnd IfNextPinYin = Trim(PinYin)End Function以上拼音码表是从网上一些工具源文伯中获得,未全部验证其准确性,但愿不会有错吧!至于算法就是根据汉字ASC码与码表进行比对,有点难看.使用中发现上边码表所获仅限于GB2312-80 I 级汉字然后再任意单元格输入=pinyin(A1)就把A1中的汉字转换成拼音了。

在此输入姓名白振松白振松bai zhensong 宾钧荣宾钧荣bin Junrong 宾小康宾小康bin xiaokang 卜崇航卜崇航bu chonghang 卜书勤卜书勤bu shuqin 卜泳勤卜泳勤bu yongqin 蔡方辉蔡方辉cai fanghui 蔡芳艳蔡芳艳cai fangyan 蔡嘉龙蔡嘉龙cai jialong 蔡希霖蔡希霖cai xilin蔡志明蔡志明cai zhiming 蔡子阅蔡子阅cai ziyue 曹志成曹志成cao zhicheng 岑昕凌岑昕凌cen xinling 曾传倩曾传倩zeng chuanqian 曾春慧曾春慧zeng chunhui 曾繁佳曾繁佳zeng fanjia 曾光聚曾光聚zeng guangju 曾海翔曾海翔zeng haixiang 曾浩铭曾浩铭zeng haoming 曾荟铭曾荟铭zeng huiming 曾金媛曾金媛zeng jinyuan 曾锦升曾锦升zeng jinsheng 曾俊源曾俊源zeng Junyuan 曾俊源曾俊源zeng Junyuan 曾亮瑜曾亮瑜zeng liangyu 曾玲曾玲zeng ling曾露露曾露露zeng lulu曾美玲曾美玲zeng meiling 曾晴曾晴zeng qing曾思梅曾思梅zeng simei 曾思宇曾思宇zeng siyu导出拼音Baizhensong Binjunrong Binxiaokang BuchonghangBushuqinBuyongqin Caifanghui CaifangyanCaijialongCaixilin CaizhimingCaiziyue CaozhichengCenxinling Zengchuanqian ZengchunhuiZengfanjia Zengguangju Zenghaixiang Zenghaoming Zenghuiming Zengjinyuan Zengjinsheng Zengjunyuan Zengjunyuan ZengliangyuZenglingZenglulu ZengmeilingZengqingZengsimeiZengsiyu。

在此输入姓名
李文才李文才li wencai 陆廷俊陆廷俊lu tingJun 刘亮刘亮liu liang 常本国常本国chang benguo 吕红军吕红军lv hongJun 周玉国周玉国zhou yuguo 秦同江秦同江qin tongjiang 张欣盛张欣盛zhang xinsheng 肖朱江肖朱江xiao zhujiang 张标张标zhang biao 李学州李学州li xuezhou 李文武李文武li wenwu 胡延克胡延克hu yanke 张登文张登文zhang dengwen 王翠林王翠林wang cuilin 崔宏祥崔宏祥cui hongxiang 李正国李正国li zhengguo 郭庆杰郭庆杰guo qingjie 樊育攀樊育攀
如果姓名清单长，向下复制列B到列F的公式
导出拼音
Li Wencai
Lu Tingjun
Liu Liang Chang Benguo
Lv Hongjun Zhou Yuguo Qin Tongjiang Zhang Xinsheng Xiao Zhujiang
Zhang Biao
Li Xuezhou
Li Wenwu
Hu Yanke Zhang Dengwen Wang Cuilin Cui Hongxiang Li Zhengguo Guo Qingjie。

中文转为拼音的公式中文转拼音的公式遵循以下规则：1.音节划分规则：-单韵母音节直接作为一个音节，例如"我"的拼音为"wǒ"。

- 复韵母音节分为两个音节，例如"脚"的拼音为"jiǎo"。

- 韵母"iu"读作"iou"，例如"那时"的拼音为"nàshí"。

- 韵母"ui"读作"uei"，例如"灰"的拼音为"huī"。

- 韵母"un"读作"uen"，例如"忙"的拼音为"máng"。

- 韵母"ü"转换为"v"，例如"香"的拼音为"xiāng"。

2.声母对应表：-b=b-p=p-m=m-f=f-d=d-t=t-n=n-l=l-g=g-k=k-h=h-j=j-q=q-x=x-z=z-c=c-s=s- zh = zh- ch = ch- sh = sh-r=r-y=y-w=w3.声调标记：-第一声：ā,ē,ī,ō,ū-第二声：á,é,í,ó,ú-第三声：ǎ,ě,ǐ,ǒ,ǔ-第四声：à,è,ì,ò,ù-不标调：a,e,i,o,u4.注意事项：-在空格处发生分词后，需要在每个分词后面加上声调标记，同时遵循以上规则。

举例：- "中国"的拼音为"zhōng guó"。

- "转化"的拼音为"zhuǎn huà"。

名字转换为首字母（VBA自定义函数）1、打开EXCEL2、按ALT+F11 ，点击插入-插入模块，在右面窗口中粘贴下面代码，直接关闭窗口3、输入公式=hztopy(A1)，填充所有单元格4、选中所有缩写，复制-选择性粘贴-数值（因为是自定义函数，只有在当前文件中可以显示结果，其他电脑因没有公式而显示错误）5、使用条件格式，检索出含有汉字的单元格:先点中一个单元格（设为D5），条件格式-新建格式规则-使用公式确定要设置格式的单元格：在下面对话框中输入公式=LENB(D5)>LEN(D5)，自己设置格式，确定后退出，再把该单元格的格式用格式刷刷所有单元格。

有汉字的出现所设格式6、选择自定义排序-排序依据“单元格颜色”-次序“无单元格颜色”“在底端”-确定。

7、将汉字手动改写为相应的字母。

8、核对多音字。

注：以上方法只可以在当前文件夹使用，如何将宏保存，使自定义函数可以在所有文件夹中使用1、新建一个EXCEL2、按ALT+F11 ，点击插入-插入模块，在右面窗口中粘贴下面代码，直接关闭窗口3、另存为-其他格式-文件名改为宏名称、保存类型选择“EXCEL加载宏（*,xlam）”,文件将自动保存在C:\Users\111\AppData\Roaming\Microsoft\AddIns文件夹。

4、打开需要工作的EXLEL，点击开始-EXCEL选项-加载项-转到（G）...-选中上面保存的宏名称-确定。

这样，在该电脑的所有EXCEL中，都可以直接使用自定义公式。

代码(只复制星号内的内容)*******************************************************************************Function hztopy(hzpy As String) As StringDim hzstring As String, pystring As StringDim hzpysum As Integer, hzi As Integer, hzpyhex As Integerhzstring = Trim(hzpy)hzpysum = Len(Trim(hzstring))pystring = ""For hzi = 1 To hzpysumhzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))Select Case hzpyhexCase &HB0A1 To &HB0C4: pystring = pystring + "A"Case &HB0C5 To &HB2C0: pystring = pystring + "B"Case &HB2C1 To &HB4ED: pystring = pystring + "C"Case &HB4EE To &HB6E9: pystring = pystring + "D"Case &HB6EA To &HB7A1: pystring = pystring + "E"Case &HB7A2 To &HB8C0: pystring = pystring + "F"Case &HB8C1 To &HB9FD: pystring = pystring + "G"Case &HB9FE To &HBBF6: pystring = pystring + "H"Case &HBBF7 To &HBFA5: pystring = pystring + "J"Case &HBFA6 To &HC0AB: pystring = pystring + "K"Case &HC0AC To &HC2E7: pystring = pystring + "L"Case &HC2E8 To &HC4C2: pystring = pystring + "M"Case &HC4C3 To &HC5B5: pystring = pystring + "N"Case &HC5B6 To &HC5BD: pystring = pystring + "O"Case &HC5BE To &HC6D9: pystring = pystring + "P"Case &HC6DA To &HC8BA: pystring = pystring + "Q"Case &HC8BB To &HC8F5: pystring = pystring + "R"Case &HC8F6 To &HCBF9: pystring = pystring + "S"Case &HCBFA To &HCDD9: pystring = pystring + "T"Case &HEDC5: pystring = pystring + "T"Case &HCDDA To &HCEF3: pystring = pystring + "W"Case &HCEF4 To &HD1B8: pystring = pystring + "X"Case &HD1B9 To &HD4D0: pystring = pystring + "Y"Case &HD4D1 To &HD7F9: pystring = pystring + "Z"Case Elsepystring = pystring + Mid(hzstring, hzi, 1)End SelectNexthztopy = pystringEnd Function*******************************************************************************。