Excel VBA模块文本到十六进制

【问题标题】：Excel VB module Text to HexExcel VBA模块文本到十六进制
【发布时间】：2015-01-20 21:28:45
【问题描述】：

如果可能，我需要在 Excel 中将文本转换为十六进制代码点。文字是这样的：

Тест текст

我需要像这样获取没有空格的代码点：

0422043504410442002004420435043A044104420020

有人可以帮助我吗？谢谢你。我可以用 php 或 java 来做，但不能用 VB 来解决这个问题。

【问题讨论】：

标签： vba unicode hex

【解决方案1】：

在网上找到答案：

Function Uni2Hex(Txt As String) As String
Dim n As Long
    For n = 1 To Len(Txt)
        Uni2Hex = Uni2Hex & Right("000" & hex(AscW(Mid(Txt, n, 1))), 4)
    Next n
End Function

【讨论】：

这真的应该被编辑成你的问题。这不是一个答案。