Как разбить текст на буквы и записать по одной в ячейке?

Question

[Diana Stoyka]

1.Пользователь задаёт текст
2.программа разбивает текст на буквы
3.записывает буквы в ячейки начиная с А4 по горизонтали
У первого поняла что надо использовать Inputbox, у второго поняла Len чтобы узнать сколько букв и Mid.
У третьего все понятно только буквы как по одной записать?
Вобщем не знаю как правильно записать в Excel коде.
Заранее спасибо за помощь

Answer 1

[idShura]

Писать готовое решение не хочу, поэтому приведу пример.
Значение из Inputbox передайте в переменную Text и поправьте в цикле ячейки в которую нужно выводить значения.

Text = "абвгд"
    
    For i = 1 To Len(Text)
        Cells(1, i) = Mid(Text, i, 1)
    Next

Comments

[Diana Stoyka]

Спасибо большое, очень сильно помогло. :)