excel处理时间段内数据

ChemEng

如附件所示，B列为日期、时间，C列至Z列为数据值（仅列了C列数据以减少文件大小）。
希望达到的结果：
所有数据按照其对应的时间，每1个小时内的数据算平均值，放在sheet2中对应列中。  

如20230110-07：30 ~ 08：30 时间段内的数据 取平均值后，放在sheet2中的C2中。
如20230110-08：30 ~ 09：30 时间段内的数据 取平均值后，放在sheet2中的C3中。
----
类推

请各位大侠不吝赐教！！

fzxba

1. Sub test1() '改一下
   
2.   Dim Conn As Object, SQL As String, strConn As String
   
3.   Dim ar, i As Integer, sFields As String
   
4.   Application.ScreenUpdating = False
   
5.   Set Conn = CreateObject("ADODB.Connection")
   
6.   If Application.Version < 12 Then
   
7.     strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source="
   
8.   Else
   
9.     strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source="
   
10.   End If
    
11.   Conn.Open strConn & ThisWorkbook.FullName
    
12.   With Worksheets("Sheet1")
    
13.     ar = .Range("B1", .Range("B1").End(xlToRight))
    
14.     sFields = "HOUR(DATEADD('n',30," & ar(1, 1) & ")) AS 时间段"
    
15.     For i = 2 To UBound(ar, 2)
    
16.       sFields = sFields & ",AVG([" & ar(1, i) & "]) AS " & ar(1, i) & "均值"
    
17.     Next
    
18.     SQL = "SELECT " & sFields & " FROM [" & .Name & "$] WHERE LEN( " & ar(1, 1) & ") GROUP BY HOUR(DATEADD('n',30," & ar(1, 1) & "))"
    
19.   End With
    
20.   With Worksheets("Sheet2").Range("B1")
    
21.     .CurrentRegion.ClearContents
    
22.     .Resize(, UBound(ar, 2)) = ar
    
23.     .Offset(1).CopyFromRecordset Conn.Execute(SQL)
    
24.     ar = .CurrentRegion
    
25.     For i = 2 To UBound(ar)
    
26.       ar(i, 1) = "[ " & Format(ar(i, 1) - 1, "00") & ":30 - " & Format(ar(i, 1), "00") & ":30 )"
    
27.     Next
    
28.     .CurrentRegion = ar
    
29.   End With
    
30.   Conn.Close
    
31.   Set Conn = Nothing
    
32.   Application.ScreenUpdating = True
    
33.   Beep
    
34. End Sub

复制代码

汉唐

请楼主参考附件

ChemEng

收到。感谢两位大侠！

grf1973

sql真是个好东西

grf1973

用数组+字典也可处理，但速度远慢于Sql方法。

ChemEng

厉害厉害！！向高手学习！！

ChemEng

grf1973 发表于 2023-1-20 10:30
sql真是个好东西

您好，我要处理的数据，除了C列还有很多列。对所有列的数据均是一样的处理办法。
能否在您的程序中再修改一下，可以处理多列数据？

我尝试了，没能成功。

grf1973

请看附件。

ChemEng

grf1973 发表于 2023-2-6 11:44
请看附件。

收到！！多谢啦多谢了！！