Excel宏编辑：VB特殊字符串处理

场景：

在Excel中编写宏任务时，发现插入的特殊符号复制到编辑器后变成了另一个字符或者直接出现问号

解决方案：

百度搜索“unicode在线转换”，选一个可以在线转换的页面，然后将特殊字符转化为unicode编码

然后在编辑器中拼接字符串即可

Dim a,b,str

a = " 男     "
b = " 女"
str = a & ChrW("&H00a3") & b & ChrW("&H0052")

Width Range("A2")
    .Formula = str
    With .Characters.Font
            .name = "Wingdings 2"
            .Bold = False
            .Italic = False
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .Color = 0
            .TintAndShade = 0
            .Underline = xlUnderlineStyleNone
            .Size = 11
            .name = "宋体-简"
            .Bold = False
            .Italic = False
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .Color = 0
            .TintAndShade = 0
            .Underline = xlUnderlineStyleNone
            .Size = 11
            .name = "Wingdings 2"
            .Bold = False
            .Italic = False
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .Color = 0
            .TintAndShade = 0
            .Underline = xlUnderlineStyleNone
            .Size = 11
        End With
End With