[已解决]过程太大运行不了，求高手帮简化

grf1973

1. Sub main()
   
2.     Application.ScreenUpdating = False
   
3.     Sheets("表1").Range("c3:k61") = "" '清空单元格
   
4.     With Sheets("Sheet1")
   
5.           icount = .[a1].CurrentRegion.Rows.Count
   
6.           For a = 5 To icount '职工人数
   
7.             b = .Cells(a, 20).Value '任职年限
   
8.             c = .Cells(a, 14).Value '工作年限
   
9.             gw = .Cells(a, 18)
   
10.             Call 汇总(gw, b, c)   '根据岗位、任职年限、工作年限找到对应的单元格位置后+1
    
11.           Next
    
12.     End With
    
13.     Application.ScreenUpdating = True
    
14. End Sub
    
15. 
    
16. Sub 汇总(gw, b, c)     '根据岗位、任职年限、工作年限汇总
    
17.     With Sheets("表1")
    
18.         Set xrng = .[a:a].Find(gw, lookat:=xlWhole)
    
19.         If Not xrng Is Nothing Then
    
20.             r = xrng.Row      '根据工作岗位找到对应的行
    
21.             r1 = IIf(b < 6, r, IIf(b < 11, r + 1, IIf(b < 16, r + 2, r + 3)))         '根据任职年限确定要填充的行
    
22.             c1 = IIf(c = 0, 3, Int((c - 0.1) / 5) + 3)       '根据工作年限确定要填充的列
    
23.             .Cells(r1, c1) = Val(.Cells(r1, c1)) + 1
    
24.             .Cells(75, c1) = Val(.Cells(75, c1)) + 1
    
25.         End If
    
26.     End With
    
27. End Sub
    

复制代码

grf1973

对初学者，字典可能比较难以理解。上楼是根据你的基本思路改写的，可参考。
主要是根据岗位、年限，确定在表1中填充的位置。
用了子程序，可以大量减少编程的代码量。