去重汇总并计算男、女、合计与各自百分比，

gotime175

多谢大侠帮助。

shiruiqiang

shiruiqiang

看了一下，病种有35个，部分隐藏了。

就是你的计算公式不确定

ykcbf1100

练习一下，统计
检出百分比，规则没搞懂就没算

ykcbf1100

练习一下。。。

1. Sub ykcbf()   '//2024.11.10
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("数据")
   
5.         r = .Cells(Rows.Count, 1).End(3).Row
   
6.         arr = .[a1].Resize(r, 5)
   
7.     End With
   
8.     ReDim brr(1 To r, 1 To 8)
   
9.     For i = 2 To UBound(arr)
   
10.         s = arr(i, 1)
    
11.         p1 = IIf(arr(i, 4) = "男", 1, 0)
    
12.         p2 = IIf(arr(i, 4) = "女", 1, 0)
    
13.         If Not d.exists(s) Then
    
14.             m = m + 1
    
15.             d(s) = m
    
16.             brr(m, 1) = m
    
17.             brr(m, 2) = s
    
18.             brr(m, 3) = p1
    
19.             brr(m, 4) = p2
    
20.             brr(m, 5) = 1
    
21.         Else
    
22.             r = d(s)
    
23.             brr(r, 3) = brr(r, 3) + p1
    
24.             brr(r, 4) = brr(r, 4) + p2
    
25.             brr(r, 5) = brr(r, 5) + 1
    
26.         End If
    
27.     Next
    
28.     With Sheets("汇总")
    
29.         .[a4:h10000] = ""
    
30.         .[a4].Resize(m, 8) = brr
    
31.         .[a4].Resize(m, 8).Borders.LineStyle = 1
    
32.     End With
    
33.     Set d = Nothing
    
34.     Application.ScreenUpdating = True
    
35.     MsgBox "OK！"
    
36. End Sub
    

复制代码

翁知江安

楼主，sheets（“数据”）中的P-W 列数据有用？

翁知江安

看懂了，可以完成

一招秒杀

这么简单到只需要 1条语句的事情，在这里就变成了个科研攻关课题。
月薪5千元的人几个小时还搞不定的事，月薪1万+的人可能只需要1分钟，哪个更划算？
有位很初级的网友最近换了个工作，我相信他都能1分钟内轻松搞定。

翁知江安

这是测试初步

翁知江安

这是测试结果。。。。