如何在excel中比较两个字符串文本单元格,取相同结果的字符?
发布网友
发布时间：2022-04-28 22:40
共2个回答
热心网友
时间：2022-06-24 10:23
按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就可以了
热心网友
时间：2022-06-24 10:24
按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)
即可查出结果追问非常感谢，不好意思具体我还是弄不明白，没有成功啊。
追答多试试，不行的话HI我，以上方法已经试过可以的
