Как отделить строчные буквы от прописных пробелом?

Автор Exc_fun, 26.04.2015, 21:00

« назад - далее »

Exc_fun

Имеется текст, в котором рандомно (вразброску) расположены слова, где строчные буквы слиплись с прописными. Нужно, к примеру, чтоб ЕвгенийЛеонов стало Евгений Леонов, a СавелийКрамаров стало Савелий Крамаров. Какой скрипт решает поставленную задачу?



kuklp

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

Exc_fun

#2
Пример я же привел. Задача нерешаемая что-ли?

NooBasTiK

Цитировать2. К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.
Прикрепить к сообщению можно только файлы gif,jpg,rar,zip,7z,bas,frm,cls,docx,xlsx,xls размером до 1000 Кб.
Прикрепить файл можно в полной форме ответа на сообщение. Под окном для ввода сообщения нажмите на знак "+" возле текста "Дополнительные опции..."

cheshiki1

вариант для одной ячейки. выделяете одну ячейку и запускаете макрос.
Sub vvv()
Dim t$, i%
t = Selection
For i = 1 To Len(t) - 1
If Mid(t, i, 1) <> UCase(Mid(t, i, 1)) And Mid(t, i + 1, 1) = UCase(Mid(t, i + 1, 1)) Then
t = Mid(t, 1, i) & " " & Mid(t, i + 1, 999)
End If
Next
Selection = Application.Trim(t)
End Sub

Exc_fun

#5
Куда вписать макрос? Вложение вставить не могу так как выскакивает ошибка:
"Извините! Уже существует вложение с таким же именем файла, как у загружаемого. Пожалуйста, переименуйте файл и повторите попытку."

Я переименовываю файл, но это не помогает. Ну напишите в столбце А Excel-я так:
СавелиКрамаров
ЕвгенийЛеонов
ВладимирИльчЛенин
ВладимирВысоцкий
АллаПугачева

cheshiki1


Exc_fun

#7
Благодарю, все хорошо. А где формула? Я ее хочу знать, чтобы вставлять в другие таблицы. Они, как правило, у меня большие (по несколько десятков тысяч имен) и копировать столбцы в эту создаст путанницу.

cheshiki1


kuklp

Exc_fun, повторяю, читайте Правила!  Тему закрываю.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771