EXCEL中，对比两个字符串，第二个字符串中如果包含第一个字符串中的任何一个字符，那就给予提示

我想先请教楼主：如果遇到这两种情况如何判断：
①、如果B1是“桃”，而A2单元格是“羊桃猕猴桃毛桃菠萝蜜桃”，怎么办？
②、如果A2是“菠萝蜜桃”，你认为怎样理解：是“菠萝”+“蜜桃”，还是“菠萝蜜”+“桃” ？

你提问的标题是“对比两个字符串，第二个字符串中如果包含第一个字符串中的任何一个字符”，但实际上，你的具体问题是“对比两组水果名称，看两者是否有任意共同的水果名称”，这两个问题是不等价的。如果要用函数语言把你的问题准确概括起来，应该是：“两个字符串中都包含若干个以空格为间隔区分的子字符串，看两者是否有任意共同的子字符串”。

你提的实际问题看起来简单，但是用函数公式解决并不容易，因为，需要循环地依次取出第一个字符串中的每个子符串，再循环地依次对比第二个字符串中的每个子符串，它至少包含了两重循环，普通公式绝对是无能为力的，即使用数组公式求解也不易处理。而且，在EXCEL的内置函数中，并没有把长字符串按指定分隔符号拆分成多个字符串的现成的函数。

这种循环判断的问题，用VBA处理则非常简单，虽然用了4层“for……next”循环：
Sub 找相同水果名()
Dim frts1() As String
Dim frts2() As String
arr = [a1].CurrentRegion.Value
For i = 2 To UBound(arr, 1)
For j = 2 To UBound(arr, 2)
flag = False
frts1 = Split(arr(1, j), " ")
frts2 = Split(arr(i, 1), " ")
For Each frt1 In frts1
For Each frt2 In frts2
If frt1 = frt2 Then flag = True: Exit For
Next
If flag Then Exit For
Next
arr(i, j) = IIf(flag, "是", "否")
Next
Next
[a1].CurrentRegion.Value = arr
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/ryveyjeje.html