Вернуть текст до найденного слова или символа

Описание функции

Функция полезна, когда необходимо вернуть символы от начала строки. В отличие от функции ЛЕВСИМВЛ задается не количество символов, а строка, до которой необходимо вернуть текст.

Функция =НАЧАЛОСТРОКИ(ТЕКСТ; НАЙТИ; [Старт]; [Регистр]) имеет 4 аргумента:

• ТЕКСТ - Исходный текст (или ссылка на ячейку), в котором необходимо найти начало строки.
• НАЙТИ - Текст, до которого будет возвращаться начало строки
• [Старт] - Необязательный параметр. Позиция внутри исходного текста, с которой начинается поиск текста. По умолчанию параметр равен 1.
• [Регистр] - Необязательный аргумент, указывающий необходимость учета регистра. По умолчанию равен 1 - регистр учитывается. Укажите значение 0 если не хотите учитывать регистр при сравнении.

Пример 1

Найти текст до слова СТОП. Обратите внимание не важно в какой части текста находится заданное слово.

Без применения данной функции, пришлось бы сооружать вот такую формулу: =ЛЕВСИМВ(B15;НАЙТИ("СТОП";B15)-1)

Пример 2

Еще один вариант вернуть первое слово в тексте - в качестве параметра НАЙТИ указать пробел.

Пример 3

Можно начинать поиск с заданной позиции (аргумент Старт). Может понадобиться в случае если стоп-слово встречается не один раз.

Пример 4

В предыдущих примерах регистр искомого текста учитывался. Для того заглавные и строчные буквы НЕ учитывались при поиске, установите параметр Регистр = 0.

Код на VBA

Function НАЧАЛОСТРОКИ(ByVal ТЕКСТ As String, ByVal НАЙТИ As String, _
                    Optional ByVal Старт As Long = 1, Optional ByVal Регистр As Long = 1) As String
    Dim nInStr As Long
    If Регистр = 1 Then
        nInStr = InStr(Старт, ТЕКСТ, НАЙТИ)
    Else
        nInStr = InStr(Старт, ТЕКСТ, НАЙТИ, vbTextCompare)
    End If
 
    If nInStr = 0 Then
        НАЧАЛОСТРОКИ = ТЕКСТ
    Else
        НАЧАЛОСТРОКИ = Left(ТЕКСТ, nInStr - 1)
    End If
End Function