通过排除空格和特殊字符来匹配单词

Question

我正在尝试匹配不同单元格中的以下单词。

shirtsize   shirt size 42

shirt Size  shirt size

shirt-size  shirt size 42

shirt - Size    shirt,size

以下是我正在使用的功能，但它没有给出预期的结果。

Function ExactWordInString(Text As String, Word As String) As Boolean
     ExactWordInString = " " & UCase(Text) & " " Like "*[!A-Z]" & UCase(Word) & "[!A-Z]*"
End Function

Answer 1

＆＃13;

＆＃13;

Function ExactWordInString(Text As String, Word As String) As Boolean
     ExactWordInString = " " & UCase(Text) & " " Like "*[!A-Z]" & UCase(Word) & "[!A-Z]*"
End Function

＆＃13;

＆＃13;

＆＃13;

＆＃13;

＆＃13;

Function ExactWordInString(Text As String, Word As String) As Boolean
     ExactWordInString = " " & UCase(Text) & " " Like "*[!A-Z]" & UCase(Word) & "[!A-Z]*"
End Function

＆＃13;

＆＃13;

＆＃13;

大家好，请找下面的例子。

＆＃13;

＆＃13;

Column1	                Column2	        Result	Expected Result
Air Force One	        Force	        TRUE	TRUE
Air Force-One	        Force	        FALSE	TRUE
Air "Force" One	        Force	        FALSE	TRUE
United States Brands	United States	FALSE	TRUE
UnitedStates Brands	    United States	FALSE	TRUE
United-States Brands	United States	FALSE	TRUE

＆＃13;

＆＃13;

＆＃13;