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

Excel中的Unicode文本到阿拉伯文文本,excel,function,unicode,arabic,Excel,Function,Unicode,Arabic,我在这里问过如何将%u放在每四位数字之后,以将我的长字符串转换为正确的unicode文本。我得到了一个很好的UDF回复,效果很好。。现在从这个字符串开始 002006390632064A0632064A00200627064406390645064A0644003A0020062A0645002006270644 我能把它转换成 %u0020%u0639%u0632%u064A%u0632%u064A%u0020%u0627%u0644%u0639%u0645%u064A%u0644%u003

我在这里问过如何将
%u
放在每四位数字之后,以将我的长字符串转换为正确的unicode文本。我得到了一个很好的UDF回复,效果很好。。现在从这个字符串开始

002006390632064A0632064A00200627064406390645064A0644003A0020062A0645002006270644
我能把它转换成

%u0020%u0639%u0632%u064A%u0632%u064A%u0020%u0627%u0644%u0639%u0645%u064A%u0644%u003A%u0020%u062A%u0645%u0020%u0627%u0644
绳子太长了我刚给你看了结果。。。现在我看的是有任何excel函数,可以转换成阿拉伯语文本。事实上,这是一个非编码,我想看看它在阿拉伯语中是什么样子。 目前我正在使用一个网站


手动转换。是否有任何excel函数可以在本地执行此操作。

您可以从代码创建字节数组,并将此字节数组分配给字符串。然后可以将该字符串分配给单元格

例如:

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

我需要将unicode字符串%u0020%u0639%u0632%u064A%u0632%u064A%u0020%u0627%u0644%u0639%u0645%u064A%u0644%u003A%u0020%u062A%u0645%u0020%u0627%u0644转换为。在excel中,使用my code(使用不带“%u”的代码字符串)是可能的,您只需超越“%u”即可。你应该可以修改代码,是吗?