[已解决]求统计代码，谢谢！

grf1973

考虑兼职等情况，爱版的代码可修改如下：

1. Sub test()
   
2.     Dim A, B, i, j, k
   
3.     Sheets(2).[c4:n8] = ""
   
4.     A = Sheets(1).Range("a1").CurrentRegion
   
5.     B = Sheets(2).Range("a1").CurrentRegion
   
6. 
   
7.     For k = 3 To UBound(A)
   
8.         For i = 4 To UBound(B)
   
9.             If A(k, 8) = B(i, 1) And A(k, 9) = B(i, 2) Then
   
10.                 For j = 3 To UBound(B, 2) Step 3
    
11.                         If A(k, 6) = B(3, j) Then
    
12.                             B(i, j) = B(i, j) + 1
    
13.                             If A(k, 7) = B(3, j + 1) Then B(i, j + 1) = B(i, j + 1) + 1
    
14.                             If A(k, 7) = B(3, j + 2) Then B(i, j + 2) = B(i, j + 2) + 1
    
15.                         End If
    
16.                 Next j
    
17.             End If
    
18.         Next i
    
19.     Next k
    
20.     Sheets(2).[a1].Resize(UBound(B), UBound(B, 2)) = B
    
21. End Sub

复制代码

cdnyrg

grf1973 发表于 2015-12-8 11:22

哈哈，问题解决，消化一下，谢谢，有不懂的再请教，谢谢