统计人员考核达标次数

qlmgu

各位老师龙年春节好。

前几天在多位老师的帮助下，解决了考核中一票否决的数据处理，再次表示衷心的感谢。
随后的统计处理中又遇到了统计人员达标次数的问题，我平时是用透视方法统计然后汇总。当考核指标多时（10-20列），这个方法明显繁琐和费时。所以再次冒昧前来请教各位老师。感谢各位关注和帮助我的老师们。
各位老师，临时发现有些条件未说明白，我再修改下文本。

下面是修改后的方案和需求。
指标1有些特殊：对于某个具体人员来说，只要有一次（一行数据）达标就算这个指标达标了；
指标2及以后的指标名称不同，但是下面的结果都是达标或未达标两类；对具体的人员名称来说，这些列的指标定性是一致的，例如都是达标或不达标。

4.需求：统计人员在多少列指标里达标（等于或小于指标列数），结果放在sheet2



希望得到的结果放在第二页:

达标次数统计求助修改2.rar (128.95 KB, 下载次数: 11)

2024-2-17 15:18 上传

点击文件名下载附件

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br, i&, j&, k&, n&
   
    Application.ScreenUpdating = False
   
    br = Sheets(1).[A1].CurrentRegion.Value
    ar = [A1].CurrentRegion.Value
   
    For i = 2 To UBound(ar)
        ar(i, UBound(ar, 2)) = Empty
        n = 0
        For k = 2 To UBound(br)
            If br(k, 3) = ar(i, 3) Then
                For j = 3 To UBound(br, 2)
                    If br(k, j) = "达标" Then n = n + 1
                Next j
            End If
        Next k
        ar(i, UBound(ar, 2)) = n
    Next i
   
    [A1].CurrentRegion.Value = ar
   
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考。。。

qlmgu

gwjkkkkk老师您好，感谢您的帮助。我发现有些条件没说明白，容我迟点补充说明。再次感谢您。

shiruiqiang

重复姓名、重复达标指数。
lz把要求好好表达一下，避免论坛老师重复写代码

shiruiqiang

这样吗？

qlmgu

shiruiqiang 发表于 2024-2-17 13:09
重复姓名、重复达标指数。
lz把要求好好表达一下，避免论坛老师重复写代码

是的，shiruiqiang老师。我上午想修改，但是每次都要等待很久，不知道什么原因。我现在把修改方案附上。还要等待

qlmgu

gwjkkkkk 发表于 2024-2-17 12:01
请参考。。。

gwjkkkkk老师感谢您的帮助，我发现数据有误想修改就需要长时间等待了，给老师造成困惑。真抱歉。

qlmgu

shiruiqiang 发表于 2024-2-17 13:57
这样吗？

shiruiqiang老师感谢您的帮助，我发现数据有误想修改就需要长时间等待了，给老师造成困惑。真抱歉。

qlmgu

各位老师，早上发帖时发现了表达和逻辑问题，想修改却发现要等很长时间，来不及纠正我的错误，给各位老师带领麻烦了。我到下午才有机会再修改和提交。还请各位老师关注和出手相助。谢谢各位。