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

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