有个网友希望使用代码输入如下“月亮”字符，从截图中可以看出其字体是Segoe UI Symbol。如果文件中已经有这个字符，当然最简单的方法就是复制/粘贴，可是如果在空白文档，那么该如何输入呢？是否可以使用VBA代码直接输入这个特殊字符？ 在Office中有个神器，可以查看字符编码，例如在Word中选中字符，依次单击【插入】>【符号】>【其他符号】，在【符号】对话框中可以看到字符代码为1F319。 根据这个字符代码可以在Word中先输入1F319，然后按快捷键，将自动转换为月亮符号，操作时录制宏可以得到代码如下。

在Word中使用【插入】>【符号】>【其他符号】也可以插入月亮符号，操作时录制宏可以得到代码如下，这个代码看起来有些奇怪，两次使用InsertSymbol，但是最终文档中只是插入了一个字符，其原因是UTF16需要占用4个字节（Byte）。

在Word中使用代码插入月亮符号，还都不算太麻烦，然而在Excel中就没有这么幸运了。

如果希望插入这个符号就没有那么简单了，在Excel使用【插入】>【符号】插入月亮符号，操作时录制宏可以得到代码如下，代码中月亮符号被两个问号所代替，这个代码自然也将没有什么用处。Word VBA中的InsertSymbol和ToggleCharacterCode也无法应用于Excel。

在Excel中如何解决这个难题呢？这里要用到Byte类型数组。 Byte数组比较特殊，在VBA中可以直接使用字符串为Byte数组赋值，第5行字符串AB赋值到数组aByte中，数组中4个元素的值如下图所示，想必大家都知道字符A和B的ASC码值分别65和66。 第6行代码将Byte数组赋值给一个新的字符变量newStr。 第7行代码在立即窗口中输出变量newStr的值。 利用Byte数组的这个特性，在VBA中就可以轻松输入月亮符号了。

【代码解析】 第4行代码使用Split函数生成字符串数组。 第5~7行代码为循环结构将字符串数组赋值给Byte数组，注意此处Byte数组的4个元素分别为60,216,25,223，而并不是把字符数组iNum的每个字符的ASC保存到Byte数组中。 第8行代码将Byte数组转换为字符串。 第9行代码在活动单元格中输入月亮符号。

您也许关心为什么使用这四个数字（60,216,25,223）就可以输入月亮符号？如果输入其他符号，如何知道应该用什么数字呢？且听下回分解。

相关链接：