恳请大神们帮忙看下这个统计的能否用vba算出来

qiongmei6

我附件上想求得一个代码，当他执行的时候，他会根据“报表表格中的ax列和“报表”表格中ay2：ba2的内容统计”“工资汇总”表格内b3：ab1000列，属于办公室的改制职工、合同工、聘用工每个各有多少人，显示在“报表”表格ay：ba列，目前报表的ay：ba列就是我希望代码执行后得到的最后结果，之前是用数组公式来做，但是表格中类似这种数组公式太多，导致表格1小时都打不开，所以想换成vba模式来做，看能不能加快表格运作，谢谢各位大神的帮忙

shiruiqiang

字典嵌套一下就行

liulang0808

Sub 按钮1_Click()
    Set d = CreateObject("scripting.dictionary")
    arr = Sheets("工资汇总").UsedRange
    For j = 3 To UBound(arr)
        If Not d.exists(arr(j, 2)) Then
            Set d(arr(j, 2)) = CreateObject("scripting.dictionary")
        End If
        d(arr(j, 2))(arr(j, 14)) = d(arr(j, 2))(arr(j, 14)) + 1
    Next j
    arr = Sheets("报表").[ax1].Resize(d.Count + 2, 4)
    For j = 0 To d.Count - 1
        k = d.keys()(j)
        arr(j + 3, 1) = k
        For i = 2 To 4
            arr(j + 3, i) = d(k)(arr(2, i))
        Next i
    Next j
    Sheets("报表").[ax1].Resize(d.Count + 2, 4) = arr
End Sub

liulang0808

汇总.zip (27.67 KB, 下载次数: 18)

2024-2-1 07:47 上传

点击文件名下载附件

saghj

qiongmei6

唉，是我描述的问题，大家都不理解我的想法，导致各位大神都理解错我的意思了，我想的代码是，根据“报表”表格内ay1的内容和ax列的单位，找出“工资汇总”表格内属于ay1内容的改制单位、合同工、聘用工多少人，例如：“报表”表格内ay1的内容是办公室，ax列的单位有上海和北京，那么希望执行代码后在“报表”表格内他显示，“工资汇总”属于上海的办公室的人员中改制单位有1个，合同工有1个，聘用工1个，在北京中合同工有1个，谢谢shiruiqiang，liulang0808，saghj，能否麻烦各位大神们再帮忙修改下。

lushang2018

你好好给大家描述一下，怎么个对应法？工种里面办公室怎么对应聘用、正式工、合同工的？

cao47112

在 liulang0808 大佬的基础上改了一下下，应该是这样吧

saghj

是这样吗？

半百

1. Sub test()
   
2. arr = Sheets("工资汇总").UsedRange
   
3. With Sheets("报表")
   
4.     brr = .[ay1].CurrentRegion
   
5.     For i = 3 To UBound(brr)
   
6.         For j = 3 To UBound(arr)
   
7.             If arr(j, 3) = brr(1, 2) And arr(j, 2) = brr(i, 1) Then
   
8.             For k = 2 To 4
   
9.                 If arr(j, 14) = brr(2, k) Then brr(i, k) = brr(i, k) + 1
   
10.             Next
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     .[ay1].CurrentRegion = brr
    
15. End With
    
16. End Sub
    

复制代码