可以用自定義函數(shù)(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) 即可查出結(jié)果 而判斷是否一致,則需要 =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) 如果是數(shù)字說明可以找的到就是說包含 不管是哪邊包含哪邊只要有一個符合條件就說明一樣所以用一個or 最后用一個if就可以了 |
|