Excel宏搜索列表中的關鍵字並返回匹配值

Question

我正在尋找一個宏，可以搜索工作表或多個工作表中的包含在文檔中的單詞列表中的關鍵字並返回值每個對應關鍵字。

E.g.

列表 1.快樂 2.悲傷 3.憂鬱

宏將B列中的返回是「1」，例如，如果在A列的單元格說：「我真的很高興我的訓練。「這將用於在問答中對開放式回答進行分類。

在這方面的任何幫助將不勝感激。我發現使用公式太繁瑣且耗時。我相信宏觀會更快，更精確。

Answer 1

試試這個：

Sub dural() 
    For Each r In Intersect(ActiveSheet.UsedRange, Range("A:A")) 
     a = r.Value 
     If InStr(1, a, "Happy") > 0 Then r.Offset(0, 1) = 1 
     If InStr(1, a, "Sad") > 0 Then r.Offset(0, 1) = 2 
     If InStr(1, a, "Melancholy") > 0 Then r.Offset(0, 1) = 3 
    Next r 
End Sub 

請注意....它將匹配快樂。它不會匹配快樂。