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

Вход

Регистрация

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

 

= Мир MS Excel/Замена слов написаннх заглавными буквами - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Замена слов написаннх заглавными буквами
i4j Дата: Воскресенье, 08.03.2015, 15:13 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

Автор - i4j
Дата добавления - 08.03.2015 в 15:13
Nic70y Дата: Воскресенье, 08.03.2015, 15:16 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9133
Репутация: 2416 ±
Замечаний: 0% ±

Excel 2010
Код
=ПРОПНАЧ(A1)
вдруг внезапно окажется, что это правильно
К сообщению приложен файл: 17-11-23-15.xlsx (9.7 Kb)


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

Автор - Nic70y
Дата добавления - 08.03.2015 в 15:16
i4j Дата: Воскресенье, 08.03.2015, 15:19 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

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


Возможно, но тогда в строке получаются все слова с заглавной буквы, а надо, чтобы те, которые были написаны строчными буквами - также и остались строчными.
 
Ответить
Сообщение
=ПРОПНАЧ(A1)
вдруг внезапно окажется, что это правильно


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

Автор - i4j
Дата добавления - 08.03.2015 в 15:19
Leanna Дата: Воскресенье, 08.03.2015, 15:54 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 189
Репутация: 78 ±
Замечаний: 0% ±

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


Лучше день потерять, потом за пять минут долететь!
 
Ответить
Сообщениеi4j, вы ищите решение формулой?
Можно такое с помощью udf\макроса на VBA реализовать.

Автор - Leanna
Дата добавления - 08.03.2015 в 15:54
i4j Дата: Воскресенье, 08.03.2015, 16:07 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

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


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


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

Автор - i4j
Дата добавления - 08.03.2015 в 16:07
Leanna Дата: Воскресенье, 08.03.2015, 16:48 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 189
Репутация: 78 ±
Замечаний: 0% ±

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


Лучше день потерять, потом за пять минут долететь!
 
Ответить
СообщениеНапример так:

Автор - Leanna
Дата добавления - 08.03.2015 в 16:48
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
 
Ответить
Сообщение[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:08
  • Страница 1 из 1
  • 1
Поиск:

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