如何在一个单元格范围内创建多个值的搜索，一次在一个单元格中返回多个结果（每次匹配）

Question

我想对一定范围的单元格进行搜索，并检查它们是否包含特定数字的组合，如果从相同范围内的单元格中包含的字符串中提取，则更好。 即：我想检查单元格B2：B16是否同时包含1和2。

然后，我想从与搜索匹配的行中的A列中获取值，并将它们返回到C列中的单个单元格。

在所示的示例n中，单元格C2从行中列出了列A中的所有ID号，这些ID对应于列B中的单元格，这些单元格包含数字为“ 1”的字符串。 （对于在每个单元格的字符串中提取数字也增加了自动化功能的人，则奖励）。

当向下搜索B列中的单元格时，这项工作变得更加棘手，因为搜索必须找到包含多个数字的组合的字符串（AND规则）。 我设法在单元格C2中获取结果的唯一方法是使用以下很长的组合：IF（ISNUMBER（SEARCH），这不切实际，因为我需要为列C中的每个单元格手动调整它。

计算公式如下：

=IF(ISNUMBER(SEARCH(D2,B3,14)),A3," ")&IF(ISNUMBER(SEARCH(D2,B4,14)),A4," ")&IF(ISNUMBER(SEARCH(D2,B5,14)),A5," ")&IF(ISNUMBER(SEARCH(D2,B6,14)),A6," ")&IF(ISNUMBER(SEARCH(D2,B7,14)),A7," ")&IF(ISNUMBER(SEARCH(D2,B8,14)),A8," ")&IF(ISNUMBER(SEARCH(D2,B9,14)),A9," ")&IF(ISNUMBER(SEARCH(D2,B10,14)),A10," ")&IF(ISNUMBER(SEARCH(D2,B11,14)),A11," ")&IF(ISNUMBER(SEARCH(D2,B12,14)),A12," ")&IF(ISNUMBER(SEARCH(D2,B13,14)),A13," ")&IF(ISNUMBER(SEARCH(D2,B14,14)),A14," ")&IF(ISNUMBER(SEARCH(D2,B15,14)),A15," ")&IF(ISNUMBER(SEARCH(D2,B16,14)),A16," ")

关于如何使整个操作更有效率的任何想法？

Answer 1

试试这个功能：

Function GetMatches(InputCell As Range, SearchRange As Range) As String

Dim MyArray() As Variant
Dim Res As String
Dim X As Long, Y As Long, Z As Long
Dim CL As Range

'Get numbers from target cell
Y = 0
For X = 1 To Len(InputCell.Value)
    If Mid(InputCell.Value, X, 1) >= "0" And Mid(InputCell.Value, X, 1) <= "9" Then
        Y = Y + 1
        ReDim Preserve MyArray(Y)
        MyArray(Y) = Mid(InputCell.Value, X, 1)
    End If
Next X

'Loop through all cells in specified range
For Each CL In SearchRange
    For Z = LBound(MyArray) To UBound(MyArray)
        If InStr(1, CL.Value, MyArray(Z)) = 0 Then GoTo 1
    Next Z
    If CL.Row <> InputCell.Row Then Res = Res & CL.Offset(0,-1).value & " "    
1: Next CL

GetMatches = Res

End Function

通过在单元格C2添加此公式来调用工作表： =GetMatches(B2,$B$2:$B$16)并向下拖动。

对于您的第二个请求，您可以这样做：

Function GetMatches2(InputCell As Range, SearchRange As Range) As String

Dim MyArray() As String
Dim Res As String, Inp As String
Dim X As Long, Y As Long, Z As Long
Dim CL As Range

'Get codes from inputcell
MyArray = Split(Replace(Application.WorksheetFunction.Trim(Right(InputCell, Len(InputCell) - InStr(1, InputCell, "\"))), " and ", "\"), "\")

'Loop through all cells in specified range
For Each CL In SearchRange
    For Z = LBound(MyArray) To UBound(MyArray)
        Inp = "\" & Replace(Application.WorksheetFunction.Trim(Right(CL.Value, Len(CL.Value) - InStr(1, CL.Value, "\"))), " and ", "\")
        If InStr(1, Inp, "\" & MyArray(Z)) = 0 Then GoTo 1
    Next Z
    If CL.Row <> InputCell.Row Then Res = Res & CL.Offset(0, -1).Value & " "
1: Next CL

GetMatches = Res

End Function

通过在单元格C2添加此公式来调用工作表： =GetMatches2(B2,$B$2:$B$16)并向下拖动。