Здравствуйте. Помогите, пожалуйста, разобраться, как отделить текст в ячейке, который располагается после предпоследнего пробела. Текст нужно поместить в соседний столбик. Спасибо.
Function aa$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "\S+": .Global = True
aa = .Execute(t)(.Execute(t).Count - 2) & " " & .Execute(t)(.Execute(t).Count - 1)
End With
End Function
Код
Function bb$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "\S+\s\S+$"
bb = .Execute(t)(0)
End With
End Function
Код
Function vv$(t$)
vv = StrReverse(Split(StrReverse(t), " ", 3)(1)) & " " & StrReverse(Split(StrReverse(t), " ", 3)(0))
End Function
Спасибо большое за решения и корректировку названия темы! Все верно! Подскажите, пожалуйста, возможно ли сделать так, чтобы текст, который отделился в соседний столбец, исчез из первого столбца?)
let
Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
#"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Столбец1", type text}}),
#"Извлеченный текст после разделителя" = Table.TransformColumns(#"Измененный тип", {{"Столбец1", each Text.AfterDelimiter(_, " ", {1, RelativePosition.FromEnd}), type text}})
in
#"Извлеченный текст после разделителя"