如何在excel中比较两个字符串文本单元格,取相同结果的字符?

2024-12-19 16:03:13
推荐回答(2个)
回答1:

可以用自定义函数(vba)
按alt+f11 右键新建一个模块
粘贴以下代码

Function 查找相同(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
Next
查找相同 = a
End Function
再回到excel界面,写公式=查找相同(A1,B1)
即可查出结果
而判断是否一致,则需要
=IF(OR(ISERROR(FIND(A1,B1,1)),ISERROR(FIND(B1,A1,1))),"一样","不一样")
或者
=IF(OR(ISNUMBER(FIND(A1,B1,1)),ISNUMBER(FIND(B1,A1,1))),"一样","不一样")
两个都可以
FIND(A1,B1,1)左边是否包含右边
FIND(B1,A1,1)右边是否左边
ISNUMBER(FIND(A1,B1,1)
如果是数字说明可以找的到就是说包含
不管是哪边包含哪边只要有一个符合条件就说明一样所以用一个or
最后用一个if就可以了

回答2:

可以用自定义函数(vba)
按alt+f11 右键新建一个模块
粘贴以下代码

Function 查找相同(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
Next
查找相同 = a
End Function
再回到excel界面,写公式=查找相同(A1,B1)
即可查出结果