excel - 如何转换数组中的整数

Question

我正在学习如何使用 VBA。
我需要读取一个整数并将其存储在一个数组中，将其分解为单个字符。
例如，如果我输入数字 1927，我需要将其存储为

    Array[0] = 1
    Array[1] = 9
    Array[2] = 2
    Array[3] = 7

我一直在寻找如何做到这一点 2 天。有人可以帮忙吗？

Answer 1

我发现转换为 unicode 字符串并随后在 Chr(0) 上拆分是创建单个字符数组的有效方法。

Dim str As String, arr As Variant, i as long
str = StrConv(CStr(1927), vbUnicode)
arr = Split(str, Chr(0))
redim preserve arr(ubound(arr)-1)
For i = LBound(arr) To UBound(arr)
    Debug.Print arr(i)
Next i

Debug.Print Join(arr, vbNullString)