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

必須啟用宏才能使其正常工作！