Как быстро найти позицию первого верхнего регистра в текстовой строке Excel?

Предположим, есть список текстовых строк, смешанных с числами, прописными и строчными буквами, как вы можете быстро найти позицию первой прописной буквы в строках? В этой статье я расскажу о приемах, с помощью которых можно быстро указать положение первого верхнего регистра, не считая их один за другим вручную в Excel.

Найти позицию первого верхнего регистра в строке с формулой

Найти позицию первого верхнего регистра в строке с помощью определенной функции

Измените все буквы на ВЕРХНИЙ или правильный регистр с помощью Kutools for Excel

Найти позицию первого верхнего регистра в строке с формулой

Вот формула, которая может помочь вам быстро найти позицию первого верхнего регистра в строке, сделайте следующее:

Выберите пустую ячейку рядом со строкой, в которой вы хотите найти первый верхний регистр, например B1, введите эту формулу =MIN(IF(ISERROR(FIND(CHAR(ROW(INDIRECT("65:90"))),A1)),"",FIND(CHAR(ROW(INDIRECT("65:90"))),A1)))

Press Shift + Ctrl + Ввод , чтобы получить правильный результат, а затем перетащите маркер автозаполнения по ячейкам, которые необходимы для применения этой формулы. Смотрите скриншот:

Найти позицию первого верхнего регистра в строке с помощью определенной функции

Кроме формулы, вы также можете использовать Определенную функцию, чтобы узнать позицию первого верхнего регистра в строке.

1. Включите лист, содержащий строку, которую вы хотите найти в верхнем регистре, и нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно.

2. Щелкните правой кнопкой мыши на листе, в котором вы хотите использовать код. Project Explore панель и щелкните Вставить > Модулии вставьте приведенный ниже код в пустой скрипт модуля. Смотрите скриншот:

Код: найти позицию первого верхнего регистра в строке.

Function GetFirstUpper(Rg As Range) As Integer
'UpdatebyExtendoffice20160726
    Dim xStr As String
    Dim I As Integer
    Application.Volatile
    GetFirstUpper = -1
    On Error Resume Next
    xStr = Trim(Rg.Value)
    For I = 1 To Len(xStr)
        If (Asc(Mid(xStr, I, 1)) < 91) And (Asc(Mid(xStr, I, 1)) > 64) Then
            GetFirstUpper = I
            Exit Function
        End If
    Next
End Function

3. Сохраните код и вернитесь к листу, который вы используете, и выберите пустую ячейку рядом со строкой, которую вы хотите найти в верхнем регистре, введите эту формулу. = GetFirstUpper (F1), нажмите Enter key, а затем перетащите дескриптор автозаполнения на ячейки, в которых нужна эта формула. Смотрите скриншот:

Функции: Если в строке нет заглавных букв, результат будет отображаться как -1.

Измените все буквы на ВЕРХНИЙ или правильный регистр с помощью Kutools for Excel

При работе с Excel вам, как правило, может потребоваться изменить буквенные строки на ЗАГЛАВНЫЕ, Правильные, строчные, Предложные или ToGgLe CaSe, как показано на снимке экрана ниже.

В Kutools for Excel, вы можете применить его Изменить регистр утилита для быстрой смены регистра букв по мере необходимости.

После бесплатная установка Kutools for Excel, сделайте следующее:

1. Выберите строки, регистр которых вы хотите изменить, и нажмите Кутулс > Текст > Изменить регистр. Смотрите скриншот:

2. Затем в всплывающем Изменить регистр диалоговом окне выберите нужный вариант в Изменить тип раздел, и вы можете просмотреть результат на панели предварительного просмотра. Смотрите скриншот:

3. Затем нажмите Ok or Применить изменить регистр.