Excel VBA檢查其他單元格中是否包含單元格單詞

Question

我想檢查一個單元格的所有單詞是否包含在另一個單元格的子單詞中。

例如：

A1包含在B1中，但A2不包含在B1中。

Answer 1

以下UDF（）將確定單元格Little中的所有單詞是否出現在單元格Big中 ：

Public Function AreIn(Little As String, Big As String) As Boolean
   Dim good As Boolean, aLittle, aBig, L, B

   AreIn = False
   aLittle = Split(LCase(Little), " ")
   aBig = Split(LCase(Big), " ")

   For Each L In aLittle
      good = False
      For Each B In aBig
         If L = B Then
            good = True
         End If
      Next B
      If good = False Then Exit Function
   Next L
   AreIn = True
End Function

這里的“單詞”是一組不包含空格的字符。 該測試不區分大小寫。 例：