Получите первые два слова, разделенные запятой и пробелом, и поменяйте местами порядок

Question

У меня есть строка (в H2):

LARSON, JOHN (PIZZA MAKERS INC)

... и я только хочу, чтобы имя приводило к:

JOHN LARSON

Пока у меня есть следующее (в I2), чтобы получить только имя, но мне нужно поменять порядок.

 =SUBSTITUTE(LEFT(H2,FIND(" ",H2,FIND(" ",H2)+1)-1),",","")

и поменяйте местами второй столбец (J2) со следующим, но должен быть более чистый метод.

 =MID(I2&" "&I2,FIND(" ",I2)+1,LEN(I2))

Есть какие-нибудь подсказки или подсказки? Заранее спасибо !!

Answer 1

Попробуйте,

=TRIM(LEFT(SUBSTITUTE(REPLACE(A2, 1, FIND(",", A2)+1, TEXT(,)), " ", REPT(" ", LEN(A2))), LEN(A2))&LEFT(A2, FIND(",", A2)-1))

Answer 2

Вот UDF, который использует регулярные выражения для извлечения (и обратного) первых двух подстрок, разделенных запятыми, из строки.

Option Explicit
Function getName(S As String) As String
    Dim RE As Object
Set RE = CreateObject("vbscript.regexp")
With RE
    .Global = True
    .Pattern = "(\w+),\s*(\w+).*"
    getName = .Replace(S, "$2 $1")
End With

End Function

А вот объяснение регулярного выражения и замена строки

для извлечения имен

(\w+),\s*(\w+).*

• Сопоставьте приведенное ниже регулярное выражение и сохраните его соответствие в обратном номере 1 (\w+)
  • Соответствует одному символу, который является «символом слова» \w+
    • От одного до неограниченного количества раз, столько раз, сколько возможно, отдача по мере необходимости (жадный) +
• Соответствует символу «,» буквально ,
• Соответствует одному символу, который является «пробельным символом» \s*
  • От нуля до неограниченного количества раз, столько раз, сколько возможно, отдача по мере необходимости (жадный) *
• Сопоставьте приведенное ниже регулярное выражение и сохраните его соответствие в обратном номере 2 (\w+)
  • Соответствует одному символу, который является «символом слова» \w+
    • От одного до неограниченного количества раз, столько раз, сколько возможно, отдача по мере необходимости (жадный) +
• Соответствует любому отдельному символу, который НЕ является символом разрыва строки .*
  • От нуля до неограниченного количества раз, столько раз, сколько возможно, отдача по мере необходимости (жадный) *

$ 2 $ 1

• Вставьте текст, который был в последний раз сопоставлен путем захвата номера группы 2 $2
• Вставить символ «» буквально
• Вставьте текст, который был последний найден при захвате номера группы 1 $1

Создано с помощью RegexBuddy

Answer 3

Это довольно уродливо, но это делает работу до тех пор, пока формат всегда <LASTNAME>, <FIRSTNAME> <WHATEVER>:

=MID(A1, FIND(",",A1, 1)+2, FIND(" ", A1, FIND(",", A1, 1)+2) - FIND(",", A1, 1) - 2) & " " & LEFT(A1,FIND(",", A1, 1)-1)

Может быть, лучше решить эту проблему в VBA с помощью UDF:

Function getName(bigNameString As String) As String
    Dim lastName As String, firstName As String
    lastName = Left(Split(bigNameString, " ")(0), Len(Split(bigNameString, " ")(0)) - 1)
    firstName = Split(bigNameString, " ")(1)
    getName = firstName & " " & lastName
End Function

Просто вставьте это в новый модуль, сохраните книгу (с суффиксом .xlsm), и вы можете использовать ее в ячейке:

=getName(A1)