Скопировать слова с Заглавной буквы в соседнюю ячейку

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Скопировать слова с Заглавной буквы в соседнюю ячейку (Формулы/Formulas)

smweb

Дата: Среда, 12.10.2016, 02:10 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 1

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

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

Excel 2007

Здравствуйте, уважаемые профи.

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

Заранее, спасибо!

К сообщению приложен файл: 1735087.xlsx (9.3 Kb)

Сообщение отредактировал smweb - Среда, 12.10.2016, 03:33

Ответить

AlexM

Дата: Среда, 12.10.2016, 11:17 | Сообщение № 2

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

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

Сообщений: 4491

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

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

Excel 2003

Можно функцией пользователя. Код[vba]

Код

Function Smweb(istroka As String) As String
Dim split_stroka As Variant
split_stroka = Split(Trim(istroka), " ")
For i = 0 To UBound(split_stroka)
        If (Asc(split_stroka(i)) > 64 And Asc(split_stroka(i)) < 91) _
        Or (Asc(split_stroka(i)) > 191 And Asc(split_stroka(i)) < 224 And i > 0) Then
        Smweb = Smweb & Chr(10) & split_stroka(i)
    End If
Next i
Smweb = Mid(Smweb, 2)
End Function

[/vba]

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

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

Ответить

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