Excel：宏搜索文本以获取关键字列表

Question

我需要编写一个宏，它将获取一个文本单元格并在单元格中搜索关键字列表。返回的所有关键字都需要插入单个单元格中。

Answer 1

我有些东西可以帮到你。假设您的表格如下：

在Cell D2中写下公式=Keywords($A$2:$A$7,C2)，其中Keywords是 用户定义的功能 ， $ 2美元：7美元 是您的关键字范围， C2 是带有搜索关键字的文字的单元格。根据需要拖动/复制公式。

用户定义函数Keywords如下：

Function Keywords(Words As Range, strText As Range)
    Dim c As Range
    For Each c In Words
    If InStr(1, strText, c, 1) > 0 Then Keywords = Keywords & ", " & c
        Next c
        If Keywords = 0 Then
        Keywords = "-"
    Else
        Keywords = Right(Keywords, Len(Keywords) - 2)
    End If
End Function