excle 汉字转拼音，把下面的代码拷贝到excel->工具-》宏-->Vb编辑器中即可：
Dim d As Object
Function InitDictinary()
Set d = CreateObject("Scripting.Dictionary")
d.Add "A", -20319
d.Add "Ai", -20317
d.Add "An", -20304
d.Add "Ang", -20295
d.Add "Ao", -20292
d.Add "Ba", -20283
d.Add "Bai", -20265
d.Add "Ban", -20257
d.Add "Bang", -20242
d.Add "Bao", -20230
d.Add "Bei", -20051
d.Add "Ben", -20036
d.Add "Beng", -20032
d.Add "Bi", -20026
d.Add "Bian", -20002
d.Add "Biao", -19990
d.Add "Bie", -19986
d.Add "Bin", -19982
d.Add "Bing", -19976
d.Add "Bo", -19805
d.Add "Bu", -19784
d.Add "Ca", -19775
d.Add "Cai", -19774
d.Add "Can", -19763
d.Add "Cang", -19756
d.Add "Cao", -19751
d.Add "Ce", -19746
d.Add "Ceng", -19741
d.Add "Cha", -19739
d.Add "Chai", -19728
d.Add "Chan", -19725
d.Add "Chang", -19715
d.Add "Chao", -19540
d.Add "Che", -19531
d.Add "Chen", -19525
d.Add "Cheng", -19515
d.Add "Chi", -19500
d.Add "Chong", -19484
d.Add "Chou", -19479
d.Add "Chu", -19467
d.Add "Chuai", -19289
d.Add "Chuan", -19288
d.Add "Chuang", -19281
d.Add "Chui", -19275
d.Add "Chun", -19270
d.Add "Chuo", -19263
d.Add "Ci", -19261
d.Add "Cong", -19249
d.Add "Cou", -19243
d.Add "Cu", -19242
d.Add "Cuan", -19238
d.Add "Cui", -19235
d.Add "Cun", -19227
d.Add "Cuo", -19224
d.Add "Da", -19218
d.Add "Dai", -19212
d.Add "Dan", -19038
d.Add "Dang", -19023
d.Add "Dao", -19018
d.Add "De", -19006
d.Add "Deng", -19003
d.Add "Di", -18996
d.Add "Dian", -18977
d.Add "Diao", -18961
d.Add "Die", -18952
d.Add "Ding", -18783
d.Add "Diu", -18774
d.Add "Dong", -18773
d.Add "Dou", -18763
d.Add "Du", -18756
d.Add "Duan", -18741
d.Add "Dui", -18735
d.Add "Dun", -18731
d.Add "Duo", -18722
d.Add "E", -18710
d.Add "En", -18697
d.Add "Er", -18696
d.Add "Fa", -18526
d.Add "Fan", -18518
d.Add "Fang", -18501
d.Add "Fei", -18490
d.Add "Fen", -18478
d.Add "Feng", -18463
d.Add "Fo", -18448
d.Add "Fou", -18447
d.Add "Fu", -18446
d.Add "Ga", -18239
d.Add "Gai", -18237
d.Add "Gan", -18231
d.Add "Gang", -18220
d.Add "Gao", -18211
d.Add "Ge", -18201
d.Add "Gei", -18184
d.Add "Gen", -18183
d.Add "Geng", -18181
d.Add "Gong", -18012
d.Add "Gou", -17997
d.Add "Gu", -17988
d.Add "Gua", -17970
d.Add "Guai", -17964
d.Add "Guan", -17961
d.Add "Guang", -17950
d.Add "Gui", -17947
d.Add "Gun", -17931
d.Add "Guo", -17928
d.Add "Ha", -17922
d.Add "Hai", -17759
d.Add "Han", -17752
d.Add "Hang", -17733
d.Add "Hao", -17730
d.Add "He", -17721
d.Add "Hei", -17703
d.Add "Hen", -17701
d.Add "Heng", -17697
d.Add "Hong", -17692
d.Add "Hou", -17683
d.Add "Hu", -17676
d.Add "Hua", -17496
d.Add "Huai", -17487
d.Add "Huan", -17482
d.Add "Huang", -17468
d.Add "Hui", -17454
d.Add "Hun", -17433
d.Add "Huo", -17427
d.Add "Ji", -17417
d.Add "Jia", -17202
d.Add "Jian", -17185
d.Add "Jiang", -16983
d.Add "Jiao", -16970
d.Add "Jie", -16942
d.Add "Jin", -16915
d.Add "Jing", -16733
d.Add "Jiong", -16708
d.Add "Jiu", -16706
d.Add "Ju", -16689
d.Add "Juan", -16664
d.Add "Jue", -16657
d.Add "Jun", -16647
d.Add "Ka", -16474
d.Add "Kai", -16470
d.Add "Kan", -16465
d.Add "Kang", -16459
d.Add "Kao", -16452
d.Add "Ke", -16448
d.Add "Ken", -16433
d.Add "Keng", -16429
d.Add "Kong", -16427
d.Add "Kou", -16423
d.Add "Ku", -16419
d.Add "Kua", -16412
d.Add "Kuai", -16407
d.Add "Kuan", -16403
d.Add "Kuang", -16401
d.Add "Kui", -16393
d.Add "Kun", -16220
d.Add "Kuo", -16216
d.Add "La", -16212
d.Add "Lai", -16205
d.Add "Lan", -16202
d.Add "Lang", -16187
d.Add "Lao", -16180
d.Add "Le", -16171
d.Add "Lei", -16169
d.Add "Leng", -16158
d.Add "Li", -16155
d.Add "Lia", -15959
d.Add "Lian", -15958
d.Add "Liang", -15944
d.Add "Liao", -15933
d.Add "Lie", -15920
d.Add "Lin", -15915
d.Add "Ling", -15903
d.Add "Liu", -15889
d.Add "Long", -15878
d.Add "Lou", -15707
d.Add "Lu", -15701
d.Add "Lv", -15681
d.Add "Luan", -15667
d.Add "Lue", -15661
d.Add "Lun", -15659
d.Add "Luo", -15652
d.Add "Ma", -15640
d.Add "Mai", -15631
d.Add "Man", -15625
d.Add "Mang", -15454
d.Add "Mao", -15448
d.Add "Me", -15436
d.Add "Mei", -15435
d.Add "Men", -15419
d.Add "Meng", -15416
d.Add "Mi", -15408
d.Add "Mian", -15394
d.Add "Miao", -15385
d.Add "Mie", -15377
d.Add "Min", -15375
d.Add "Ming", -15369
d.Add "Miu", -15363
d.Add "Mo", -15362
d.Add "Mou", -15183
d.Add "Mu", -15180
d.Add "Na", -15165
d.Add "Nai", -15158
d.Add "Nan", -15153
d.Add "Nang", -15150
d.Add "Nao", -15149
d.Add "Ne", -15144
d.Add "Nei", -15143
d.Add "Nen", -15141
d.Add "Neng", -15140
d.Add "Ni", -15139
d.Add "Nian", -15128
d.Add "Niang", -15121
d.Add "Niao", -15119
d.Add "Nie", -15117
d.Add "Nin", -15110
d.Add "Ning", -15109
d.Add "Niu", -14941
d.Add "Nong", -14937
d.Add "Nu", -14933
d.Add "Nv", -14930
d.Add "Nuan", -14929
d.Add "Nue", -14928
d.Add "Nuo", -14926
d.Add "O", -14922
d.Add "Ou", -14921
d.Add "Pa", -14914
d.Add "Pai", -14908
d.Add "Pan", -14902
d.Add "Pang", -14894
d.Add "Pao", -14889
d.Add "Pei", -14882
d.Add "Pen", -14873
d.Add "Peng", -14871
d.Add "Pi", -14857
d.Add "Pian", -14678
d.Add "Piao", -14674
d.Add "Pie", -14670
d.Add "Pin", -14668
d.Add "Ping", -14663
d.Add "Po", -14654
d.Add "Pu", -14645
d.Add "Qi", -14630
d.Add "Qia", -14594
d.Add "Qian", -14429
d.Add "Qiang", -14407
d.Add "Qiao", -14399
d.Add "Qie", -14384
d.Add "Qin", -14379
d.Add "Qing", -14368
d.Add "Qiong", -14355
d.Add "Qiu", -14353
d.Add "Qu", -14345
d.Add "Quan", -14170
d.Add "Que", -14159
d.Add "Qun", -14151
d.Add "Ran", -14149
d.Add "Rang", -14145
d.Add "Rao", -14140
d.Add "Re", -14137
d.Add "Ren", -14135
d.Add "Reng", -14125
d.Add "Ri", -14123
d.Add "Rong", -14122
d.Add "Rou", -14112
d.Add "Ru", -14109
d.Add "Ruan", -14099
d.Add "Rui", -14097
d.Add "Run", -14094
d.Add "Ruo", -14092
d.Add "Sa", -14090
d.Add "Sai", -14087
d.Add "San", -14083
d.Add "Sang", -13917
d.Add "Sao", -13914
d.Add "Se", -13910
d.Add "Sen", -13907
d.Add "Seng", -13906
d.Add "Sha", -13905
d.Add "Shai", -13896
d.Add "Shan", -13894
d.Add "Shang", -13878
d.Add "Shao", -13870
d.Add "She", -13859
d.Add "Shen", -13847
d.Add "Sheng", -13831
d.Add "Shi", -13658
d.Add "Shou", -13611
d.Add "Shu", -13601
d.Add "Shua", -13406
d.Add "Shuai", -13404
d.Add "Shuan", -13400
d.Add "Shuang", -13398
d.Add "Shui", -13395
d.Add "Shun", -13391
d.Add "Shuo", -13387
d.Add "Si", -13383
d.Add "Song", -13367
d.Add "Sou", -13359
d.Add "Su", -13356
d.Add "Suan", -13343
d.Add "Sui", -13340
d.Add "Sun", -13329
d.Add "Suo", -13326
d.Add "Ta", -13318
d.Add "Tai", -13147
d.Add "Tan", -13138
d.Add "Tang", -13120
d.Add "Tao", -13107
d.Add "Te", -13096
d.Add "Teng", -13095
d.Add "Ti", -13091
d.Add "Tian", -13076
d.Add "Tiao", -13068
d.Add "Tie", -13063
d.Add "Ting", -13060
d.Add "Tong", -12888
d.Add "Tou", -12875
d.Add "Tu", -12871
d.Add "Tuan", -12860
d.Add "Tui", -12858
d.Add "Tun", -12852
d.Add "Tuo", -12849
d.Add "Wa", -12838
d.Add "Wai", -12831
d.Add "Wan", -12829
d.Add "Wang", -12812
d.Add "Wei", -12802
d.Add "Wen", -12607
d.Add "Weng", -12597
d.Add "Wo", -12594
d.Add "Wu", -12585
d.Add "Xi", -12556
d.Add "Xia", -12359
d.Add "Xian", -12346
d.Add "Xiang", -12320
d.Add "Xiao", -12300
d.Add "Xie", -12120
d.Add "Xin", -12099
d.Add "Xing", -12089
d.Add "Xiong", -12074
d.Add "Xiu", -12067
d.Add "Xu", -12058
d.Add "Xuan", -12039
d.Add "Xue", -11867
d.Add "Xun", -11861
d.Add "Ya", -11847
d.Add "Yan", -11831
d.Add "Yang", -11798
d.Add "Yao", -11781
d.Add "Ye", -11604
d.Add "Yi", -11589
d.Add "Yin", -11536
d.Add "Ying", -11358
d.Add "Yo", -11340
d.Add "Yong", -11339
d.Add "You", -11324
d.Add "Yu", -11303
d.Add "Yuan", -11097
d.Add "Yue", -11077
d.Add "Yun", -11067
d.Add "Za", -11055
d.Add "Zai", -11052
d.Add "Zan", -11045
d.Add "Zang", -11041
d.Add "Zao", -11038
d.Add "Ze", -11024
d.Add "Zei", -11020
d.Add "Zen", -11019
d.Add "Zeng", -11018
d.Add "Zha", -11014
d.Add "Zhai", -10838
d.Add "Zhan", -10832
d.Add "Zhang", -10815
d.Add "Zhao", -10800
d.Add "Zhe", -10790
d.Add "Zhen", -10780
d.Add "Zheng", -10764
d.Add "Zhi", -10587
d.Add "Zhong", -10544
d.Add "Zhou", -10533
d.Add "Zhu", -10519
d.Add "Zhua", -10331
d.Add "Zhuai", -10329
d.Add "Zhuan", -10328
d.Add "Zhuang", -10322
d.Add "Zhui", -10315
d.Add "Zhun", -10309
d.Add "Zhuo", -10307
d.Add "Zi", -10296
d.Add "Zong", -10281
d.Add "Zou", -10274
d.Add "Zu", -10270
d.Add "Zuan", -10262
d.Add "Zui", -10260
d.Add "Zun", -10256
d.Add "Zuo", -10254
End Function
Function C(str As String) As String
Dim G As String, i As Long, i1 As Long
Dim A(), B()
C = ""
For i = 1 To Len(str)
'--------------------------------
num = Asc(Mid(str, i, 1))
If num > 0 And num < 160 Then
G = Chr(num)
Else
If num < -20319 Or num > -10247 Then
G = ""
Else
A = d.Items
B = d.keys
For i1 = d.Count - 1 To 0 Step -1
If A(i1) <= num Then Exit For
Next
G = B(i1)
End If
End If
'------------------------------------------
C = C & G
Next
End Function
Private Sub CommandButton1_Click()
Call InitDictinary
Dim i As Integer
For i = 1 To 400
Range("b" & i) = C(Range("A" & i))
Next
End Sub
