excel文本筛选几十个关键词

### 如何在Excel中根据多个关键词筛选文本数据

为了实现基于多个关键词的文本筛选，在Excel中有多种方法可以采用。一种有效的方式是利用辅助列配合函数来完成这一操作。

创建一个新的辅助列，假设这些关键词存储在一个单独的工作表或单元格区域（例如`Sheet2!A:A`），而待筛选的数据位于另一个工作表中的某一列内（比如`Sheet1!B:B`）。可以在辅助列输入如下公式：

=IF(SUMPRODUCT(--ISNUMBER(SEARCH($D$1:$D$5,A2)))>0,"Match","No Match")

这里假定关键词列表存放在当前表格的`D1:D5`区域内，并且要检查的内容是在`A2`单元格里[^1]。此公式的逻辑在于通过`SEARCH`查找每一个关键词是否存在于目标字符串之中；如果存在，则返回其位置作为数值型的结果给到`ISNUMBER`判断真假并转换成`1/0`形式；最后由`SUMPRODUCT`汇总计算总分——只要任意一个词命中即视为匹配成功。

对于更复杂的需求场景下，还可以考虑编写VBA宏程序来进行批量处理。下面给出一段简单的VBA代码用于遍历指定目录下的所有Excel文件，并检测其中是否存在预设的关键字集合：

Sub SearchKeywordsInFolder()
    Dim folderPath As String, fileName As String
    Dim wb As Workbook, ws As Worksheet
    Dim keywordList() As Variant
    Dim cellValue As String
    
    ' 设置关键字数组
    keywordList = Array("keyword1", "keyword2", "keyword3") 

    ' 获取文件夹路径
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        If .SelectedItems.Count <> 0 Then
            folderPath = .SelectedItems(1) & "\"
        End If
    End With

    ' 遍历该文件夹内的 Excel 文件
    fileName = Dir(folderPath & "*.xls*")
    Do While fileName <> ""
        Set wb = Workbooks.Open(folderPath & fileName)

        For Each ws In wb.Worksheets
            For Each c In ws.UsedRange.Cells
                cellValue = CStr(c.Value)
                
                ' 判断单元格内容是否包含任一关键字
                For i = LBound(keywordList) To UBound(keywordList)
                    If InStr(cellValue, keywordList(i)) > 0 Then
                        Debug.Print "Found '" & keywordList(i) & "' in file: " & _
                                    fileName & ", sheet:" & ws.Name & ", cell:" & c.Address
                        Exit For
                    End If
                Next i
                
            Next c
            
        Next ws
        
        wb.Close SaveChanges:=False
        fileName = Dir()
    Loop
End Sub

上述脚本会弹出对话框让用户选择想要扫描的目标文件夹，之后逐个打开里面的Excel文档逐一检验各个sheet里的每一项记录是否有满足条件的情况发生。一旦发现符合条件的信息就会打印出来供后续分析使用。