Excel如何提取单个多行单元格内包含指定字符串的所有内容到其他单元格

你的思路完全正确，用数组存储匹配结果是处理这类需求效率最高的实现方式。

现有代码问题 #

• 不需要遍历Range("B4")，仅操作单个单元格无需循环
• 调用Split时传入的是静态字符串"B4"而非单元格实际存储的文本内容，也没有变量接收拆分后的数组
• 没有做逐行匹配逻辑，也没有将匹配结果拼接回单个字符串写入C4

完整可运行代码 #

Sub WildcardSearch()
    ' 定义变量
    Dim originArr As Variant, resultArr As Variant
    Dim i As Long, resultCount As Long
    
    ' 拆分B4单元格的多行内容为数组
    originArr = Split(Range("B4").Value, vbLf)
    ' 初始化结果数组，最大长度等于原数组长度
    ReDim resultArr(LBound(originArr) To UBound(originArr))
    
    ' 逐行匹配
    resultCount = 0
    For i = LBound(originArr) To UBound(originArr)
        ' 匹配包含Apple的行，如需不区分大小写可在模块顶部加Option Compare Text
        If originArr(i) Like "*Apple*" Then
            resultArr(resultCount) = originArr(i)
            resultCount = resultCount + 1
        End If
    Next i
    
    ' 裁剪结果数组到实际长度
    If resultCount > 0 Then
        ReDim Preserve resultArr(LBound(originArr) To resultCount - 1)
        ' 用换行符拼接后写入C4
        Range("C4").Value = Join(resultArr, vbLf)
    Else
        Range("C4").Value = "" ' 无匹配时清空
    End If
End Sub

补充说明 #

如果需要不区分大小写匹配（可同时识别apple、Apple等写法），可以在模块的最顶部（Sub WildcardSearch() 之前）添加一行代码：
Option Compare Text
运行代码后C4单元格就会输出你预期的筛选结果，所有带Apple的行都会保留，其他内容自动过滤。

内容的提问来源于stack exchange，提问作者RawrRawr7