excel怎么批量将汉字转换成拼音?
excel怎么批量将汉字转换成拼音?
步骤
1、打开一张需要转换的Excel表格(如图所示，小编乱打的姓名，如有雷同，纯属巧合)
2、执行“工具→宏→Visual Basic编辑器”命令，或者直接按“Alt+F11”组合键，进入Visual Basic编辑状态。也就是图中所用的灰色的编辑界面
3、如图所示，点击“插入→模块”命令
4、插入一个新模块后，会看到如图所示的界面
5、由于字数限制，代码过多无法在这里输入，代码以TXT文本格式存在百度云盘中
下载链接: http://pan.baidu.com/s/1pLguxFd
然后将文本中的所有代码复制后，粘贴到“步骤4”中的空白处
绛旓細1銆佹墦寮闇瑕佹暣鐞嗙殑琛ㄦ牸鏁版嵁,濡備笅鍥2銆佸揩鎹烽敭alt+f11,璋冨嚭瀹忚缃〉闈,閫夋嫨鎻掑叆涓殑妯″潡閫夐」3銆佸湪鍑虹幇鐨勬ā鍧楅潰鏉夸腑,瀹氫箟涓涓猤etpy鐨勬柟娉,灏嗗涓嬩唬鐮佺矘璐磋繘鍘籉unction pinyin(p As String) As Stringi = Asc(p)Select Case iCase -20319 To -20318: pinyin = a Case -20317 To -20305: pinyin = ai Case -...
绛旓細姝ラ1銆佹墦寮涓寮犻渶瑕杞崲鐨Excel琛ㄦ牸(濡傚浘鎵绀猴紝灏忕紪涔辨墦鐨勫鍚嶏紝濡傛湁闆峰悓锛岀函灞炲阀鍚)2銆佹墽琛屸滃伐鍏封啋瀹忊啋Visual Basic缂栬緫鍣ㄢ濆懡浠わ紝鎴栬呯洿鎺ユ寜鈥淎lt+F11鈥濈粍鍚堥敭锛岃繘鍏isual Basic缂栬緫鐘舵併備篃灏辨槸鍥句腑鎵鐢ㄧ殑鐏拌壊鐨勭紪杈戠晫闈3銆佸鍥炬墍绀猴紝鐐瑰嚮鈥滄彃鍏モ啋妯″潡鈥濆懡浠4銆佹彃鍏ヤ竴涓柊妯″潡鍚庯紝浼氱湅鍒板鍥炬墍绀...
绛旓細1. 棣栧厛锛屽湪WPS Excel涓墦寮浣犻渶瑕佽浆鎹㈡嫾闊崇殑琛ㄦ牸銆2. 閫変腑鍖呭惈姹夊瓧鐨勫崟鍏冩牸鎴栧尯鍩熴備綘鍙互閫氳繃榧犳爣鐐瑰嚮骞舵嫋鎷芥潵閫夋嫨澶氫釜鍗曞厓鏍笺3. 鍦╓PS Excel鐨勮彍鍗曟爮涓紝鎵惧埌鈥滃紑濮嬧濋夐」鍗★紝骞剁偣鍑烩滄嫾闊虫寚鍗椻濇寜閽傝繖涓寜閽氬父浣嶄簬鈥滃瓧浣撯濈粍鐨勫彸涓嬭銆4. 鍦ㄥ脊鍑虹殑鈥滄嫾闊虫寚鍗椻濆璇濇涓紝浣犲彲浠ョ湅鍒伴夊畾鐨勬眽...
绛旓細1銆侀鍏堝湪鑷繁鐢佃剳涓婏紝鎵撳紑Excel涓浠借〃鏍笺2銆佸湪鎵撳紑鐨勮〃鏍糄1鍗曞厓鏍间笂锛岃緭鍏ヨ浆鎷奸煶鐨勬眽瀛楋紝鐒跺悗鍦―2鍗曞厓鏍奸噷杈撳叆=getpy(A2)鍏紡銆傚洜涓哄鍚嶅湪A鍒椾笂锛屾墍浠ラ渶瑕佸紩鐢ㄥ崟鍏冩牸閫夋嫨A2銆3銆佽緭鍏ュ畬鍏紡閫変腑濂藉紩鐢ㄥ悕瀛楃殑鍗曞厓鏍间箣鍚庯紝鎸変笅纭畾閿湪D2鍗曞厓鏍煎氨鍙互鐪嬪埌濮撳悕宸茬粡杞崲鎴愭嫾闊充簡銆4銆佺劧鍚庨変腑D2鍗曞厓鏍...
绛旓細浣跨敤鍑芥暟SUBSTITUTE锛氬彲浠ヤ娇鐢⊿UBSTITUTE鍑芥暟灏嗙壒瀹氱殑姹夊瓧鏇挎崲涓虹鍙銆備緥濡傦紝濡傛灉鎮ㄦ兂灏嗗崟鍏冩牸A1涓殑姹夊瓧鏇挎崲涓虹鍙凤紝鍙互浣跨敤浠ヤ笅鍏紡锛 =SUBSTITUTE(A1, "姹夊瓧", "绗﹀彿")浣跨敤鏉′欢鏍煎紡璁剧疆锛氭偍鍙互浣跨敤鏉′欢鏍煎紡璁剧疆锛屽皢鐗瑰畾鐨勬眽瀛楄浆鎹负绗﹀彿銆傞夋嫨鎮ㄦ兂瑕佽浆鎹㈢殑鍗曞厓鏍艰寖鍥达紝鐒跺悗鍦ㄢ滃紑濮嬧濋夐」鍗′腑閫夋嫨鈥滄潯浠...
绛旓細1銆佹墦寮鐢佃剳,鐒跺悗鎵撳紑闇瑕佺紪杈戠殑excel鏂囨。,寮濮嬮夐」鈥斺旀浛鎹㈤夐」;2銆佸湪鈥滄煡鎵惧唴瀹光濈殑杈撳叆妗嗚緭鍏ラ渶瑕佺殑鈥鏂囧瓧鍜屾暟瀛椻,鐒跺悗鐐瑰嚮鈥滄洿澶(M)鈥;3銆佸湪鈥滄牸寮忊濅腑閫夋嫨鍘熷瓧浣撴牸寮,鎵惧埌鈥滀笉鍚屽瓧浣撯濋夐」;4銆佹渶鍚庣偣鍑烩滀竴娆℃ф浛鎹负鈥,鍗冲彲瀹屾垚鎶奺xcel琛ㄦ牸涓殑鏂囧瓧鍜屾暟瀛椾竴娆℃ф浛鎹㈡垚涓嶅悓瀛椾綋銆備粎鍙傝 ...
绛旓細1銆侀鍏堢敤office Excel 2007鎵撳紑鏂囨。锛涘鍥炬墍绀恒2銆佺劧鍚庨紶鏍囨爣瀹氬湪D2鍗曞厓鏍硷紝杈撳叆鍏紡鈥=getpy(C2)鈥濓紝鎸夊洖杞﹂敭纭锛涘鍥炬墍绀恒3銆佹垜浠氨鐪嬪埌濮撳悕涓鏍姹夎鎷奸煶灏辫嚜鍔ㄥ嚭鐜颁簡锛涘鍥炬墍绀恒4銆侀変腑D2鍗曞厓鏍硷紝榧犳爣鏀惧湪鍗曞厓鏍煎彸涓嬭,褰撳嚭鐜扳+鈥濆悗锛屽悜涓嬫嫋鍔ㄩ紶鏍囷紱濡傚浘鎵绀恒5銆佽繖鏍凤紝濮撳悕涓鏍忔墍鏈夌殑姹夊瓧閮...
绛旓細涓銆佹墦寮Excel锛岀劧鍚庢寜Alt閿+F11閿墦寮Viaual Basic缂栬緫鍣紝鐐瑰嚮宸ュ叿鏍忔彃鍏ワ紝涓嬫媺鑿滃崟鍐呯偣鍑绘ā鍧椼備簩銆佹墦寮妯″潡1鍚庯紝鍦ㄤ笅鏂圭┖鐧藉绮樿创鍏ュ噯澶囧ソ鐨勪腑鏂囪浆鎷奸煶鍑芥暟锛岀劧鍚庡叧闂璙iaual Basic缂栬緫鍣ㄣ備笁銆佸洖鍒癊xcel鐣岄潰锛屽湪浠绘剰涓绌虹櫧鍗曞厓鏍煎唴杈撳叆鈥=getpy(鍗曞厓鏍)鈥濓紝鎸夊洖杞﹂敭鍗冲彲寰楀埌璇ュ崟鍏冩牸鐨勬嫾闊炽傚洓銆佹渶鍚...
绛旓細1銆侀鍏堟墦寮excel琛ㄦ牸锛屽湪閲岄潰杈撳叆涓浜涜嚜宸辫鎷奸煶鐨姹夊瓧锛屾湁浜涗汉灏辨槸鎯崇洿鎺ュ湪琛ㄦ牸涓緭鍏ユ嫾闊筹紝鐒跺悗鐐瑰嚮鍒楋紝鐐瑰嚮榧犳爣鍙抽敭锛岀劧鍚庨夋嫨澶嶅埗锛岃繖鏃跺欏氨澶嶅埗濂戒簡锛岀劧鍚庢墦寮word鏂囨。锛屽皢澶嶅埗鍐呭榛忚创杩涙潵鍗冲彲銆2銆佹帴鐫鐐瑰嚮寮濮嬪锛岀劧鍚庢壘鍒版嫾闊虫寚鍗楋紝濡傚浘鎵绀烘槸涓涓鏂囧瓧锛岃繕鏈夋嫾闊崇殑绗﹀彿锛岀洿鎺ョ偣鍑昏繖涓嵆鍙3銆佺劧鍚...
绛旓細鎵撳紑闇瑕杞崲鐨excel琛ㄦ牸鍥1鍗曞嚮excel琛ㄦ牸鐨勪换鎰忎綅缃紝鐒跺悗鎸変笅ALT+F11锛岃繘鍏ヨ繖涓伆鑹茬殑缂栬緫鐣岄潰鍥2鎻掑叆--妯″潡鍥3鎵撳紑濡備笅鎵绀虹殑鐣岄潰銆傚浘4鎶婁笅闈㈢殑鍐呭澶嶅埗绮樿创鍒扮鍥涗釜姝ラ鎵撳紑鐨勭晫闈腑锛屽苟淇濆瓨锛屽弬鑰冧笅鍥炬搷浣溿侳unctionpinyin(pAsString)AsStringi=Asc(p)SelectCaseiCase-20319To-20318:pinyin=aCaseElse:...
