Excel宏搜索列表中的关键字并返回匹配值

Question

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

E.g。

列表 快乐 伤心 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。这不会很开心。