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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы