Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Замена слов написанных заглавными буквами
 
Здравствуйте!

Уважаемые, Гуру! Такая проблема. Есть файл с 50 тыс строк. В строках
встречаются наименования, которые частично написаны заглавными буквами.
Слова, которые написаны заглавными буквами встречаются в середине строки
(в любой части строки). Необходимо в экселе заменить все слова, которые
написаны заглавными буквами, на такие же слова, которые написаны с
первой заглавной буквы, а остальные все прописные. При этом, слова которые уже написаны строчными буквами - также должны и остаться строчными.
Файл с пример прикреплен.
 
Жаль, что не показали в файле, что должно получиться. Так?
Компрессор AIRLINE EXPERT 10Атм 45л/мин -> Компрессор Airline Expert 10Атм 45л/мин
 
Да, так. Прошу прощения за недоработку задания))
 
Работает с выделенным диапазоном
Код
Sub bb()
Dim v(), i&, j&, k&, s$()
v = Selection.Value
For i = 1 To UBound(v)
  For j = 1 To UBound(v, 2)
    s = Split(v(i, j))
    For k = 0 To UBound(s)
      If s(k) = UCase$(s(k)) Then s(k) = StrConv(s(k), vbProperCase)
    Next
    v(i, j) = Join(s)
  Next
Next
Selection.Value = v
End Sub
 
Казанский,благодарю! Т., что надо!!!!:excl:
 
Казанский показал еще вариант, но вредный модератор спрятал.
Почему? Автору нужно изменить отображаемое имя. Правила, п.3.2. Заодно и п.4.2 желательно прочесть.
Страницы: 1
Читают тему (гостей: 1)