Извлечь последнюю подстроку из ячейки

Это работает, даже если есть отчество:

=MID(A2,FIND(CHAR(1),SUBSTITUTE(A2," ",CHAR(1),LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))+1,LEN(A2))

Если вам нужно все, кроме фамилии, ознакомьтесь с этим ответом < / а>.

Ответ, предоставленный @Jean, предоставляет рабочее, но неясное решение (хотя он не обрабатывает конечные пробелы)

В качестве альтернативы рассмотрите пользовательскую функцию vba (UDF)

Function RightWord(r As Range) As Variant
    Dim s As String
    s = Trim(r.Value)
    RightWord = Mid(s, InStrRev(s, " ") + 1)
End Function

Использовать на листе как
=RightWord(A2)

Попробуйте эту функцию в Excel:

Public Shared Function SPLITTEXT(Text As String, SplitAt As String, ReturnZeroBasedIndex As Integer) As String
        Dim s() As String = Split(Text, SplitAt)
        If ReturnZeroBasedIndex <= s.Count - 1 Then
            Return s(ReturnZeroBasedIndex)
        Else
            Return ""
        End If
    End Function

Вы используете это так:

Имя (A1) | Фамилия (A2)

Значение в ячейке A1 = Майкл Зомпарелли

Я хочу, чтобы фамилия была в столбце A2.

=SPLITTEXT(A1, " ", 1)

Последний параметр - это индекс, отсчитываемый от нуля, который вы хотите вернуть. Итак, если вы разделите пробел, тогда индекс 0 = Майкл и индекс 1 = Zomparelli.

Вышеупомянутая функция является функцией .Net, но может быть легко преобразована в VBA.

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

Public Function Get2ndText(S As String) As String

Dim sArr() As String
Dim i As Integer
sArr = Split(S, " ")

'get the next to the last string
i = UBound(sArr) - 1
Get2ndText = sArr(i)

End Function

Затем в вашей электронной таблице B1 как текст:

CURRENT OWNER 915 BROADWAY ST HOUSTON TX 77012-2126

в B2 ваша формула будет:

=Get2ndText(B1)

Результат был бы

TX

Проще было бы: =TRIM(RIGHT(SUBSTITUTE(TRIM(A2)," ",REPT(" ",99)),99))

Вы можете использовать A2 вместо TRIM(A2), если уверены, что ваши данные не содержат нежелательных пробелов.

На основе концепции, объясненной Риком Ротштейном: http://www.excelfox.com/forum/showthread.php/333-Get-Field-from-Delimited-Text-String

Простите за некропост!

Right(A1, Len(A1)-Find("(asterisk)",Substitute(A1, "(space)","(asterisk)",Len(A1)-Len(Substitute(A1,"(space)", "(no space)")))))

Попробуй это. Надеюсь, что это работает.

Попробуй это:

=RIGHT(TRIM(A2),LEN(TRIM(A2))-FIND(" ",TRIM(A2)))

Мне удалось скопировать / вставить формулу, и она сработала нормально.

Вот список Текстовые функции Excel (которые работали в мае 2011 года, но могут быть нарушены, когда Microsoft в следующий раз изменит свой веб-сайт). :-(

Вы можете использовать многоэтапные вложенные функции IF () для обработки отчества или инициалов, заголовков и т. Д., Если вы их ожидаете. Формулы Excel не поддерживают цикл, поэтому есть некоторые ограничения на ваши действия.

ВПРАВО возвращает любое количество символов во втором параметре справа от первого параметра. Итак, вам нужна общая длина вашего столбца A - вычтите индекс. что поэтому:

=RIGHT(A2, LEN(A2)-FIND(" ", A2, 1))

И вам следует подумать об использовании TRIM (A2) везде, где он появляется ...

Попробуй это:

Right(RC[-1],Len(RC[-1])-InStrRev(RC[-1]," "))