Attribute VB_Name = "查汉字的区位码"
Public Function QuWeiMa(mRange As Range) As String
Dim bCode() As Byte, s As String
bCode = StrConv(mRange.Value, vbFromUnicode)
For ii = 0 To UBound(bCode) Step 2
s = s & bCode(ii) - 160 & bCode(ii + 1) - 160 & " "
Next ii
QuWeiMa = s
End Function
查汉字的区位码
最新推荐文章于 2023-11-30 17:02:17 发布