Excel：搜索關鍵字列表文本的宏

Question

我需要編寫一個宏，它將採用一個文本單元格並在單元格中搜索關鍵字列表。返回的所有關鍵字都需要插入到一個單元中。

Answer 1

我有些事可能會幫助你。假設你片如下：

在Cell D2寫公式=Keywords($A$2:$A$7,C2)其中Keywords爲用戶定義函數，$ A $ 2：$ A $ 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