Мини-курс "5 чудес Excel"
ПРАВСИМВДО особая функция
Как найти текст после последнего пробела ячейки Excel?
Проблема в том, что в ячейках разное количество слов и, соответственно, разное количество пробелов. А нужный нам кусок всегда в конце и тоже может состоять из разного количества символов.
Беда, казалось бы. Но я всегда говорю, что при наличии закономерности задача 100% решаема. И данный случай не исключение.
Когда я стала обдумывать решение с использованием встроенных формул, то поняла, что впереди ждёт мучение с трёхэтажной конструкцией и, возможно, использование нескольких промежуточных ячеек, количество которых непредсказуемо. Уже звучит как в фильме ужасов, правда?
Мучиться я ни себе, ни Вам не желаю, поэтому за несколько минут набросала функцию-макрос ПравСимвДО и теперь довольна простым и красивым решением.
Беда, казалось бы. Но я всегда говорю, что при наличии закономерности задача 100% решаема. И данный случай не исключение.
Когда я стала обдумывать решение с использованием встроенных формул, то поняла, что впереди ждёт мучение с трёхэтажной конструкцией и, возможно, использование нескольких промежуточных ячеек, количество которых непредсказуемо. Уже звучит как в фильме ужасов, правда?
Мучиться я ни себе, ни Вам не желаю, поэтому за несколько минут набросала функцию-макрос ПравСимвДО и теперь довольна простым и красивым решением.
Если в ячейку нужно вытащить число – просто поставьте перед именем функции два знака минус (функциональная конвертация текста в число).
Разделителем может быть любой символ или их последовательность. Окно аргументов открывается, как и для любой стандартной функции.
Разделителем может быть любой символ или их последовательность. Окно аргументов открывается, как и для любой стандартной функции.
Переселите эту функцию ПравСимвДО в свой файл (на бесплатном уроке Макрос напрокат я показывала, как это делать). Можно посмотреть запись: https://excelforum.autoweboffice.ru/?r=ordering/cart/as1&id=49&clean=true&lg=ru
Function ПравСимвДО(Ячейка, Символ)
'находит указанный символ в ячейке справа и берёт все знаки после него
ns = Len(Ячейка)
nss = Len(Символ)
For i = ns To 1 Step -1
If Mid(Ячейка, i, nss) = Символ Then
ni = i + nss
nk = ns - ni + 1
GoTo 1
End If
Next
1:
otvet = Mid(Ячейка, ni, nk)
ПравСимвДО = otvet
End Function
Код макроса.
Function ПравСимвДО(Ячейка, Символ)
'находит указанный символ в ячейке справа и берёт все знаки после него
ns = Len(Ячейка)
nss = Len(Символ)
For i = ns To 1 Step -1
If Mid(Ячейка, i, nss) = Символ Then
ni = i + nss
nk = ns - ni + 1
GoTo 1
End If
Next
1:
otvet = Mid(Ячейка, ni, nk)
ПравСимвДО = otvet
End Function