按条件求和、计数

过量

首先祝大家新年快乐！
提问题，A列为年，B列为周。
如果是同一年，B列是连续的，那么进行求和、计数。
如果不连续，也得统计出来，计数为1.如图所示！

龙城飞将III

1. Private Sub CommandButton1_Click()
   
2.     Dim Arr As Variant, SumArr As Variant, CountArr As Variant
   
3.     Dim i As Long
   
4.    
   
5.     Arr = Range(Cells(2, 1), Cells(Rows.Count, 3).End(3))
   
6.     ReDim SumArr(1 To UBound(Arr))
   
7.     SumArr(1) = Arr(1, 3)
   
8.     ReDim CountArr(1 To UBound(Arr))
   
9.     CountArr(1) = 1
   
10.     For i = 2 To UBound(Arr)
    
11.         If Arr(i, 1) = Arr(i - 1, 1) And Arr(i, 2) = Arr(i - 1, 2) + 1 Then
    
12.             SumArr(i) = SumArr(i - 1) + Arr(i, 3)
    
13.             CountArr(i) = CountArr(i - 1) + 1
    
14.         Else
    
15.             If CountArr(i - 1) <> 1 Then
    
16.                 Cells(i, 4) = SumArr(i - 1)
    
17.                 Cells(i, 5) = CountArr(i - 1)
    
18.             End If
    
19.             SumArr(i) = Arr(i, 3)
    
20.             CountArr(i) = 1
    
21.         End If
    
22.     Next
    
23. End Sub
    

复制代码

龙城飞将III

参考附件：

过量

龙城飞将III 发表于 2016-2-13 00:41

忘了一项了，如果不连续，也得统计出来，计数为1.这个怎么改啊大神！

龙城飞将III

过量 发表于 2016-2-13 09:22
忘了一项了，如果不连续，也得统计出来，计数为1.这个怎么改啊大神！

恩，去掉一个判断条件就好，参考附件：

过量

龙城飞将III 发表于 2016-2-13 15:18
恩，去掉一个判断条件就好，参考附件：

谢谢大神~~~