Разделить строку на слова и вписать в ячейки - VBA
Формулировка задачи:
Надо написать программу которая будет из ячейки с символами выделять по одному слову и вписывать их в отдельные ячейки.В строке,слова могут быть отделены большим количеством пробелов...
Фишка в том что по условию задания нельзя использовать массивы,помогите, у меня уже кончились идеи
Решение задачи: «Разделить строку на слова и вписать в ячейки»
textual
Листинг программы
Sub www() Dim A As String, i As Integer, k1 As Integer, k2 As Integer A = Range("b2") Range("A3:Z7").Clear Do k2 = InStr(k1 + 1, A, " ") If k2 = 0 Then Exit Do If k2 - k1 > 1 Then i = i + 1 Cells(8 + i, 2) = Mid$(A, k1 + 1, k2 - k1 - 1) End If k1 = k2 Loop End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д