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

Пользователь

Сообщений: 9 Регистрация: 25.05.2014

08.03.2015 15:30:11

Здравствуйте!

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

Прикрепленные файлы

Книга1.xlsx (8.91 КБ)

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#2 08.03.2015 15:39:12 Жаль, что не показали в файле, что должно получиться. Так? Компрессор AIRLINE EXPERT 10Атм 45л/мин -> Компрессор Airline Expert 10Атм 45л/мин

i4j Пользователь Сообщений: 9 Регистрация: 25.05.2014	#3 08.03.2015 15:41:45 Да, так. Прошу прощения за недоработку задания))

Казанский

Пользователь

Сообщений: 8839 Регистрация: 11.01.2013

08.03.2015 16:01:36

Работает с выделенным диапазоном

Код

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

i4j Пользователь Сообщений: 9 Регистрация: 25.05.2014	#5 08.03.2015 16:12:55 Казанский,благодарю! Т., что надо!!!!

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#6 08.03.2015 22:43:40 Казанский показал еще вариант, но вредный модератор спрятал. Почему? Автору нужно изменить отображаемое имя. Правила, п.3.2. Заодно и п.4.2 желательно прочесть.