可以用自定义函数（vba）
按alt+f11 右键新建一个模块
粘贴以下代码
Function FindSameStr(rg1 As Range, rg2 As Range)
For i = 1 To Len(rg1.Value)
If InStr(rg2, Mid(rg1.Value, i, 1)) > 0 Then
a = a & Mid(rg1, i, 1)
End If
NextFindSameStr = a
End Function
再回到excel界面，写公式=查找相同(A1,B1)
即可查出结果
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024