reverse string search in Excel?

В Excel отсутствует функция поиска вхождения при чтении справа налево(обратного поиска). Воспользуемся VBA, создадим обертку к уже существующей в VBA функции и будем использовать ее непосредственно в формулах ячейки. Заходим в среду VBA (ALT+F11), добавляем модуль, в него вставляем функцию
Public Function ПОИСКОБР( _
   ByVal StringCheck As String, _
   ByVal StringMatch As String, _
   Optional ByVal Start As Integer = -1 _
) As Integer

    ПОИСКОБР = InStrRev(StringCheck, StringMatch, Start)
    
End Function
Все, используем ее в формулах книги.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *