Excel（需要VBA吗？）选择一行中具有特定格式并已填充的所有单元格，然后对它们进行计数。 在公式中使用该计数

Question

Analysing some data I got for my company, I need to count cells, so I can work in a formula with that count.
CurrentRegion doesn't work. Here's what criteria need to be met.

The cells counted must be:

• of a certain row (there are other filled cells nearby, which is why CurrentRegion doesn't work).
• of a certain format (mm:ss)
• between 2 cells filled with strings.

This data is collected automatically, so the coordinates of the fields that are filled with strings are not set.

The (set) row looks like this:

Description  
Description  
...  
Time  
Time  
Time            <- This is the data that I want to count.  
Time  
Time  
...  
Description  
Time  
Time  
...  

If it was just one of these I might get it, but for me being relatively new to VBA, this is very hard.
I appreciate every hint. I don't expect anyone to write the code for me

Answer 1

Only to start ...:

Dim e As Integer

e = 0
For i = 1 To 9999
    If Cells(i, 1).Value = "" Then Exit For
    If IsNumeric(Cells(i, 1).Value) Then
        e = e + 1
        ' Debug.Print Format(Cells(i, 1).Value, "h:m:s")
    Else
        If e <> 0 Then Debug.Print "Count = " & e
        e = 0
    End If
Next

the macro print for every section the number of consecutive time values.
The commented Print show the time formatted.
You need to add the code to continue ...
If you want also the Range of rows, modify a little the code:

Dim e, i, Addr1 As Integer

e = 0
For i = 1 To 9999
    If Cells(i, 1).Value = "" Then Exit For
    If IsNumeric(Cells(i, 1).Value) Then
        If e = 0 Then Addr1 = i
        e = e + 1
        ' Debug.Print Format(Cells(i, 1).Value, "h:m:s")
    Else
        If e <> 0 Then Debug.Print "Count = " & e & " - Range of Rows: " & Addr1 & " -> " & i - 1
        e = 0
    End If
Next