VBA，尝试使用用户定义的功能从范围查找单词

Question

如果我有一个重要单词列表，然后是一个文本/注释字段。 我想在字段中搜索任何重要的单词（整个单词，而不仅仅是字符串）

即如果重要的单词是“ cat”，我不希望“ category”或“ scatman”返回肯定值。

这是到目前为止的功能

Function RangeFunc(rng As Range, funct As String) As String
Dim c As Range
Dim cnt As Integer
cnt = 0

For Each c In rng.Cells
    'If c.Text = funct Then
    If InStr(c.Text, " "&funct&" ") > 0 Then

        cnt = cnt + 1

    End If
Next c
RangeFunc = cnt

结束功能

IT似乎没有返回单个字数

Answer 1

您可以使用两个范围来执行此操作，一个用于列表检查，一个用于要查找的项目，因此在A1：A3中检查列表，在C1：C3中检查列表，我使用了

=SUM(--($A$1:$A$3=$C$1:$C$3))

这是一个数组公式，因此需要按ctrl键并输入以将其输入到单元格中。

您可以

application.Evaluate("=SUM(--($A$1:$A$3=$C$1:$C$3))")

请改用VBA。