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

Question

Я хотел знать, есть ли способ извлечь строку из строки, указав начало нескольких символов и символ конца.

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

«c1-mc-» всегда будет префикс имени. Я надеялся, что могу использовать функцию, в которой я мог бы указать, что для каждой подстроки, начинающейся с «c1-mc» и заканчивая vbLf (enter), извлеките их. Я думаю, что Instr() и Split() могут помочь, но не уверены, как действовать дальше.

"Str: 1/2/1 
End : 1/2/2 
Name: cl-mc-23223322 
Name: c1-mc-dddssda 
Info: alot of detail 
Name: c1-asa-dddssda 
task: asdf 
Name: c1-mc-xd132eds" 



<the code which works>  
For Each rng1 In table1.DataBodyRange.Columns(8).Cells 

MyString = rng1.Value 
Do Until InStr(MyString, "c1-mc") = 0  
namestart = InStr(MyString, "c1-mc") 
name = Mid(MyString, namestart) 
nameend = InStr(name, vbLf) - 1 
name = Left(name, nameend) 'this gives you a name 
namestart = InStr(name, "c1-mc") 
name = Mid(name, namestart) 
nameend = InStr(name, " ") - 1 
If (nameend = -1) Then 
nameend = Len(name) 
End If 
name = Left(name, nameend) ' gives you name incase there are no next lines 
MyString = Replace(MyString, name, "") 'this cuts the original string so it now starts where the name ended. 
MsgBox name 
i = i + 1 
Loop 
Next 

Answer 1

EDIT после повторного чтения вашего вопроса Я думаю, что я не ответил на него правильно. Пожалуйста, дайте более подробную информацию о том, что на самом деле содержится в каждой ячейке, и о количестве ячеек, о которых мы говорим (1?).

Строка - это конкатенация символов. Написание строки на нескольких строках не означает, что она действительно меняется. Изменение строки происходит, когда вы вводите chr (10) или vbLF, как вы сказали. Я не уверен, какую часть строки вы выложили, которую вы хотели извлечь. Предполагая, что вы хотите взять имя ячейки, и что строка хранится в строковой переменной [MyString]:

Dim name as string 
Dim namestart as integer 
Dim nameend as integer 

namestart = Instr(Mystring, "c1-mc-") 
name = Mid(Mystring, namestart + 1) 
nameend = Instr(Mystring, vbLF) 
name = Left(name, nameend) 

Теперь имя будет содержать имя вашей строки. Протестируйте его (у меня нет, вам, возможно, придется отрегулировать несколько второстепенных вещей), и когда у вас есть это, используйте цикл for, чтобы перебрать ваши ячейки и добавить имя в нужный массив.

EDIT 2: Так как вы хотите, чтобы извлечь все экземпляры имени в камере, я хотел бы изменить его к этому:

Dim name as string 
Dim namestart as integer 
Dim nameend as integer 
Dim namearray() as string 
Dim i as integer 

Do Until Instr(Mystring, "c1-mc-") = 0 'will continue filling the array until Mystrign no longer has any names) 
    namestart = Instr(Mystring, "c1-mc-") 
    name = Mid(Mystring, namestart + 1) 
    nameend = Instr(Mystring, vbLF) 
    name = Left(name, nameend) 'this gives you a name 
    Mystring = Mid(Mystring, Instr(Mystring, name)) 'this cuts the original string so it now starts where the name ended. 
    namearray(i) = name 
    i = i + 1 
Loop