Найдите текстовую строку, скопируйте найденный текст и вставьте в новую ячейку.

Question

В настоящее время у меня есть 1 столбец, поэтому в 1 конкретной ячейке у меня 3/4 текстовых строки, разделенных переносами строк.

ABC12345

DEF12345

XYZ12345

QWE12345

Я просто хочу найти в этой ячейке (A1) текст, начинающийся с AB C, и скопировать вставить в ячейку A2.

Затем найти текст DEF и скопировать и вставьте в ячейку A3.

Текст будет меняться каждый раз, когда я запускаю VBA, но первые 3 символа всегда будут оставаться неизменными (AB C), поэтому я хочу использовать это в качестве основы поиска .

Answer 1

Sub Hi()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
Dim Target, Arr
Dim i As Long, x As Long

Target = Array("ABC", "DEF")
Arr = Split(ws.Range("A1"), Chr(10))

For i = LBound(Target) To UBound(Target)
    For x = LBound(Arr) To UBound(Arr)
        If Left(Arr(x), 3) = Target(i) Then
            ws.Range("A" & i + 2) = Arr(x)
        End If
    Next x
Next i

End Sub