Нахождение любого первого символа нижнего регистра в строке

[duh96]

Добрый день, уважаемые!
Подскажите, как я могу найти строки в конкретном столбце, которые начинаются с любого символа нижнего регистра?
То есть необходимо отыскать строку, начинающуюся с маленькой буквы или символа в выделенном столбце.
Версия MSOffice: 2010

Благодарю за ранее!

Пример_1.xlsx

[VictorK]

Чтобы просто найти первый символ строки в нижнем регистре, можно использовать формулу:

=КОДСИМВ(A1)>223

если ИСТИНА, значит первый символ в нижнем регистре.
Можно сразу заменить найденный символ на верхний регистр:

=ЕСЛИ(КОДСИМВ(A1)>223;ПОДСТАВИТЬ(A1;СИМВОЛ(КОДСИМВ(A1));СИМВОЛ(КОДСИМВ(A1)-32);1);A1)

PS Эти формулы верны только для символов кириллицы кроме буквы "ё"

[IgorGO]

см.вложене

[VictorK]

Игорь, здОрово, но не совсем правильно. Латинские символы форматируются наоборот - подсвечивается верхний регистр. Пока соображал, как работает Ваша формула УФ, весь мозг сломал Но разобрался!
Так будет правильнее:

=ЕСЛИ(НЕ(ЕПУСТО(A1));(КОДСИМВ(A1)-97)*(КОДСИМВ(A1)-122)*(КОДСИМВ(A1)-184)*(КОДСИМВ(A1)-184)*(КОДСИМВ(A1)-224)*(КОДСИМВ(A1)-255)<=0;)

[IgorGO]

Спасибо!

согласен, ошибся)
для диапазона содержащего только 1 символ "ё" в произведении дожны были участвовать и верхняя и нижняя его границы (то что эти границы оказались равны между собой - это частный случай)

использовал свое древнее ноу-хау
имеем 2 диапазона Д11...Д12 и Д21...Д22
причем диапазоны заданы не от меньшего значения к большему, а просто 2-мя значениями (т.е. не обязательно Д11 <= Д22)

вычисляем Х = (Д11-Д21)*(Д11-Д22)*(Д12-Д21)*(Д12-Д22)
так вот,

если Х > 0 - диапазоны НЕ ПЕРЕСЕКАЮТСЯ!
иначе пересекаютсяесли или соприкасаются и образуют 1 диапазон габаритами от Мин(Д11,Д12,Д21,Д22) до мах(Д11,Д12,Д21,Д22)

[duh96]

VictorK, IgorGO, спасибо вам огромное за помощь! Все работает отлично! Моя задача решена.

[duh96]

IgorGO, я во вложении увидел только подсвеченные ячейки, начинающиеся с маленькой буквы, но не увидел само решение. Оно в какой-то из ячеек было? VictorK где-то нашел формулу )))

[IgorGO]

поправил формулу согласно замечания VictorK
формула в условном форматировании

[duh96]

IgorGO, нашел, спасибо за помощь

Programmers are the gods.jpg

[svsh2016]

добрый день,вариант макроса кнопки test и повтор

Sub test()
    Dim z, i&
    z = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
    With CreateObject("VBScript.RegExp"): .Pattern = "^[a-zа-яё]"
        For i = 1 To UBound(z)
        If .test(z(i, 1)) Then Range("A" & i).Font.Color = -16776961: Range("A" & i).Font.Bold = True
        Next
    End With
End Sub