数据判断

michaelaa

当所有条件满足时,备注ok,也可以用公式实现,请大师帮忙看一下,万分感谢.

无关岁月

1. =REPT("ok",AND(IF(A$2:A$21=A2,C$2:C$21)>0))

复制代码

swl4561255

1. =IF(COUNT(0/((A$2:A$21=A2)*(C$2:C$21>0)))=COUNTIF(A$2:A$21,A2),"OK!","")

复制代码

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.8
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     arr = [a1].Resize(r, 4)
   
5.     For i = 2 To UBound(arr)
   
6.         S = arr(i, 1)
   
7.         ft = IIf(arr(i, 4) > 0, 1, 0)
   
8.         If Not d.exists(S) Then
   
9.             fft = 1
   
10.             d(S) = fft * ft
    
11.         Else
    
12.             d(S) = d(S) * fft * ft
    
13.         End If
    
14.     Next
    
15.     For i = 2 To UBound(arr)
    
16.         S = arr(i, 1)
    
17.         t = d(S)
    
18.         If t > 0 Then
    
19.             arr(i, 4) = "OK"
    
20.         Else
    
21.             arr(i, 4) = ""
    
22.         End If
    
23.     Next
    
24.     [a1].Resize(r, 4) = arr
    
25.     Set d = Nothing
    
26.     MsgBox "OK！"
    
27. End Sub
    

复制代码

gwjkkkkk

Option Explicit

Sub TEST1()
    Dim ar, cr, i&, dic As Object, vKey, isFlag As Boolean, strTxt$
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    With [A1].CurrentRegion
        ar = .Value
        For i = 2 To UBound(ar)
            dic(ar(i, 1)) = dic(ar(i, 1)) & " " & i
        Next i
        For Each vKey In dic.keys
            cr = Split(dic(vKey))
            isFlag = True
            For i = 1 To UBound(cr)
                If ar(cr(i), 3) < 0 Then isFlag = False: Exit For
            Next i
            If isFlag Then strTxt = "OK" Else strTxt = ""
            For i = 1 To UBound(cr)
                ar(cr(i), 4) = strTxt
            Next i
        Next
        .Value = ar
    End With

    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考附件。。。

无敌小猪猪

参与下

yynrzwh