怎样能使EXCEL里的汉字变成拼音啊？ EXCEL中怎么把汉字转成拼音？
\u5982\u4f55\u5728excel\u4e2d\u628a\u6c49\u5b57\u8f6c\u6362\u6210\u62fc\u97f3\u6253\u5f00Excel->\u5de5\u5177->\u5b8f->Viaual Basic\u7f16\u8f91\u5668
\u5728\u5f39\u51fa\u6765\u7684\u7a97\u53e3\u4e2d\u5bf9\u7740VBAproject\u70b9\u53f3\u952e->\u63d2\u5165->\u6a21\u5757
\u4e0b\u9762\u4f1a\u51fa\u73b0\u4e00\u4e2a\u540d\u4e3a"\u6a21\u57571"\uff0c\u70b9\u51fb
\u5728\u53f3\u8fb9\u7684\u7a7a\u767d\u680f\u4e2d\u7c98\u8d34\u4ee5\u4e0b\u5185\u5bb9\uff1a
Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20284: pinyin = "A"
Case -20283 To -19776: pinyin = "B"
Case -19775 To -19219: pinyin = "C"
Case -19218 To -18711: pinyin = "D"
Case -18710 To -18527: pinyin = "E"
Case -18526 To -18240: pinyin = "F"
Case -18239 To -17923: pinyin = "G"
Case -17922 To -17418: pinyin = "H"
Case -17417 To -16475: pinyin = "J"
Case -16474 To -16213: pinyin = "K"
Case -16212 To -15641: pinyin = "L"
Case -15640 To -15166: pinyin = "M"
Case -15165 To -14923: pinyin = "N"
Case -14922 To -14915: pinyin = "O"
Case -14914 To -14631: pinyin = "P"
Case -14630 To -14150: pinyin = "Q"
Case -14149 To -14091: pinyin = "R"
Case -14090 To -13319: pinyin = "S"
Case -13318 To -12839: pinyin = "T"
Case -12838 To -12557: pinyin = "W"
Case -12556 To -11848: pinyin = "X"
Case -11847 To -11056: pinyin = "Y"
Case -11055 To -2050: pinyin = "Z"
Case Else: pinyin = p
End Select
End Function
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & pinyin(Mid(str, i, 1))
Next i
End Function
********\u590d\u5236\u5230\u6b64\u7ed3\u675f,\u672c\u884c\u4e0d\u590d\u5236*******
\u73b0\u5728\u8f6c\u6362\u51fd\u6570\u5df2\u7f16\u5199\u5b8c\u6210!\u5173\u6389\u6b64\u7f16\u7f09\u7684\u7a97\u53e3\u3002
准备工具/材料：装有windows 10的电脑一台，Microsoft Office 家庭和学生版 2007 excel软件。
1、首先使用officeExcel2007打开文档；
2、然后在单元格D2中标记鼠标，输入公式"=getpy(C2) "，然后按回车键确认；
3、我们就看到姓名一栏汉语拼音就自动出现了；
4、选择单元格D2，将鼠标放在单元格的右下角，并在" "出现时向下拖动鼠标；
5、这样，姓名一栏所有的汉字都以拼音形式显示了。
应用举例
目标汉字： 汉字转拼音举例
1 显示用空格分开的拼音
公式： =HzToPy($b$19," ")
结果： hàn zì zhuǎn pīn yīn jǔ lì
2 显示用空格分开的拼音，同时不显示注音符号
公式： =HzToPy($b$19," ",false)
结果： han zi zhuan pin yin ju li
3 显示用空格分开的拼音，不显示注音符号,同时仅显示拼音的首字,并大写
公式： =HzToPy($b$19," ",false，true，false)
结果： H Z ZH P Y J L
4 显示用空格分开的拼音，不显示注音符号,同时仅显示拼音的首字母,并大写
公式： =HzToPy($b$19," ",false，true)
结果： H Z Z P Y J L
1.手动打拼音进去；
2.在word里转换出拼音复制进去
3.自定义函数，需要自己编辑了
用自定义函数吧。不难的。excelhome论坛很不错的。
可以用vba自定义函数。
参考：
http://club.excelhome.net/thread-229924-1-1.html
绛旓細1. 棣栧厛锛屽湪WPS Excel涓墦寮浣犻渶瑕佽浆鎹㈡嫾闊崇殑琛ㄦ牸銆2. 閫変腑鍖呭惈姹夊瓧鐨勫崟鍏冩牸鎴栧尯鍩熴浣犲彲浠ラ氳繃榧犳爣鐐瑰嚮骞舵嫋鎷芥潵閫夋嫨澶氫釜鍗曞厓鏍銆3. 鍦╓PS Excel鐨勮彍鍗曟爮涓紝鎵惧埌鈥滃紑濮嬧濋夐」鍗★紝骞剁偣鍑烩滄嫾闊虫寚鍗椻濇寜閽傝繖涓寜閽氬父浣嶄簬鈥滃瓧浣撯濈粍鐨勫彸涓嬭銆4. 鍦ㄥ脊鍑虹殑鈥滄嫾闊虫寚鍗椻濆璇濇涓紝浣犲彲浠ョ湅鍒伴夊畾鐨勬眽...
绛旓細1銆侀鍏堝湪鑷繁鐢佃剳涓婏紝鎵撳紑Excel涓浠借〃鏍笺2銆佹垜浠氨鍦ㄦ墦寮鐨勮〃鏍糄1鍗曞厓鏍间笂锛岃緭鍏ヨ浆鎷奸煶鐨勬眽瀛锛岀劧鍚庡湪D2鍗曞厓鏍奸噷杈撳叆=getpy(A2)鍏紡銆傚洜涓哄鍚嶅湪A鍒椾笂锛屾墍浠ラ渶瑕佸紩鐢ㄥ崟鍏冩牸閫夋嫨A2銆3銆佽緭鍏ュ畬鍏紡閫変腑濂藉紩鐢ㄥ悕瀛楃殑鍗曞厓鏍间箣鍚庯紝鎸変笅纭畾閿湪D2鍗曞厓鏍煎氨鍙互鐪嬪埌濮撳悕宸茬粡杞崲鎴愭嫾闊充簡銆4銆佺劧鍚庨変腑D2...
绛旓細1銆佷粠excel澶嶅埗浜哄悕鍒皐ord锛岄紶鏍囧叏閫夋眽瀛楋紝閫氳繃Ctrl+C蹇嵎閿鍒讹紝鏃犳牸寮忛粡璐村埌word銆2銆佷娇鐢╓ord涓瓧浣撹彍鍗曢噷鐨勨滄嫾闊虫寚鍗椻濆姛鑳斤紝鐐瑰嚮纭畾銆3銆佸鍒秝ord涓嫾闊筹紝閫氳繃Ctrl+V蹇嵎閿矘璐村埌excel銆4銆佸埄鐢≒honetic鍑芥暟鎻愬彇鍗曞厓鏍间腑鐨勬嫾闊筹紝鍦–1鍗曞厓鏍艰緭鍏=Phonetic锛圔1锛夛紝鍥炶溅锛岄紶鏍囧啀閫変腑C1鍗曞厓鏍硷紝灏嗛紶鏍...
绛旓細1銆侀鍏堜娇鐢╫fficeExcel2007鎵撳紑鏂囨。锛2銆佺劧鍚庡湪鍗曞厓鏍糄2涓爣璁伴紶鏍囷紝杈撳叆鍏紡"=getpy(C2) "锛岀劧鍚庢寜鍥炶溅閿‘璁锛3銆佹垜浠氨鐪嬪埌濮撳悕涓鏍忔眽璇嫾闊冲氨鑷姩鍑虹幇浜嗭紱4銆侀夋嫨鍗曞厓鏍糄2锛屽皢榧犳爣鏀惧湪鍗曞厓鏍肩殑鍙充笅瑙掞紝骞跺湪" "鍑虹幇鏃跺悜涓嬫嫋鍔ㄩ紶鏍囷紱5銆佽繖鏍凤紝濮撳悕涓鏍忔墍鏈夌殑姹夊瓧閮戒互鎷奸煶褰㈠紡鏄剧ず浜嗐
绛旓細杞欢鐗堟湰锛歄ffice2013 鏂规硶濡備笅锛1.灏嗕笅闈㈢畝浣撳瓧杞崲鎴愮箒浣撳瓧锛2.閫夋嫨瀛椾綋鎵鍦ㄥ崟鍏冩牸锛岀偣鍑诲闃呰彍鍗曚腑鐨勨滅畝杞箒鈥濓細3.杩欐牱锛屽氨灏嗙畝浣撳瓧杞崲鎴愪簡绻佷綋锛
绛旓細濡傛灉鎮ㄦ兂灏咵xcel涓殑鏂囧瓧鏇存敼涓烘埧鍙凤紝鎮鍙互浣跨敤浠ヤ笅姝ラ锛氭墦寮Excel骞舵墦寮鎮ㄧ殑宸ヤ綔绨裤傞夋嫨鎮ㄨ鏇存敼鐨勫崟鍏冩牸鎴栧崟鍏冩牸鍖哄煙銆傚湪鑿滃崟鏍忎腑閫夋嫨鈥滄暟鎹濋夐」鍗★紝鐒跺悗閫夋嫨鈥滄暟鎹獙璇佲濄傚湪寮瑰嚭鐨勫璇濇涓夋嫨鈥滃簭鍒椻濓紝鍦ㄢ滄潵婧愨濇涓緭鍏ユ偍瑕佷娇鐢ㄧ殑鎴垮彿搴忓垪锛屼緥濡傗101,102,103,104,105鈥︹︹濄傜偣鍑烩滅‘瀹...
绛旓細1銆佹墦寮瑕佽浆鎹㈡垚鎷奸煶鐨excel琛ㄦ牸 2銆佹寜鈥淎lt+F11鈥濈粍鍚堥敭锛岃繘鍏isual Basic缂栬緫鐘舵併備篃灏辨槸鐪嬪埌鐨勮繖涓伆鑹茬殑缂栬緫鐣岄潰 3銆佹墽琛屸滄彃鍏モ啋妯″潡鈥濆懡浠わ紝鎻掑叆涓涓柊妯″潡銆傚啀鍙屽嚮鎻掑叆鐨勬ā鍧楋紝杩涘叆妯″潡浠ｇ爜缂栬緫鐘舵侊紱4銆佺湅鍒板涓嬬晫闈 5銆鎶涓嬮潰鐨勬墍鏈夊唴瀹瑰鍒讹紝绮樿创鍒版楠4涓殑绌虹櫧澶 澶嶅埗鍐呭鍒板壀璐存澘 Functio...
绛旓細1銆佹墦寮鐩稿簲鐨Excel鏂囦欢,鎸夆淎lt+F11鈥濈粍鍚堥敭锛屽脊鍑衡淰isual Basic缂栬緫鍣ㄢ濄2銆侀紶鏍囩偣鍑烩淰isual Basic缂栬緫鍣ㄢ濊彍鍗曟爮鐨勨滄彃鍏モ濋夐」锛岄夋嫨涓嬫媺鍒楄〃閲岀殑鈥滄ā鍧椻濓紝鎻掑叆鈥滄ā鍧椻濄1.鍚姩Excel 2003锛堝叾瀹冪増鏈浠跨収鎿嶄綔锛夛紝鎵撳紑鐩稿簲鐨勫伐浣滆〃銆2.鎵ц鈥滃伐鍏封啋瀹忊啋Visual Basic缂栬緫鍣ㄢ濆懡浠わ紙鎴栬呯洿鎺ユ寜鈥...
绛旓細1銆佽繍琛excel2013锛屽苟杈撳叆杩欎簺鎸囧畾姹夊瓧銆2銆佸湪c1鍗曞厓鏍艰緭鍏ュ叕寮忊=VLOOKUP(A1,{"濂囧濂",1;"濂囧鍋",2;"濂囧伓濂",3;"濂囧伓鍋",4;"鍋跺伓鍋",5;"鍋跺伓濂",6;"鍋跺鍋",7;"鍋跺濂",8},2,0)鈥濄3銆佽緭鍏ュ叕寮忓悗鍥炶溅锛屽嵆鍙湅鍒拌浆鎹㈠畬鎴愶紝涓旂鍚堣姹傘4銆佺偣鎸塁1鍗曞厓鏍煎彸涓嬭鍗佸瓧锛屽悜涓嬫嫋鍔ㄥ～鍏...
绛旓細鐢鑷畾涔夊嚱鏁颁笌EXCEL鍑芥暟缁撳悎锛屽鍥撅紝濡傞檮浠躲傝寰楀姞杞藉畯锛=SUBSTITUTE(SUBSTITUTE(Getpy(A1),MID(Getpy(A1),1,FIND(" ",Getpy(A1))),"")," ","") & " " & MID(Getpy(A1),1,FIND(" ",Getpy(A1)))
