Есть такой код
Код |
---|
Sub AllLatinToUpper()
Dim i&, a, Cel As Range, Rn As Range
Set Rn = Range(Cells(2, 1), Cells(Rows.Count, 3).End(xlUp))
For Each Cel In Rn
a = Split(Cel.Value)
For i = 0 To UBound(a)
If Left(a(i), 1) & "" Like "[a-z]" Then
a(i).Value = UCase(a(i).Value)
End If
Next
Cel.Value = Join(a)
Next
End Sub
|
Логика такая, делим текст в ячейке на слова, если слово начинается с латинской буквы, его нужно сделать полностью строчными буквами. Проблема у меня со строкой
Код |
---|
a(i).Value = UCase(a(i).Value)
|
Не пойму как мне правильно здесь написать, чтобы все слово было заглавными буквами.
Заранее спасибо за помощь.