Excel从句子中提取多个关键字

曾经的事情

根据字表提取文本中的关键字。
字表不重复。
嫩黄的单元格部分是我最终需要的东西

各位大佬帮帮我把

有料大排档

你的附件 字表里有“的”字，“我的家庭”，你只要 “我家”，不是“我的家”结果？

有料大排档

1. function GetGJZ(){
   
2.         var GJZ = new Array()
   
3.         var endRow = 320
   
4.         for (var posRow = 2; posRow <= endRow; posRow ++){
   
5.                 GJZ.push(Range("B" + posRow).Text)
   
6.         }
   
7.         for (var posRow = 2; posRow <= endRow; posRow ++){
   
8.                 var tmp = GJZ.toString()
   
9.                 var txt = (Range("A" + posRow).Text).toString()
   
10.                 var posCol = 3
    
11.                 for (var pos = 0; pos < txt.length; pos ++){
    
12.                         var posTxt = txt.substr(pos, 1)                       
    
13.                         var fid = tmp.indexOf(posTxt)
    
14.                         if (fid > 0){
    
15.                                 Cells.Item(posRow, posCol).Formula = posTxt
    
16.                                 tmp = tmp.replace(posTxt, "")
    
17.                                 posCol = posCol + 1
    
18.                         }       
    
19.                 }
    
20.         }
    
21. }

复制代码

℡Soul

今铭昔