搜索文本字符串，復制找到的文本並粘貼到新單元格中

Question

我目前有 1 列，因此在 1 個特定單元格中，我有 3/4 個文本字符串，由換行符分隔。

ABC12345

DEF12345

XYZ12345

QWE12345

我基本上只想在該單元格 (A1) 中搜索以 ABC 開頭的文本並將粘貼復制到單元格 A2 中。

然后搜索 DEF 文本並復制並粘貼到單元格 A3 中。

每次運行 VBA 時，文本都會更改，但前 3 個字符將始終保持不變（ABC），這就是我想將其用作搜索基礎的原因。

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