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 = sEnd Function
