Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Скопировать слова с Заглавной буквы в соседнюю ячейку (Формулы/Formulas)
Скопировать слова с Заглавной буквы в соседнюю ячейку
smweb Дата: Среда, 12.10.2016, 02:10 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

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

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

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


Сообщение отредактировал smweb - Среда, 12.10.2016, 03:33
 
Ответить
СообщениеЗдравствуйте, уважаемые профи.

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

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

Автор - smweb
Дата добавления - 12.10.2016 в 02:10
AlexM Дата: Среда, 12.10.2016, 11:17 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3446
Репутация: 873 ±
Замечаний: 0% ±

Можно функцией пользователя. Код[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(32Kb)


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеМожно функцией пользователя. Код[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]

Автор - AlexM
Дата добавления - 12.10.2016 в 11:17
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Скопировать слова с Заглавной буквы в соседнюю ячейку (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!