Unicode文本到Excel中的阿拉伯语文本

我在这里问过，如何在每四位数字后把%u转换成一个合适的unicode文本。 我用UDF得到了一个很好的回复，现在从这个string开始工作了

 002006390632064A0632064A00200627064406390645064A0644003A0020062A0645002006270644 

我能够将其转换成

 %u0020%u0639%u0632%u064A%u0632%u064A%u0020%u0627%u0644%u0639%u0645%u064A%u0644%u003A%u0020%u062A%u0645%u0020%u0627%u0644 

那么string是很长，我只是告诉你结果…现在我看什么是有任何可以将其转换成阿拉伯文本的Excelfunction。 其实它是一个uncode，并希望看到它在阿拉伯文看起来如何。 目前我正在使用一个网站

http://unicode.online-toolz.com/tools/text-unicode-entities-convertor.php

手动转换它。 有什么可以在本地做的excelfunction。

Answer 1

您可以从代码创build一个字节数组，并将此字节数组分配给一个string。 这个String可以被分配给一个Cell。

例：

 Sub test() Dim sCode As String sCode = "002006390632064A0632064A00200627064406390645064A0644003A0020062A0645002006270644" Dim b() As Byte Dim j As Long j = 0 For i = 1 To Len(sCode) Step 4 ReDim Preserve b(j + 1) b(j) = Val("&H" & Mid(sCode, i + 2, 2)) b(j + 1) = Val("&H" & Mid(sCode, i, 2)) j = j + 2 Next Dim s As String s = b Range("A1").Value = s End Sub