作者：绿色风
分类：
时间：2022-08-18
浏览：67
楼主
xyf2210 |
Q:如何将十进制转成unicode的16进制对应的汉字?
A:- Sub test1()
- Dim zw
- With CreateObject("vbscript.regexp") '引用正则
- .Global = True
- .Pattern = "&#\d{5};" '匹配模式
- If .test(Range("a1").Value) Then '判断是否存在匹配
- arr = Split(.Replace(Range("a1").Value, vbTab), vbTab)
- Set mc = .Execute(Range("a1").Value)
- For i = 0 To UBound(arr)
- If i = UBound(arr) Then
- zw = zw & arr(i)
- Else: zw = zw & arr(i) & ChrW(Mid(mc(i), 3, 5)) '转换为汉字
- End If
- Next
- End If
- End With
- Range("a2") = zw
- End Sub
- Sub test()
- Dim s
- s = [A1]
- Do While InStr(s, "&#") > 0 'instr函数判断
- temp = Split(Split(s, "&#")(1), ";")(0)
- s = Replace(s, "&#" & temp & ";", ChrW(temp)) '转换为汉字
- Loop
- [A2] = s
- End Sub
 test.rar
|
2楼
纵鹤擒龙水中月 |
过来学习一下 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一