用VBA分时间段统计数据

zyl6078

老师好！我对附件表中时间分段统计和字符筛选处理不好，恳请帮助。谢谢！

zyl6078

老师好！我对附件表中时间分段统计和字符筛选处理不好，恳请帮助。谢谢！

wanao2008

希望能够帮助到你。
仅针对你当前的情况：
Sub byWanao()
    Dim i&, j&, k&, jg&, m1&, m2&
    k = 3
    For i = 3 To Cells(Rows.Count, "f").End(xlUp).Row
        m1 = 0
        m2 = 0
        For j = k To Cells(Rows.Count, "a").End(xlUp).Row
            If Hour(Cells(j, "a")) = Hour(Cells(i, "f")) And Minute(Cells(j, "a")) = Minute(Cells(i, "f")) Then
                If InStr(Cells(j, "d"), "买") Then
                    m1 = m1 + Cells(j, "c")
                ElseIf InStr(Cells(j, "d"), "卖") Then
                    m2 = m2 + Cells(j, "c")
                End If
            Else
                Cells(i, "g") = Cells(j - 1, "b")
                Cells(i, "h") = m1
                Cells(i, "i") = m2
                k = j
                Exit For
            End If
        Next
    Next
End Sub

liulang0808

Sub 按钮3_Click()
    Set d = CreateObject("scripting.dictionary")
    Set dt = CreateObject("scripting.dictionary")
    arr = ActiveSheet.UsedRange
    For j = 3 To UBound(arr) - 1
        If Len(arr(j, 1)) > 0 Then
            tm = Format(arr(j, 1), "h:m")
            If InStr(arr(j, 4), "主买") Then
                d(tm & "主买量") = d(tm & "主买量") + arr(j, 3)
            Else
                If InStr(arr(j, 4), "主卖") Then
                    d(tm & "主卖量") = d(tm & "主卖量") + arr(j, 3)
                End If
            End If
            dt(tm) = arr(j, 2)
        End If
    Next
    [f3].Resize(dt.Count) = WorksheetFunction.Transpose(dt.keys)
    [g3].Resize(dt.Count) = WorksheetFunction.Transpose(dt.items)
    brr = [f2].Resize(dt.Count + 1, 4)
    For j = 2 To UBound(brr)
        tm = Format(brr(j, 1), "h:m")
        str1 = tm & "主买量"
        brr(j, 3) = d(str1)
        str1 = tm & "主卖量"
        brr(j, 4) = d(str1)
    Next j
    [f2].Resize(dt.Count + 1, 4) = brr


End Sub

liulang0808

供参考。。。。。。。。。。

wanao2008

liulang0808 发表于 2022-11-27 18:59
供参考。。。。。。。。。。

好是好，就是有点小失误，人家要每分钟的，你给做到每秒种了。

liulang0808

wanao2008 发表于 2022-11-27 19:17
好是好，就是有点小失误，人家要每分钟的，你给做到每秒种了。

见笑了。。。。。

清风竹-

请看附件。

zyl6078

感谢wanao2008、liulang0808、清风竹-三位老师！

zyl6078

清风竹- 发表于 2022-11-27 21:56
请看附件。

老师好！您在“a数据计算统计”表VBA中，将时间如9：30：01至9：30：59统计汇总在9：31中，我是要将9:30:00至9:30:59统计汇总在9：30中，请老师看看能否帮修改下。非常感谢！！！