PrivateDeclarePtrSafeFunctionLCMapStringLibkernel32AliasLCMapStringA(ByValLocaleAsLong,ByValdwMapFlagsAsLong,ByVallpSrcStrAsString,ByValcchSrcAsLong,ByVallpDestStrAsString,ByValcchDestAsLong)AsLongPrivateDeclarePtrSafeFunctionlstrlenLibkernel32AliaslstrlenA(ByVallpStringAsString)AsLongDimSTfAsString繁体字符串DimSTjAsString简体字符串DimSTlenAsLong待转换字串长度Sub简体转繁体()Gb码简体转繁体OnErrorResumeNextDim被转换区域AsRangeSet被转换区域=Application.InputBox(请选取要转换繁体的区域,替换提示,8)arr=被转换区域.ValueForx=1ToUBound(arr)STj=arr(x,1)STlen=lstrlen(STj)STf=Space(STlen)LCMapString&H804,&H4000000,STj,STlen,STf,STlenarr(x,1)=STfNextx被转换区域=arrEndSubSub繁体转简体()Gb码繁体转简体OnErrorResumeNextDim被转换区域AsRangeSet被转换区域=Application.InputBox(请选取要转换简体的区域,替换提示,8)arr=被转换区域.ValueForx=1ToUBound(arr)STf=arr(x,1)STlen=lstrlen(STf)STj=Space(STlen)LCMapString&H804,&H2000000,STf,STlen,STj,STlenarr(x,1)=STjNextx被转换区域=arrEndSub