Не могу заполнить массив с символами в Excel VBA

Question

Кто-то знает, что мне делать?это говорит ожидаемый массив

dim szamok As String
szamok = Range("f2")
Dim hossz As Integer

ReDim karakterek(1 To Len(szamok)) As Characters

For i = 1 To Len(szamok)
karakterek(i) = szamok(i)
Next i

Answer 1

Как описано здесь , вы можете просто использовать

Dim bytes() as Byte
bytes = StrConv("Xmas", vbFromUnicode)

Answer 2

Я считаю, что это то, что вам нужно:

Dim szamok As String
Dim hossz As Long
Dim karakterek As Variant

szamok = Range("F2").Value

ReDim karakterek(1 To Len(szamok))

For i = 1 To Len(szamok)
    karakterek(i) = Mid(szamok, i, 1)
Next i

Изменения исходного кода:

1. Dim karakterek как Variant до Redim

2. Получить символы из szamok, используя Mid