繁体字转简体字excel(excel繁体字转换简体字快捷键)

繁体字和简体字之间进行转换，是编程中经常遇到的，虽然有很多在线工具可以实现转换，但是使用代码中如何能快速实现呢？
其实利用应用程序接口可以快速实现繁体字与简体字直接的转换，代码如下。
私有声明函数LCMapString Lib \ ‘ kernel 32 \ ‘ Alias \ ‘ LCMapStringA \ ‘(ByVal Locale As Long，_
ByVal dwMapFlags为ByVal lpSrcStrlong为字符串，ByVal cchSrc为ByVal lpDestStr为字符串，ByVal cchDest为龙)为长的
私有声明函数lstr len Lib \ ‘ kernel 32 \ ‘ Alias \ ‘ lstr Lena \ ‘(ByVal lpString作为字符串)为长的
函数建_范_Conv(ByVal strString为字符串，可选ByVal iMode为整数=0)为线
Dim lStrLength As Long
昏暗的strNew作为字符串
Const J2F_MAPFLAG=H4000000
Const F2J_MAPFLAG=H2000000
Jian_Fan_Conv=\’\ ‘
lStrLength=lStrLen(strString)
strNew=Space(lStrLength)
如果iMode=0，则
LCMapString H804，J2F_MAPFLAG，strString，lStrLength，strNew，lStrLength
其他
LCMapString H804，F2J_MAPFLAG，strString，lStrLength，strNew，lStrLength
如果…就会结束
Jian_Fan_Conv=strNew
结束功能
代码是不是很简单？其实就是使用应用程序接口函数LCMapString实现简繁体之间的转换。
参数dwMapFlags用于控制转换方式，是简体转为繁体，还是繁体转为简体。
参数iMode为转换模式，缺省值为0,实现简体转为繁体，如果不为0值，则繁体转为简体。
注意：
用于保存转换结果的字符串，需要先同空格填充为相应长度的字符串，否则应用程序接口返回结果为空字符串。