查找包含字符串的文本

Question

所以我已经阅读了很多关于反向 vlookup 和在 excel 文本中查找文本字符串的内容，但是...... 我有一个电话：
品牌名称 |型号 |伽马

在另一张纸上有一列：
设备

我需要从“型号”的“设备”列中查找值，并在其旁边显示该设备的“Gama”。
问题是：
1- VLOOKUP 或 MATCH/INDEX 不会让我搜索范围或显示表格矩阵之外的结果（？）我正在调查
2-在“设备”单元格中我有品牌、型号、颜色、设备容量等，都在同一个单元格中，没有特定的顺序，“分隔符”将是一个月来组织；所以我需要查看该单元格的某些部分是否与另一张表中“模型”单元格的任何部分匹配。

我的朋友告诉我，这在 sql 中应该会简单得多，但因为即使在 vba 中我的经验也很少......

我什至不知道这是否可以做到，但无论如何提前谢谢。

Answer 1

制作一个新模块并将以下用户定义函数（UDF）放入模块中：

Function testFunc(myRange As Range, myVal As String) As String

    Dim myCell As Range

    For Each myCell In myRange
         If InStr(1, myVal, myCell.Value, vbTextCompare) <> 0 Then
             testFunc = myCell.Address
             Exit Function
         End If
    Next myCell

    testFunc = "NOT FOUND"

End Function

然后，在您的数据旁边的单元格中（在我的情况下为单元格 F3），输入：

 =testFunc($B$3:$B$6,E3)

您需要将“$B$3:$B$6”替换为包含型号的列。将“E3”替换为包含“设备”信息的单元格。

然后，在此右侧的单元格中，放入

=IF(F3="NOT FOUND", F3, OFFSET(INDIRECT(F3),0,1))

显然，将“F3”替换为您将前一个函数放入的任何单元格。

这会给你结果。

这可能不是完成此操作的最佳方法，但它会起作用。

编辑

如果它们在不同的工作表上，则编辑该行：

 testFunc = myCell.Address

到

testFunc = myCell.Worksheet.Name & "!" & myCell.Address

或

将单元格中的公式更改为：

=IF(F3="NOT FOUND", F3, OFFSET(INDIRECT("SheetName!" & F3),0,1))