两单元格中部分内容相同，则返回TRUE，完全不同则返回FALSE

汽泡

A1单元格为“人工煎药”，B1单元格为“煎药费(人工)”，这两个单元格中均有“煎药”或“人工”，想在C1单元格中写一个函数公式比较A1和B1，只要有共同的字符，则返回TRUE，两单元格完全不同的返回FALSE，比较“拔罐疗法”与“普通拔罐治疗”，比较“隔物灸法”、“温灸”也是如此，多谢多谢！

gwjkkkkk

代码审核中，请参考图片 。。。

gwjkkkkk

Function isRngSame(rng1 As Range, rng2 As Range) As Boolean
    Dim i&, dic As Object
    Application.Volatile
    Set dic = CreateObject("Scripting.Dictionary")
    For i = 1 To Len(rng1.Value)
        s = Mid(rng1.Value, i, 1)
        dic(s) = ""
    Next i
    For i = 1 To Len(rng2.Value)
        s = Mid(rng2.Value, i, 1)
        If dic.exists(s) Then isRngSame = True: Exit Function
    Next i
End Function

汽泡

这个代码在VBA中实现？

jy03342543

汽泡 发表于 2023-7-12 10:00
这个代码在VBA中实现？

VBE建个模块把楼上的代码复制进去,然后C1单元格=isRngSame(A1,B1)即可.

汽泡

太牛了，试一下