Сортировка слов внутри ячейки

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Сортировка слов внутри ячейки - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Сортировка слов внутри ячейки (Формулы/Formulas)

Сортировка слов внутри ячейки

msvmsu

Дата: Среда, 25.01.2017, 23:32 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 49

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Здравствуйте!

Подскажите, как можно отсортировать слова внутри каждой ячейки так, чтобы сначала было слово, первая буква которого первая по алфавиту, затем следующая первая буква и т.д.?
Пример в файле.

Заранее благодарю.

К сообщению приложен файл: 0387766.xls (26.5 Kb)

Ответить

AlexM

Дата: Четверг, 26.01.2017, 00:17 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

Функция пользователя[vba]

Код

Function SortText(iText As Range) As String
Dim Arr, i As Long, j As Long, iWord As String
Arr = Split(iText)
For i = 0 To UBound(Arr)
    For j = 0 To UBound(Arr) - 1 - i
        If Arr(j) > Arr(j + 1) Then
            iWord = Arr(j)
            Arr(j) = Arr(j + 1)
            Arr(j + 1) = iWord
        End If
    Next j
Next i
SortText = Join(Arr)
End Function

[/vba]

К сообщению приложен файл: 0387766_01.xls (34.0 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Четверг, 26.01.2017, 00:18

Ответить

msvmsu

Дата: Четверг, 26.01.2017, 08:00 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 49

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

AlexM, огромное спасибо. Это то, что нужно.

Ответить

Сортировка слов внутри ячейки (Формулы/Formulas)

Страница 1 из 1
1