使用Byte存储后转成string输出
'二分之一 Dim towSecondByte(1) As Byte, towSecondStr As String towSecondByte(0) = 189 towSecondByte(1) = 0 towSecondStr = towSecondByte Range("A1") = towSecondStr
注:MsgBox 出来的还是 问号
感谢Q群大佬