新建一个宏模块
工具->宏->Viaual Basic编辑器
插入→模块，插入一个新模块，将后续代码粘贴进去
公式：=chinese2spell(A2,0)
效果见下图：
Public Function Chinese2Spell(sChinese As String, Optional iflag As Integer = 0) As StringDim C2S As StringDim x As StringDim m As StringDim mm As StringSet d = CreateObject("Scripting.Dictionary")d.Add "a", -20319d.Add "ai", -20317d.Add "an", -20304d.Add "ang", -20295d.Add "ao", -20292d.Add "ba", -20283d.Add "bai", -20265d.Add "ban", -20257d.Add "bang", -20242d.Add "bao", -0d.Add "bei", -1d.Add "ben", -6d.Add "beng", -2d.Add "bi", -20026d.Add "bian", -20002d.Add "biao", -19990d.Add "bie", -19986d.Add "bin", -19982d.Add "bing", -19976d.Add "bo", -19805d.Add "bu", -19784d.Add "ca", -19775d.Add "cai", -19774d.Add "can", -19763d.Add "cang", -19756d.Add "cao", -19751d.Add "ce", -19746d.Add "ceng", -19741d.Add "cha", -19739d.Add "chai", -19728d.Add "chan", -19725d.Add "chang", -19715d.Add "chao", -19540d.Add "che", -19531d.Add "chen", -19525d.Add "cheng", -19515d.Add "chi", -19500d.Add "chong", -19484d.Add "chou", -19479d.Add "chu", -19467d.Add "chuai", -19289d.Add "chuan", -19288d.Add "chuang", -19281d.Add "chui", -19275d.Add "chun", -19270d.Add "chuo", -19263d.Add "ci", -19261d.Add "cong", -19249d.Add "cou", -19243d.Add "cu", -19242d.Add "cuan", -19238d.Add "cui", -19235d.Add "cun", -19227d.Add "cuo", -19224d.Add "da", -19218d.Add "dai", -19212d.Add "dan", -19038d.Add "dang", -19023d.Add "dao", -19018d.Add "de", -19006d.Add "deng", -19003d.Add "di", -18996d.Add "dian", -18977d.Add "diao", -18961d.Add "die", -18952d.Add "ding", -18783d.Add "diu", -18774d.Add "dong", -18773d.Add "dou", -18763d.Add "du", -18756d.Add "duan", -18741d.Add "dui", -18735d.Add "dun", -18731d.Add "duo", -18722d.Add "e", -18710d.Add "en", -18697d.Add "er", -18696d.Add "fa", -18526d.Add "fan", -18518d.Add "fang", -18501d.Add "fei", -18490d.Add "fen", -18478d.Add "feng", -18463d.Add "fo", -18448d.Add "fou", -18447d.Add "fu", -18446d.Add "ga", -18239d.Add "gai", -18237d.Add "gan", -18231d.Add "gang", -18220d.Add "gao", -18211d.Add "ge", -18201d.Add "gei", -18184d.Add "gen", -18183d.Add "geng", -18181d.Add "gong", -18012d.Add "gou", -17997d.Add "gu", -17988d.Add "gua", -17970d.Add "guai", -17964d.Add "guan", -17961d.Add "guang", -17950d.Add "gui", -17947d.Add "gun", -17931d.Add "guo", -17928d.Add "ha", -17922d.Add "hai", -17759d.Add "han", -17752d.Add "hang", -17733d.Add "hao", -17730d.Add "he", -17721d.Add "hei", -17703d.Add "hen", -17701d.Add "heng", -17697d.Add "hong", -17692d.Add "hou", -17683d.Add "hu", -17676d.Add "hua", -17496d.Add "huai", -17487d.Add "huan", -17482d.Add "huang", -17468d.Add "hui", -17454d.Add "hun", -17433d.Add "huo", -17427d.Add "ji", -17417d.Add "jia", -17202d.Add "jian", -17185d.Add "jiang", -16983d.Add "jiao", -16970d.Add "jie", -16942d.Add "jin", -16915d.Add "jing", -16733d.Add "jiong", -16708d.Add "jiu", -16706d.Add "ju", -16689d.Add "juan", -16664d.Add "jue", -16657d.Add "jun", -16647d.Add "ka", -16474d.Add "kai", -16470d.Add "kan", -16465d.Add "kang", -16459d.Add "kao", -16452d.Add "ke", -16448d.Add "ken", -16433d.Add "keng", -16429d.Add "kong", -16427d.Add "kou", -16423d.Add "ku", -16419d.Add "kua", -16412d.Add "kuai", -16407d.Add "kuan", -16403d.Add "kuang", -16401d.Add "kui", -16393d.Add "kun", -16220d.Add "kuo", -16216d.Add "la", -16212d.Add "lai", -16205d.Add "lan", -16202d.Add "lang", -16187d.Add "lao", -16180d.Add "le", -16171d.Add "lei", -16169d.Add "leng", -16158d.Add "li", -16155d.Add "lia", -15959d.Add "lian", -15958d.Add "liang", -15944d.Add "liao", -15933d.Add "lie", -15920d.Add "lin", -15915d.Add "ling", -15903d.Add "liu", -15889d.Add "long", -15878d.Add "lou", -15707d.Add "lu", -15701d.Add "lv", -15681d.Add "luan", -15667d.Add "lue", -15661d.Add "lun", -15659d.Add "luo", -15652d.Add "ma", -15640d.Add "mai", -15631d.Add "man", -15625d.Add "mang", -15454d.Add "mao", -15448d.Add "me", -15436d.Add "mei", -15435d.Add "men", -15419d.Add "meng", -15416d.Add "mi", -15408d.Add "mian", -15394d.Add "miao", -15385d.Add "mie", -15377d.Add "min", -15375d.Add "ming", -15369d.Add "miu", -15363d.Add "mo", -15362d.Add "mou", -15183d.Add "mu", -15180d.Add "na", -15165d.Add "nai", -15158d.Add "nan", -15153d.Add "nang", -15150d.Add "nao", -15149d.Add "ne", -15144d.Add "nei", -15143d.Add "nen", -15141d.Add "neng", -15140d.Add "ni", -15139d.Add "nian", -15128d.Add "niang", -15121d.Add "niao", -15119d.Add "nie", -15117d.Add "nin", -15110d.Add "ning", -15109d.Add "niu", -14941d.Add "nong", -14937d.Add "nu", -14933d.Add "nv", -14930d.Add "nuan", -14929d.Add "nue", -14928d.Add "nuo", -14926d.Add "o", -14922d.Add "ou", -14921d.Add "pa", -14914d.Add "pai", -14908d.Add "pan", -14902d.Add "pang", -14894d.Add "pao", -14889d.Add "pei", -14882d.Add "pen", -14873d.Add "peng", -14871d.Add "pi", -14857d.Add "pian", -14678d.Add "piao", -14674d.Add "pie", -14670d.Add "pin", -14668d.Add "ping", -14663d.Add "po", -14654d.Add "pu", -14645d.Add "qi", -14630d.Add "qia", -14594d.Add "qian", -14429d.Add "qiang", -14407d.Add "qiao", -14399d.Add "qie", -14384d.Add "qin", -14379d.Add "qing", -14368d.Add "qiong", -14355d.Add "qiu", -14353d.Add "qu", -14345d.Add "quan", -14170d.Add "que", -14159d.Add "qun", -14151d.Add "ran", -14149d.Add "rang", -14145d.Add "rao", -14140d.Add "re", -14137d.Add "ren", -14135d.Add "reng", -14125d.Add "ri", -14123d.Add "rong", -14122d.Add "rou", -14112d.Add "ru", -14109d.Add "ruan", -14099d.Add "rui", -14097d.Add "run", -14094d.Add "ruo", -14092d.Add "sa", -14090d.Add "sai", -14087d.Add "san", -14083d.Add "sang", -13917d.Add "sao", -13914d.Add "se", -13910d.Add "sen", -13907d.Add "seng", -13906d.Add "sha", -13905d.Add "shai", -13896d.Add "shan", -13894d.Add "shang", -13878d.Add "shao", -13870d.Add "she", -13859d.Add "shen", -13847d.Add "sheng", -13831d.Add "shi", -13658d.Add "shou", -13611d.Add "shu", -13601d.Add "shua", -13406d.Add "shuai", -13404d.Add "shuan", -13400d.Add "shuang", -13398d.Add "shui", -13395d.Add "shun", -13391d.Add "shuo", -13387d.Add "si", -13383d.Add "song", -13367d.Add "sou", -13359d.Add "su", -13356d.Add "suan", -13343d.Add "sui", -13340d.Add "sun", -13329d.Add "suo", -13326d.Add "ta", -13318d.Add "tai", -13147d.Add "tan", -13138d.Add "tang", -13120d.Add "tao", -13107d.Add "te", -13096d.Add "teng", -13095d.Add "ti", -13091d.Add "tian", -13076d.Add "tiao", -13068d.Add "tie", -13063d.Add "ting", -13060d.Add "tong", -12888d.Add "tou", -12875d.Add "tu", -12871d.Add "tuan", -12860d.Add "tui", -12858d.Add "tun", -12852d.Add "tuo", -12849d.Add "wa", -12838d.Add "wai", -12831d.Add "wan", -12829d.Add "wang", -12812d.Add "wei", -12802d.Add "wen", -12607d.Add "weng", -12597d.Add "wo", -12594d.Add "wu", -12585d.Add "xi", -12556d.Add "xia", -12359d.Add "xian", -12346d.Add "xiang", -12320d.Add "xiao", -12300d.Add "xie", -12120d.Add "xin", -12099d.Add "xing", -12089d.Add "xiong", -12074d.Add "xiu", -12067d.Add "xu", -12058d.Add "xuan", -12039d.Add "xue", -11867d.Add "xun", -11861d.Add "ya", -11847d.Add "yan", -11831d.Add "yang", -11798d.Add "yao", -11781d.Add "ye", -11604d.Add "yi", -11589d.Add "yin", -11536d.Add "ying", -11358d.Add "yo", -11340d.Add "yong", -11339d.Add "you", -11324d.Add "yu", -11303d.Add "yuan", -11097d.Add "yue", -11077d.Add "yun", -11067d.Add "za", -11055d.Add "zai", -11052d.Add "zan", -11045d.Add "zang", -11041d.Add "zao", -11038d.Add "ze", -11024d.Add "zei", -11020d.Add "zen", -11019d.Add "zeng", -11018d.Add "zha", -11014d.Add "zhai", -10838d.Add "zhan", -10832d.Add "zhang", -10815d.Add "zhao", -10800d.Add "zhe", -10790d.Add "zhen", -10780d.Add "zheng", -10764d.Add "zhi", -10587d.Add "zhong", -10544d.Add "zhou", -10533d.Add "zhu", -10519d.Add "zhua", -10331d.Add "zhuai", -10329d.Add "zhuan", -10328d.Add "zhuang", -10322d.Add "zhui", -10315d.Add "zhun", -10309d.Add "zhuo", -10307d.Add "zi", -10296d.Add "zong", -10281d.Add "zou", -10274d.Add "zu", -10270d.Add "zuan", -10262d.Add "zui", -10260d.Add "zun", -10256d.Add "zuo", -10254num = Asc(sChinese)a = d.Itemsb = d.keysApplication.VolatileFor L = 1 To Len(sChinese)num = Asc(Mid(sChinese, L, 1))For i = d.Count - 1 To 0 Step -1If a(i) <= num Then Exit ForNextSelect Case iflagCase 0 '返回拼音(首字大写)If L = 1 Then x = Application.WorksheetFunction.Proper(b(i))If L = 2 Then m = Application.WorksheetFunction.Proper(b(i))If L = 3 Then mm = b(i)Case 1 '返回小写拼音C2S = C2S & b(i)Case 2 '返回大写拼音C2S = C2S & UCase$(b(i))Case 3 '返回小写拼音首字C2S = C2S & Left$(b(i), 1)Case 4 '返回大写拼音首字C2S = C2S & UCase$(Left$(b(i), 1))End SelectIf Len(sChinese) > 1 And iflag < 2 Then C2S = m & mm & " " & xNextChinese2Spell = C2SSet d = NothingEnd Function
如果觉得《Excel姓名转换为拼音 名字首字母大写 姓首字母大写 名在姓前》对你有帮助，请点赞、收藏，并留下你的观点哦！
