Как извлечь текст из строки после обнаружения первого экземпляра повторения?

Question

Я хочу извлечь исходную фразу из строки в ячейке Excel.

Например, у меня есть эта строка в ячейке: «у Мэри есть маленький ягненок, у Мэри есть маленький ягненок, у Мэри есть маленький ягненок ...»

Я хочу извлечьОригинальная фраза "у Марии есть маленький ягненок".

Как я могу это сделать?

Answer 1

Предполагая, что вопрос на самом деле касается VBA, вы можете использовать InStr (FullText, SearchedText), чтобы получить позицию первой искомой текстовой строки в строке.

Sub LambHunting()
 A = "mary has a little lamb"
 B = "mary has a little lamb mary has a little lamb mary has a little lamb..."
 C = "Mary HAD a little lamb; unfortunately mary has a little lamb no longer."
 Debug.Print "'" & A & "' is at position #" & InStr(B, A) & " in the string '" & B & "'"
 Debug.Print "'" & A & "' is at position #" & InStr(C, A) & " in the string '" & C & "'"
End Sub

Возвраты:

'mary has a little lamb' is at position #1 in the string 'mary has a little lamb mary has a little lamb mary has a little lamb...'
'mary has a little lamb' is at position #39 in the string 'Mary HAD a little lamb; unfortunately mary has a little lamb no longer.'

Answer 2

Попробуйте это;Предполагая, что у вас есть строка "у Мэри есть маленький ягненок, у Мэри есть маленький ягненок, у Мэри есть маленький ягненок ..." в ячейке B2, формула = MID (B2,1, SEARCH (MID (B2,1, FIND (""), B2) -1), B2, FIND ("", B2)) - 2) даст вам желаемый результат.Эта формула имеет ограничение, заключающееся в том, что первое слово не повторяется в исходной фразе.