累计数据总和达到要求，求和。

过量

本人有1960-2014年的数据，每年需要统计出四个时间段的开始日期和结束日期。例如：1960年
当平均气温大于等于10时，开始当年的统计【序列号23】，当平均气温之和大于等于1142.61 时。标记结束日期【序列号95】。计算时间间隔。并计算降水量、平均气温、最高温、最低温，四者之和。
然后以结束日期的下一天为开始日期【序列号96】，进行统计，当平均气温之和大于374.43 时，标记结束日期【序列号111】。计算时间间隔。并计算降水量、平均气温、最高温、最低温，四者之和。
然后以结束日期的下一天为开始日期【序列号112】，进行统计，当平均气温之和大于684.79  时，标记结束日期【序列号141】。计算时间间隔。并计算降水量、平均气温、最高温、最低温，四者之和。
然后以结束日期的下一天为开始日期【序列号142】，进行统计，当平均气温之和大于508.47   时，标记结束日期【序列号170】。计算时间间隔。并计算降水量、平均气温、最高温、最低温，四者之和。
第一年结束。

计算1961年的四个时间段的开始日期和结束日期。
以此类推，计算出1960-2014年的四个时间段的开始日期和结束日期，及进行相关统计。

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr, crr()
   
4.   Dim d As Object
   
5.   wd = Array(0, 1142.61, 374.43, 684.79, 508.47)
   
6.   Set d = CreateObject("scripting.dictionary")
   
7.   f1 = True
   
8.   With Worksheets("sheet1")
   
9.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
10.     arr = .Range("a2:i" & r)
    
11.     i = 1
    
12.     Do While i <= UBound(arr)
    
13.       If Not d.exists(arr(i, 2)) Then
    
14.         If arr(i, 7) >= 10 Then
    
15.           ReDim brr(1 To 4, 1 To 7)
    
16.           ReDim crr(6 To 9)
    
17.           brr(1, 1) = DateSerial(arr(i, 2), arr(i, 3), arr(i, 4))
    
18.           For j = 6 To 9
    
19.             crr(j) = arr(i, j)
    
20.           Next
    
21.           d(arr(i, 2)) = brr
    
22.           nf = arr(i, 2)
    
23.           t = 1
    
24.         End If
    
25.       Else
    
26.         If t <= 4 Then
    
27.           For j = 6 To 9
    
28.             crr(j) = crr(j) + arr(i, j)
    
29.           Next
    
30.           If crr(7) >= wd(t) Then
    
31.             brr(t, 2) = DateSerial(arr(i, 2), arr(i, 3), arr(i, 4))
    
32.             brr(t, 3) = DateDiff("d", brr(t, 1), brr(t, 2))
    
33.             For j = 6 To 9
    
34.               brr(t, j - 2) = crr(j)
    
35.             Next
    
36.             d(nf) = brr
    
37.             t = t + 1
    
38.             i = i + 1
    
39.             If t <= 4 Then
    
40.               brr(t, 1) = DateSerial(arr(i, 2), arr(i, 3), arr(i, 4))
    
41.             End If
    
42.             For j = 6 To 9
    
43.               crr(j) = arr(i, j)
    
44.             Next
    
45.           End If
    
46.         End If
    
47.       End If
    
48.       i = i + 1
    
49.     Loop
    
50.     .Range("j2:p" & .Rows.Count).ClearContents
    
51.     For Each aa In d.items
    
52.       r = .Cells(.Rows.Count, 10).End(xlUp).Row + 1
    
53.       .Cells(r, 10).Resize(4, UBound(aa, 2)) = aa
    
54.     Next
    
55.   End With
    
56. End Sub
    

复制代码

chxw68

感觉写得不太好。

fashionon

你这个只能用vba具体加QQ969388727详聊啊

过量

chxw68 发表于 2016-8-27 14:36
感觉写得不太好。

大神，能不能帮我【开始日期】和【结束日期】改为每个日期对应的E列的【序列号】。谢谢您了~好人一生平安！

chxw68

详见附件。

过量

chxw68 发表于 2016-8-27 16:04
详见附件。

谢谢！帮了大忙了！

过量

chxw68 发表于 2016-8-27 16:04
详见附件。

大神，还有个小小的问题，需要您伸出援手！万分感谢。问题在下面链接
http://club.excelhome.net/thread-1298555-1-1.html