繰り返し文字列検索を高速化する方法

Question

セルをいくつかの部分文字列で検索するUDFがあります。式の出力が発見された部分文字列に依存します。

Function StringSearch(Rge As Range) As String 
Dim Str As String, Output As String 
Str = Rge.Value 

If InStr(Str, "words") > 0 Then Output = "Output 1" 
If InStr(Str, "other words") > 0 Then Output = "Output 2" 
If InStr(Str, "different words") > 0 Then Output = "Output 3" 

StringSearch = Output 

End Function 

私はここで機能の低下したフォームを用意しました - 実際にInStr関数は、異なる文字列を検索するのに約20回呼び出されます。

問題は、機能が非常に遅いことです。数百のセルに適用する必要があります。だから私はそれをどのようにスピードアップできるかについていくつかのアドバイスを期待していました。前もって感謝します。

Answer 1

ない、それは大きな違いを行います場合は必ず、あなたはLikeオペレータ

Function StringSearch(s As String) As String 
    If s Like "*words*" Then StringSearch = "Output 1": Exit Function 
    If s Like "*other words*" Then StringSearch = "Output 2": Exit Function 
    If s Like "*different words*" Then StringSearch = "Output 3": Exit Function 
End Function 

が、Excelの関数がUDF

= If(CountIf(A1, "*words*"   ), "Output 1", 
    If(CountIf(A1, "*other words*" ), "Output 2", 
    If(CountIf(A1, "*different words*"), "Output 3", "")