二个单元格比较相同

ba3259878266

二个单元格比较相同 并显示相同 谢谢各位老师帮忙

jiangxiaoyun

Sub vf()
    For i = 3 To Cells(Rows.Count, 2).End(xlUp).Row Step 2
        If Cells(i, 2) = StrReverse(Cells(i, 3).Value) Then
            Cells(i, 4) = "相同"
        End If
    Next
End Sub

jiminyanyan

...........

jiminyanyan

3楼是通用代码。。。。

ba3259878266

jiangxiaoyun 发表于 2018-7-15 16:37
Sub vf()
    For i = 3 To Cells(Rows.Count, 2).End(xlUp).Row Step 2
        If Cells(i, 2) = StrRe ...

麻烦用公式 实现 谢谢

hopeson2010

1. =IF((1-ISERR(FIND(B3,C3&C3)<3))*(B3<>""),"相同","")

复制代码

ba3259878266

hopeson2010 发表于 2018-7-15 16:55

谢谢 老师  看看这个  区域与单元格比较

hopeson2010

1. Function ek(a As String, b As String)
   
2.   If Len(a) <> Len(b) Or a = "" Then ek = "": Exit Function
   
3.     Dim arr(0 To 9, 1 To 2) As Variant
   
4.     Dim i As Integer, j As Integer, k As Integer
   
5.        For i = 1 To Len(a)
   
6.          arr(Mid(a, i, 1), 1) = 1
   
7.          arr(Mid(b, i, 1), 2) = 1
   
8.        Next i
   
9.        For j = 0 To 9
   
10.           If arr(j, 1) = 1 And arr(j, 2) = 1 Then
    
11.              k = k + 1
    
12.           End If
    
13.        Next j
    
14.            If k = Len(a) Then
    
15.               ek = "相同"
    
16.            Else
    
17.               ek = ""
    
18.           End If
    
19. End Function
    

复制代码

hopeson2010

公式右拉:

1. =IF(COUNT(FIND(MID(B3&B3,{1,2},2),$H$3)*(B3<>"")),"相同","")

复制代码

jiminyanyan

ba3259878266 发表于 2018-7-15 16:41
麻烦用公式 实现 谢谢

3楼就是自定义函数。。。