搜索文本字符串，复制找到的文本并粘贴到新单元格中

Question

I currently have 1 column, whereby in 1 particular cell I have 3/4 text strings separated by line breaks.

ABC12345

DEF12345

XYZ12345

QWE12345

I basically just want to search that cell (A1) for the text starting ABC and copy paste into cell A2.

Then search for the DEF text and copy and paste into cell A3.

The text will change each time I run the VBA but the first 3 characters will always remain the same (ABC) which is why I want to use that as the search basis.

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