在excel中实现汉字转换拼音全拼

分享一下我老师大神的人工智能教程！零基础，通俗易懂！http://blog.youkuaiyun.com/jiangjunshow

也欢迎大家转载本篇文章。分享知识，造福人民，实现我们中华民族伟大复兴！

               

在excel 2003和2007中均已经验证，可用。代码为网上收集，原作者已不可考。

[vb] view plain copy print ?

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

 

           

给我老师的人工智能教程打call！http://blog.youkuaiyun.com/jiangjunshow