Страницы: 1
RSS
Макрос на разделение слова на буквы, с последующей вставкой этих букв в диапазон ячеек до полного заполнения.
 
Например: есть слово qwerty. Его нужно разбить на буквы и их вставить в отдельную ячейку (сделано), но нужно вставить их в конкретный диапазон ячеек до полного заполнения этого диапазона. У слова "qwerty" - 6 букв, а диапазон состоит из 18 ячеек по столбцам. Нужно сделать так, чтобы операция разбивки слова на буквы повторялась до тех пор, пока не заполнятся все 18 ячеек.
 
Примерно так -
Код
Public Sub Разбивка()

    a = Worksheets("Лист1").Cells(3, 1).Value
    
    For i = 1 To 18 'Len(a)
        Worksheets("Лист1").Cells(6, i).Value = Mid(a, (i - 1) Mod Len(a) + 1, 1)
    Next i
End Sub
Страницы: 1
Наверх