Excel公式清理停用词语

Question

希望得到以下问题的帮助。我需要根据特定的词汇表清理文本。找不到特定的公式（不是VBA）在Excel中执行此操作（在其他线程中搜索未成功）。谢谢

Answer 1

这里是一个VBA UDF使用正则表达式来替换文本中的所有StopWords，没有任何东西。它通过使用单词边界标记来处理部分单词匹配的问题。例如，如果you是一个停用词，它将不会替代you，但将忽略your。它也将替换停用词后面的任何空格。

---

Option Explicit 
Function CleanStopWords(S As String, StopWords As Range) 
    Dim RE As Object 
    Dim SW() As String 
    Dim C As Range 
    Dim I As Long 

ReDim SW(1 To StopWords.Count) 
For I = 1 To StopWords.Count 
    SW(I) = StopWords(I) 
Next I 

Set RE = CreateObject("vbscript.regexp") 
With RE 
    .Global = True 
    .ignorecase = True 

    'create pattern using the StopWords 
    .Pattern = "\b(?:" & Join(SW, "|") & ")\b\s*" 

    CleanStopWords = .Replace(S, "") 
End With 

End Function 

---