Разделить строку на слова и вписать в ячейки - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы