Want to count no. Of rows covered in every passing minute

A power query Solution option

Please Login or Register  to view this content.

Excel 2016 (Windows) 32 bit

	H	I
4	Time	Count
5	9:28 PM	45
6	9:29 PM	51
7	9:30 PM	59
8	9:31 PM	57
9	9:32 PM	55
10	9:33 PM	55
11	9:34 PM	67
12	9:35 PM	52
13	9:36 PM	42
14	9:37 PM	51
15	9:38 PM	25
16	9:39 PM	32
17	9:40 PM	33
18	9:41 PM	65
19	9:42 PM	48
20	9:43 PM	54
21	9:44 PM	16

Sheet: Sheet1

Power Query is a free AddIn for Excel 2010 and 2013, and is built-in functionality from Excel 2016 onwards (where it is referred to as "Get & Transform Data").

It is a powerful yet simple way of getting, changing and using data from a broad variety of sources, creating steps which may be easily repeated and refreshed. I strongly recommend learning how to use Power Query - it's among the most powerful functionalities of Excel.

- Follow this link to learn how to install Power Query in Excel 2010 / 2013.

- Follow this link for an introduction to Power Query functionality.

- Follow this link for a video which demonstrates how to use Power Query code provided.

Put code in worksheet_Calculate even (rightclick on sheetname,view code)

PHP Code: 

Private Sub Worksheet_Calculate()
Dim Lr&, count&
Dim key
Dim m As Double
Dim cell As Range
Dim dic As Object
Set dic = CreateObject("Scripting.dictionary")
Lr = Cells(Rows.count, "F").End(xlUp).Row
    For Each cell In Range("F4:F" & Lr)
    m = Minute(cell.Value)
        If Not dic.exists(m) Then
            dic.Add m, ""
        End If
    Next
        For Each key In dic.keys
                For Each cell In Range("F4:F" & Lr)
                     m = Minute(cell.Value)
                     If m = key Then count = count + 1
                Next
            Cells(k + 4, "G").Value = key ' write minute on column G, Remove this line if no need
            Cells(k + 4, "H").Value = count ' write minute count onto column H
            k = k + 1
            count = 0
        Next
End Sub