excel - Excel 宏用于在列表中搜索关键字并返回匹配值

Question

我正在寻找一个宏，它可以在一个工作表或多个工作表中搜索包含在文档中的单词列表中的关键字，并为每个相应的关键字返回一个值。

例如

清单 1. 快乐 2. 悲伤 3. 忧郁

例如，如果 A 列中的单元格说“我对我的训练感到非常高兴”，宏将在 B 列中返回“1”。这将用于对问卷中的开放式回答进行分类。

在这方面的任何帮助将不胜感激。我发现使用公式太麻烦且耗时。我相信宏会更快更精确。

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

请注意....它将匹配Happy。它不会匹配快乐。