Excel函数在字符串中搜索多个关键字

Question

我有两张桌子。其中之一具有服务器名称。另一个有时间戳（第一个表，下面的A 列）和文本字符串（第一个表，下面的B 列）。我想在这些字符串中搜索服务器表（下面的第二个表）中指定的关键字。如果找到匹配项，函数会从关键字所在列的标题写入单元格名称。

例子

我想完成蓝色表中的System 列。例如C2 应该显示GreenSys 和C8 - RedSys。

我尝试过使用SEARCH 函数，但如果我将它作为参数传递，它看起来会尝试将整个表与字符串匹配。 VLOOKUP 也不起作用，因为我正在使用两个表。对我来说最好的方法是什么？

Answer 1

如果您更改数据设置方式，使其对 Excel 更友好，则可以轻松完成。

查找表应如下所示（下面的公式将其设为“Sheet2”）：

然后在您的主数据表中，在单元格 C2 中并复制下来：

=IF(SUMPRODUCT(COUNTIF(B2,"*"&Sheet2!$A$2:$A$7&"*")),INDEX(Sheet2!B:B,SUMPRODUCT(COUNTIF(B2,"*"&Sheet2!$A$2:$A$7&"*")*ROW(Sheet2!$A$2:$A$7))),"")

结果如下所示：

Answer 2

假设所有服务器都以“Serv”开头.. 这应该可以在不使用 vba 的情况下工作。

=MID(B1,SEARCH("Serv",B1,1),IF(ISERROR(SEARCH(" ",B1,SEARCH("Serv",B1,1))),LEN(B1)-SEARCH("Serv",B1,1),SEARCH(" ",B1,SEARCH("Serv",B1,1))-SEARCH("Serv",B1,1)))

本质上，公式会搜索关键字 serv，然后尝试解析直到单词末尾以返回全名。

正如其他人所提到的，使用 vba 会更容易，但是没有宏也有好处。

Answer 3

你可以试试这个公式到 cellC2 吗？

=IF(SUMPRODUCT((B2=Sheet2!$A$2:$D$4)*COLUMN(Sheet2!$A$1:$D$1))>0,
INDEX(Sheet2!$A$1:$D$1,SUMPRODUCT((B2=Sheet2!$A$2:$D$4)*COLUMN(Sheet2!$A$1:$D$1)))
,"")

我假设第二个表位于Sheet2，并且数据在D 列之前，从A1 的标题开始，采用您描述的格式。

编辑：

我看到你已经修改了原帖，我的回答不再符合规范。因此，我认为最好删除它。

EDIT2：

添加了VBA 解决方案。假设：

• Sheet1 中的原始数据表
• Sheet2 中的目标表
• 第一行 Sheet1 的标题

以下代码经过测试，应该没问题，但需要错误处理：

Sub moveData()
    Dim rngDestination As Range
    Dim lRowCounter As Long, lColCounter As Long, lValueCounter As Long, lLastRow As Long
    Dim vOriginArray As Variant, vValuesArray As Variant, vDestinationArray As Variant

    ' Database table in Sheet2
    vOriginArray = Sheet2.UsedRange.Value

    ' Destination table in Sheet1
    With Sheet1
        lLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        ' Put the values we need to compare into an array
        vValuesArray = .Range(.Cells(2, 2), .Cells(lLastRow, 2)).Value
        Set rngDestination = .Range(.Cells(2, 3), .Cells(lLastRow, 3))
    End With

    ' We will store the values to an array first and then
    ' back to the sheet, it is faster this way
    ReDim vDestinationArray(1 To rngDestination.Rows.Count, 1 To 1)

    ' Loop through all rows and columns, exclude header row
    For lRowCounter = 2 To UBound(vOriginArray, 1)
        For lColCounter = LBound(vOriginArray, 2) To UBound(vOriginArray, 2)
    ' For each entry, find which values match and store them
            For lValueCounter = 1 To UBound(vValuesArray, 1)
                If InStr(1, vValuesArray(lValueCounter, 1), vOriginArray(lRowCounter, lColCounter), vbTextCompare) Then
                    vDestinationArray(lValueCounter, 1) = vOriginArray(1, lColCounter)
                End If
            Next lValueCounter
        Next lColCounter
    Next lRowCounter

    ' Put the data back to excel
    With rngDestination
        .ClearContents
        .Value = vDestinationArray
    End With
End Sub