找一个vba函数把中文变成GB2312编码

shift-jis 是日语中的一种编码。

您需要使用 widechartomultibytemultibytewidechar 将一种编码转换为 unicode，然后再传输到另一种编码

转换方法如下：

以 Office 2003 为例：

“开始”菜单 - Microsoft Office - Microsoft Office 工具 - Microsoft Office 2003 语言设置，将 Microsoft Office 应用程序默认方式的语言设置为"中文（简体）。"。

使用记事本打开 CSV 文件，文件另存为，然后选择要替换的编码（例如 GBK）。

保存后，用excel打开文件，它将正常显示。

数据输入为 A1

在 B1 处输入。

code(a1)

转换后，你的公式是十六进制的，我给你的公式是十进制 10，如果你必须去十六进制的话。

一般。 需要点工具 - 加载宏 - 分析工具库（VBA 函数），然后在 A1 中输入数据

在 B1 处输入。

%"必须先将 &dec2hex（code（a1）） 添加到分析工具中，否则会发生错误。

此外，一次只能转换一个汉字。

键入多个字也仅转换第一个单词。

如果您不想加载数据分析工具。

没关系。 数据输入在 A1 中，例如 Heavy。

B1 输入。 结果是 %d6d8

实际上，它是从十进制转换为十六进制的。

让我们使用一个自定义函数：（首先将 [工具] [宏] [安全] 设置为：低或中，关闭 Excel）。

然后打开Excel，按Alt + F11，点击【插入】【模块】，粘贴以下**：

public function tohex(ran as range) as string

chinese =

a = ""

for i = 1 to len(chinese)

ch = mid(chinese, i, 1)

a = a & "%" & left(hex(asc(ch)),2) &"%" & right(hex(asc(ch)),2)

nexttohex = a

end function

按 Alt + F11 返回 Excel！

如果 b2 = 推美女，则 c2 编写公式：

tohex(b2)

这可用：%cd%c6%cd%c6%c3%c0

根据【龙井163】提问的要求，**如下：

public function tohex(ran as range) as string

chinese =

a = ""

for i = 1 to len(chinese)

ch = mid(chinese, i, 1)

a = a & "%" & hex(asc(ch))

nexttohex = a

end function

1.Unicode 概念。

Unicode是由国际组织开发的字符编码方案，可以容纳世界上所有的字符和符号。 Unicode 将这些字符与数字 0-0x10ffff 进行映射，最多可容纳 1114112 个字符或1114112码位。 码位是可以分配给字符的数字。

UTF-8、UTF-16 和 UTF-32 都是将数字转换为程序数据的编码方案。

2.GB2312编码概念。

GB 2312或GB 2312-80是中国简体中文字符集的国家标准，全称是《信息交换用汉字编码基本集》，又称GB0，由国家标准局发布，于1981年5月1日实施。 GB2312代码用于中国大陆; 此代码也用于新加坡等地。 中国大陆几乎所有的中文系统和国际软件都支持GB 2312。

GB2312-80二进制编码7445个图形字符，分别是：

6763个汉字，字体简体，分为两级。 第一级汉字3755个，按拼音排序，约占现代文学中汉字的累计频率。 二级汉字3008个，按部首和笔画排序。 一级和二级汉字占比超过累计使用频率。

1） 202 个通用符号。其中包括 1～20.， （1） （20） 等。

2）22个数字。0 9 的 10 的 12.

3） 52 个拉丁字母。有 26 个大写字母 a z 和 26 个小写字母 a z。

4） 169 日本假名。其中，平假名83个，片假名86个。

5） 48 个希腊字母。有 24 个大写字母和 24 个小写字母。

6） 66 个俄语字母。有 33 个大写字母和 33 个小写字母。

7）26个汉语拼音符号，包括带声调标记的字母和其他符号。

8） 37个汉语音标