求VBA代码：将希伯来文字符串转换为ChrW()格式

需求说明 #

把包含完整希伯来字母且末尾带空格的字符串，转换为由ChrW()函数拼接的格式。

原始字符串 #

אבגדהוזחטיךכלםמןנסעףפצקרשת 

目标转换结果 #

ChrW(1488) & ChrW(1489) & ChrW(1490) & ChrW(1491) & ChrW(1492) & ChrW(1493) & ChrW(1494) & ChrW(1495) & ChrW(1496) & ChrW(1497) & ChrW(1498) & ChrW(1499) & ChrW(1500) & ChrW(1501) & ChrW(1502) & ChrW(1503) & ChrW(1504) & ChrW(1505) & ChrW(1506) & ChrW(1507) & ChrW(1508) & ChrW(1510) & ChrW(1511) & ChrW(1512) & ChrW(1513) & ChrW(1514) & ChrW(32)

实现代码 #

Function ConvertToChrW(inputStr As String) As String
    Dim result As String
    Dim i As Integer
    
    result = ""
    For i = 1 To Len(inputStr)
        Dim charCode As Integer
        charCode = AscW(Mid(inputStr, i, 1))
        If result <> "" Then
            result = result & " & "
        End If
        result = result & "ChrW(" & charCode & ")"
    Next i
    
    ConvertToChrW = result
End Function

' 测试示例
Sub TestConversion()
    Dim hebrewStr As String
    hebrewStr = "אבגדהוזחטיךכלםמןנסעףפצקרשת "
    Debug.Print ConvertToChrW(hebrewStr)
End Sub

使用说明 #

1. 将上述代码复制到VBA编辑器中（按Alt+F11打开）
2. 运行TestConversion宏，在立即窗口（按Ctrl+G打开）查看转换结果
3. 也可在工作表单元格中直接调用函数：=ConvertToChrW(A1)，其中A1为存放目标希伯来语字符串的单元格

内容的提问来源于stack exchange，提问作者Duvdi