Excel公式可以汉字代替的-excel打开是乱码

用汉字做Excel的公式又好记,这次为大家做一个小例子,自定义汉字公式把字符转为双字节,我们进入宏编辑器,编写以下代码:

Public Function 字符串转字节(ByVal strText As String) As String

Dim i As Integer

Dim sHex As String

Dim by() As Byte

sHex = ""

If strText = "" Then Exit Function

by = StrConv(strText, vbWide)

For i = 0 To UBound(by)

sHex = sHex & Right("00" & Hex(by(i)), 2) & " "

Next i

字符串转字节 = sHex

End Function

图1

我们在表格中写几个汉字,在使用公式看看

图2

在B1中输入公式"=字符串转字节(A1)"然后填充,后面显示汉字对应的字节编码,其实我们可以把这些编码用二进制保存成txt文件,用记事本打开后看到的就是一个乱码文档

本文完结!喜欢的朋友可以加关注,头条号:小嘟嘟熊