判断矛盾的公式

kingtao2005

hxj119 发表于 2024-5-9 12:25
=IF(SUM(N(B2&C2=B$2:B2&C$2:C2))>1,"矛盾","")

您这个公式，返回的值是有问题的

IE_Crayon

------------

IE_Crayon

VBA写一个

1. Sub byz()
   
2. 
   
3.     Dim i, j, k
   
4.     Dim count, maodun, maodunren
   
5.     Dim r As Range, r1 As Range
   
6.    
   
7.     Set r = Range("b1:b99")
   
8.     Set r1 = Range("d1:d99")
   
9.    
   
10.     maodun = 2
    
11.     For i = 2 To 10
    
12.    
    
13.         k = 0
    
14.         For j = 2 To 10
    
15.         
    
16.             If Cells(j, 2) = Cells(i, 2) And Cells(j, 3) = Cells(i, 3) Then
    
17.             
    
18.                 k = k + 1
    
19.         
    
20.             End If
    
21.             
    
22.         Next j
    
23.         
    
24.         count = Application.WorksheetFunction.CountIf(r, Cells(i, 2))
    
25.         
    
26.         If count > k Then
    
27.             
    
28.             If Application.WorksheetFunction.CountIf(r1, Cells(i, 2) & ",矛盾") = 0 Then
    
29.             
    
30.                 Cells(maodun, 4) = Cells(i, 2) & ",矛盾"
    
31.                 maodun = maodun + 1
    
32.                
    
33.             End If
    
34.             
    
35.         End If
    
36.    
    
37.     Next i
    
38. 
    
39. End Sub

复制代码