Как разбить строку на отдельные слова и вывести их в столбец А активного рабочего листа в порядке возрастания их длины

@2233 · Регистрация: 26.05.2013

Author24 — интернет-сервис помощи студентам

Дана строка символов,разделенных пробелами.Разбить строку на отдельные слова и вывести их в столбец А активного рабочего листа в порядке возрастания их длины(VBA)...помогите пожалуйста((((((

@IvanOK · 03.06.2013, 16:48

Сообщение от 2233

Дана строка символов,разделенных пробелами.Разбить строку на отдельные слова

Visual Basic

1	t=split("Дана строка символов", " ")

Добавлено через 2 минуты

Сообщение от 2233

их длинны

длину можна узнaть

Visual Basic

1	k= Len(t(0))

Добавлено через 49 секунд

Сообщение от 2233

вывести их в столбец А активного рабочего листа

ну а дальше попробуй сам....

@2233 · 05.06.2013, 14:13 **[ТС]**

спасибо большое!))

@Hugo121 · 05.06.2013, 14:58

Длину приклеить слева к слову в формате "000", слова поместить в массив, созданный по количеству слов (уже известно).
Массив отсортировать, циклом выгрузить на лист, отрезая номера.
Или сперва выгрузить, затем отсортировать на листе, отрезать номера.
Или слова с номерами (отдельно) поместить в двумерный массив (номера правее), его отсортировать по номерам, выгрузить на лист только слова (без цикла). Это самое техничное и быстрое решение, но сложнее организовать сортировку (хотя ненамного, просто пример такой сортировки найти сложнее).
Вообще кажется интересная задача - вроде с виду простая, а чтоб сделать - нужно много чего знать.
Или я усложняю?

@IvanOK · 05.06.2013, 15:08

Сообщение от Hugo121

кажется интересная задача - вроде с виду простая, а чтоб сделать - нужно много чего знать.

согласен

toiai · 05.06.2013, 19:58

Можно сбросить массив на лист, определить длину каждого слова и отсортировать средствами Excel, потом собрать строку обратно:

Visual Basic

Sub besbyblik()
    Dim v
    v = Split(InputBox("Ââåäèòå ñòðîêó"))
    Application.ScreenUpdating = False
    With Workbooks.Add(xlWBATWorksheet)
        Cells(1, 1).Resize(UBound(v) + 1).Value = WorksheetFunction.Transpose(v)
        Cells(1, 2).Resize(UBound(v) + 1).Formula = "=LEN(A1)"
        [B1].Sort [B1], xlAscending, Header:=xlNo
        v = Join(WorksheetFunction.Transpose(Cells(1, 1).Resize(UBound(v) + 1).Value))
        .Close 0
    End With
    Application.ScreenUpdating = True
    MsgBox v
End Sub

@2233 0 / 0 / 0 Регистрация: 26.05.2013 Сообщений: 4
		1
	Как разбить строку на отдельные слова и вывести их в столбец А активного рабочего листа в порядке возрастания их длины 03.06.2013, 16:36. Показов 3764. Ответов 5 Метки нет (Все метки) Дана строка символов,разделенных пробелами.Разбить строку на отдельные слова и вывести их в столбец А активного рабочего листа в порядке возрастания их длины(VBA)...помогите пожалуйста(((((( 0

@2233 0 / 0 / 0 Регистрация: 26.05.2013 Сообщений: 4
	05.06.2013, 14:13 [ТС]	3
	спасибо большое!)) 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	05.06.2013, 14:58	4
	Длину приклеить слева к слову в формате "000", слова поместить в массив, созданный по количеству слов (уже известно). Массив отсортировать, циклом выгрузить на лист, отрезая номера. Или сперва выгрузить, затем отсортировать на листе, отрезать номера. Или слова с номерами (отдельно) поместить в двумерный массив (номера правее), его отсортировать по номерам, выгрузить на лист только слова (без цикла). Это самое техничное и быстрое решение, но сложнее организовать сортировку (хотя ненамного, просто пример такой сортировки найти сложнее). Вообще кажется интересная задача - вроде с виду простая, а чтоб сделать - нужно много чего знать. Или я усложняю? 1

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	05.06.2013, 15:08	5
	Сообщение от Hugo121 кажется интересная задача - вроде с виду простая, а чтоб сделать - нужно много чего знать. согласен 0

	05.06.2013, 19:58

Как разбить строку на отдельные слова и вывести их в столбец А активного рабочего листа в порядке возрастания их длины

Решение