请符合条件的数据个数。

chxw68

练练SQL。。

刘雄军

280022976 发表于 2023-12-1 16:16
练习一下，改了下完成！！

又有一个想法，如果B列有ABCD代号，求ABCD哪个出现FAIL次数最多，当然了因为现在有4个1，对应有ABCD,如果有5个1,B列就是ABCDE代号了，以此类推。有VBA或公式都可以。

280022976

刘雄军 发表于 2023-12-3 10:31
又有一个想法，如果B列有ABCD代号，求ABCD哪个出现FAIL次数最多，当然了因为现在有4个1，对应有ABCD,如果 ...

实现应该很简单，但我看不懂你要的结果。实在不行你展示你的结果

280022976

usedrange

Sub tt()
    Dim arr, d1, d2
    arr = Sheets(1).Range("a2:i" & Range("i3").End(xlDown).Row)
    Set d1 = CreateObject("scripting.dictionary")
    Set d2 = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        If arr(i, 9) = "FAIL" Then d2(arr(i, 1)) = ""
        d1(arr(i, 1)) = ""
    Next i
    For Each v In d1.keys
        For Each k In d2.keys
            If k = v Then
                d1.Remove (v)
            End If
        Next k
    Next v
    Sheets(1).Range("k3").Resize(d1.Count, 1) = Application.Transpose(d1.keys())
    MsgBox ("符合条件的记录共有：" & d1.Count & "条")
End Sub

刘雄军

280022976 发表于 2023-12-4 08:57
实现应该很简单，但我看不懂你要的结果。实在不行你展示你的结果

就是求A的FAIL次数，B的FAIL次数，C的FAIL次数，D的FAIL次数，如有E则有E，，，，，，，，然后求他最大值时的项目名称。实际计算了下，C出现FAIL的次数最多。

chxw68

参与一下。

280022976

噢，我一开始以为你也还要序号，输出结果S5。我把结果都列出来了。

grf1973

B列加个表头“选项”。

grf1973

换个字典的方法。