Excel：对于一个单元格，用一字计算一列中使用的字数

Question

目标：搜索带有句子的单元格中是否存在列中的单词（带有列表或单词）

说明 ：我有两列，说A每个单元格包含一个句子。 B列包含一个列表，每个单元格包含一个单词。 对于A列中的每个单元格，我想知道是否使用了B列中的单词。

我想要2种不同的输出：

1）在C列中，返回在A列的单元格中从句子的B列使用的单词数。说，在C2单元格中，返回在A2单元中的句子中B列的使用的单词数。

例如，如果B列中的单词列表包含：

B2：猴子

B3：驴

B4：长颈鹿

B5：大象

A2单元格中的句子说：“猴子和大象在走路”，那么我想在C2单元中返回数字“ 2”。

2）在D列中直到Z？ 我想返回所使用的词。 因此，在上述示例中，我想在单元格中返回：

D2：猴子

E2：大象

希望有人可以帮助我！

Answer 1

这是第一部分：

试试这个小的UDF（） ：

Public Function WordCount(r1 As Range, r2 As Range) As Long
   ary = Split(r1.Text, " ")
   bry = r2.Value
   For Each a In ary
      For Each b In bry
         If a = b Then WordCount = WordCount + 1
      Next b
   Next a
End Function

用户定义函数（UDF）易于安装和使用：

1. ALT-F11弹出VBE窗口
2. ALT-I ALT-M打开一个新模块
3. 将内容粘贴并关闭VBE窗口

如果您保存工作簿，则UDF将随之保存。 如果您在2003年以后使用Excel版本，则必须将文件另存为.xlsm而不是.xlsx

删除UDF：

1. 如上调出VBE窗口
2. 清除代码
3. 关闭VBE窗口

要从Excel使用UDF：

= myfunction（A1）

要总体上了解有关宏的更多信息，请参见：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/zh-CN/library/ee814735(v=office.14).aspx

有关UDF的详细信息，请参见：

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

必须启用宏才能使其正常工作！