VBA向Excel写入特定Unicode字符被自动转数字如何解决

通过VBA向Excel单元格写入ChrW(6161)对应的蒙古文数字字符时，执行代码后读取单元格内容，AscW(Selection.Value)返回值为49（对应基础阿拉伯数字1），而非预期的6161。
该问题是Excel内置的自动转换逻辑导致：程序会将特定Unicode区间内的多语种数字字符，自动识别转换为基础阿拉伯数字0-9，受影响的字符编码区间如下：

• 阿拉伯-印度数字：ChrW(1632 To 1641)
• 扩展阿拉伯-印度数字：ChrW(1776 To 1785)
• 天城文数字：ChrW(2406 To 2415)
• 孟加拉文数字：ChrW(2534 To 2543)
• 古木基文数字：ChrW(2662 To 2671)
• 古吉拉特文数字：ChrW(2790 To 2799)
• 奥里亚文数字：ChrW(2918 To 2927)
• 泰米尔文数字：ChrW(3046 To 3055)
• 泰卢固文数字：ChrW(3174 To 3183)
• 卡纳达文数字：ChrW(3302 To 3311)
• 马拉雅拉姆文数字：ChrW(3430 To 3439)
• 僧伽罗文数字：ChrW(3664 To 3673)
• 泰文数字：ChrW(3792 To 3801)
• 老挝文数字：ChrW(3872 To 3881)
• 缅甸文数字：ChrW(4160 To 4169)
• 埃塞俄比亚数字：ChrW(4969 To 4977)
• 高棉文数字：ChrW(6112 To 6121)
• 蒙古文数字：ChrW(6160 To 6169)

Excel自动转换的触发条件是将输入内容识别为数值类型，只要强制单元格以文本格式存储目标字符，就能绕过该转换逻辑，两种可直接使用的实现方案如下：

方案1：提前设置单元格为文本格式 #

在写入内容前，先将目标单元格的数字格式修改为文本，再赋值即可完整保留原始Unicode字符，测试代码：

Public Sub WriteSpecialDigit()
    ' 先设置选中区域为文本格式
    Selection.NumberFormat = "@"
    ' 写入目标字符
    Selection.Value = ChrW(6161)
    ' 验证：立即窗口输出6161，符合预期
    Debug.Print AscW(Selection.Value)
End Sub

方案2：写入时前置半角单引号 #

写入内容时在目标字符前拼接半角单引号'，Excel会直接将后续内容标记为文本，不会触发数字自动转换，且单引号本身不会显示在单元格中，测试代码：

Public Sub WriteSpecialDigitDirect()
    ' 前置半角单引号强制按文本存储
    Selection.Value = "'" & ChrW(6161)
    ' 验证：立即窗口输出6161
    Debug.Print AscW(Selection.Value)
End Sub

注意：必须在写入内容前完成文本格式设置，若先写入字符再修改格式，自动转换在内容写入的瞬间就已完成，后续操作无法恢复被替换的原始字符。

内容的提问来源于stack exchange，提问作者8平民