从字符到chr()

Question

我有一个字符串，我想把每个字符转换成适当的ASCII字符。

Sub IterateCharactersObject()
    Dim ch As Characters, n As Long

    With ThisWorkbook.Sheets("Sheet1").Range("A1")
        For n = 1 To .Characters.Count
            Set ch = .Characters(n, 1)

            Debug.Print ch.Text & ", " & Asc(ch) '<-- what should go in place of Asc(ch)?

        Next n
    End With

End Sub

不知道我在找什么功能，似乎找不到。

如果我的绳子以“一大.”开头然后

当A, 65

• When输出为
• 时，n= 2输出为, 32

我本质上是在寻找VBA中Chr()函数的逆。

Answer 1

使用String和Mid

Sub IterateCharactersObject()
    Dim ch As String, n As Long

    With ThisWorkbook.Sheets("Sheet1").Range("A1")
        For n = 1 To .Characters.Count
            ch = Mid(.Value, n, 1)

            Debug.Print ch & ", " & Asc(ch) '<-- what should go in place of Asc(ch)?

        Next n
    End With

End Sub

​

​