你好，请问怎样在excel中把名字自动转换成首写字母？

显示全部楼层 · 2012-4-5 14:34:23

在EXECL中，按ALT+F11，插入---模块复制下列代码：Function hztopy(hzpy As String) As StringDim hzstring As String, pystring As StringDim hzpysum As Integer, hzi As Integer, hzpyhex As Integerhzstring = Trim(hzpy)hzpysum = Len(Trim(hzstring))pystring = ""For hzi = 1 To hzpysum
hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))...

千问 · 2012-4-5 14:34:23

如果只是把张三装换为 Z 不用VBA函数就可以=LOOKUP(LEFT(A1),{"","";"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"呒","M";"旀","N";"噢","O";"妑","P";"七","Q"...

千问 · 2012-4-5 14:34:23

是想把如张三改为Z三吗？这个，还是用VBA吧，挺长的代码。 Function getpychar(char)tmp = 65536 + Asc(char)If (tmp >= 45217 And tmp = 45253 And tmp <= 45760...