Замена слов написаннх заглавными буквами

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

Замена слов написаннх заглавными буквами (Формулы/Formulas)

i4j

Дата: Воскресенье, 08.03.2015, 15:13 | Сообщение № 1

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

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

Сообщений: 3

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

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

Excel 2010

Здравствуйте!
Уважаемые, Гуру! Такая проблема. Есть файл с 50 тыс строк. В строках встречаются наименования, которые частично написаны заглавными буквами. Слова, которые написаны заглавными буквами встречаются в середине строки (в любой части строки). Необходимо в экселе заменить все слова, которые написаны заглавными буквами, на такие же слова, которые написаны с первой заглавной буквы, а остальные все прописные.
Файл с пример прикреплен.

Прошу помощи!!!

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

Ответить

Nic70y

Дата: Воскресенье, 08.03.2015, 15:16 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 9133

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

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

Excel 2010

Код

=ПРОПНАЧ(A1)

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

К сообщению приложен файл: 17-11-23-15.xlsx (9.7 Kb)

ЮMoney 41001841029809

Ответить

i4j

Дата: Воскресенье, 08.03.2015, 15:19 | Сообщение № 3

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

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

Сообщений: 3

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

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

Excel 2010

Цитата Nic70y, 08.03.2015 в 15:16, в сообщении № 2

=ПРОПНАЧ(A1)
вдруг внезапно окажется, что это правильно

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

Ответить

Leanna

Дата: Воскресенье, 08.03.2015, 15:54 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

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

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

excel 2010

i4j, вы ищите решение формулой?
Можно такое с помощью udf\макроса на VBA реализовать.

Лучше день потерять, потом за пять минут долететь!

Ответить

i4j

Дата: Воскресенье, 08.03.2015, 16:07 | Сообщение № 5

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

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

Сообщений: 3

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

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

Excel 2010

Цитата Leanna, 08.03.2015 в 15:54, в сообщении № 4

Можно такое с помощью udf\макроса на VBA реализовать.

как сие реализовать?

Ответить

Leanna

Дата: Воскресенье, 08.03.2015, 16:48 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

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

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

excel 2010

Например так:

К сообщению приложен файл: propnach.xlsm (15.9 Kb)

Лучше день потерять, потом за пять минут долететь!

Ответить

RAN

Дата: Воскресенье, 08.03.2015, 18:08 | Сообщение № 7

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

[vba]

Код

Function мяу$(s As String)
      Dim arrs: arrs = Split(s)
      For i = LBound(arrs) To UBound(arrs)
          arrs(i) = StrConv(arrs(i), Abs(arrs(i) Like "*[A-ZА-ЯЁ]*") + 2)
      Next
      мяу = Join(arrs)
End Function

[/vba]

[vba]

Код

Function мяв$(s As String)
     Dim arrs: arrs = Split(s)
     For i = LBound(arrs) To UBound(arrs)
         arrs(i) = StrConv(arrs(i), Abs(arrs(i) Like "*[A-ZА-ЯЁ]*") + 2)
     Next
     мяв = Join(arrs): Mid$(мяв, 1, 1) = UCase$(Mid$(мяв, 1, 1))
End Function

[/vba]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Воскресенье, 08.03.2015, 18:17

Ответить

Замена слов написаннх заглавными буквами (Формулы/Formulas)

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