有个小孩叫小杜 上街打醋又买布 买了布 打了醋 回头看见鹰抓兔 放下布 搁下醋 上前去追鹰和兔……
繁体字和简体字之间进行转换，是编程中经常遇到的，虽然有很多在线工具可以实现转换，但是VBA代码中如何能快速实现呢？
其实利用API可以快速实现繁体字与简体字直接的转换，代码如下。
Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, _ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As LongPrivate Declare Function lStrLen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As LongFunction Jian_Fan_Conv(ByVal strString As String, Optional ByVal iMode As Integer = 0) As String Dim lStrLength As Long Dim strNew As String Const J2F_MAPFLAG = &H4000000 Const F2J_MAPFLAG = &H2000000 Jian_Fan_Conv = "" lStrLength = lStrLen(strString) strNew = Space(lStrLength) If iMode = 0 Then LCMapString &H804, J2F_MAPFLAG, strString, lStrLength, strNew, lStrLength Else LCMapString &H804, F2J_MAPFLAG, strString, lStrLength, strNew, lStrLength End If Jian_Fan_Conv = strNewEnd Function
代码是不是很简单？其实就是使用API函数LCMapString实现简繁体之间的转换。
参数dwMapFlags用于控制转换方式，是简体转为繁体，还是繁体转为简体。
参数iMode为转换模式，缺省值为0，实现简体转为繁体，如果不为0值，则繁体转为简体。
注意：
用于保存转换结果的字符串，需要先同空格填充为相应长度的字符串，否则API返回结果为空字符串。
以下示例简体转繁体：
![]()
以下示例繁体转简体：
|
|
转播
