Excel提取混合内容中特定PLM-A、KOM相关日期信息的VBA代码求助

看起来你正在从一堆混合了文本、日期、数字的单元格里精准提取PLM-A和KOM相关的会议记录，之前试的公式出了点小问题，我来帮你搞定！

先说说你之前公式失效的原因 #

你用SEARCH("PLM-A", S2:S900)出现#SPILL!，大概率是因为你的Excel版本不支持动态数组（比如Excel 2019及以前版本），溢出函数没法正常工作；而后面的FILTER公式返回问号，应该是引用范围的格式不对——比如[XtractFilters]Sheet Export [Data]Sheet1! S4:S902这种写法有误，正确的跨工作表引用应该是'Sheet Export'!S4:S902（表名带空格的话要加单引号）。

不用VBA的快速解决方案（适合不想写代码的情况） #

如果你的Excel支持动态数组（365/2021版本），可以用这个公式直接提取包含PLM-A或KOM的内容：

=FILTER(S:S,ISNUMBER(SEARCH({"PLM-A","KOM"},S:S)),"无匹配内容")

如果是旧版本Excel，用TEXTJOIN结合IF来提取：

=TEXTJOIN(CHAR(10),TRUE,IF(ISNUMBER(SEARCH({"PLM-A","KOM"},S2:S900)),S2:S900,""))

按Ctrl+Shift+Enter作为数组公式输入即可。

你要的VBA代码方案（精准提取多行混合内容） #

如果单元格里是像你例子那样的整段多行文本，下面的VBA代码可以帮你精准提取每一条PLM-A和KOM的记录，输出到指定列：

Sub ExtractPLM_KOMRecords()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim outputRow As Long
    Dim cellValue As String
    Dim lines As Variant
    Dim line As Variant
    
    ' 替换成你实际的工作表名称
    Set ws = ThisWorkbook.Worksheets("XtractFilters")
    
    ' 获取S列数据的最后一行
    lastRow = ws.Cells(ws.Rows.Count, "S").End(xlUp).Row
    
    ' 结果输出到T列，从第2行开始
    outputRow = 2
    
    ' 遍历所有数据行
    For i = 2 To lastRow
        cellValue = ws.Cells(i, "S").Value
        ' 检查当前单元格是否包含目标关键词
        If InStr(1, cellValue, "PLM-A", vbTextCompare) > 0 Or _
           InStr(1, cellValue, "KOM", vbTextCompare) > 0 Then
            ' 按换行拆分单元格内容，逐行检查
            lines = Split(cellValue, vbCrLf)
            For Each line In lines
                If InStr(1, line, "PLM-A", vbTextCompare) > 0 Or _
                   InStr(1, line, "KOM", vbTextCompare) > 0 Then
                    ' 将匹配的记录写入输出列
                    ws.Cells(outputRow, "T").Value = line
                    outputRow = outputRow + 1
                End If
            Next line
        End If
    Next i
    
    MsgBox "提取完成！结果已写入T列。", vbInformation
End Sub

代码使用步骤：

1. 按下Alt+F11打开VBA编辑器
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」
3. 将上面的代码粘贴进去，修改工作表名称（"XtractFilters"改成你实际的表名）
4. 点击工具栏的「运行」按钮（绿色三角），或者按F5执行宏

这样就能把所有包含PLM-A和KOM的会议记录单独提取出来啦！

备注：内容来源于stack exchange，提问作者yan peng