Question

分析我为公司获得的一些数据，我需要对细胞进行计数，因此我可以使用该计数的公式。
CurrentRegion不起作用。这是需要满足的标准。

计数的细胞必须是：

（附近还有其他填充的单元格，这就是CurrentRegion无法工作的原因）。
某种格式（mm：ss）
在两个充满字符串的单元格之间。

自动收集此数据，因此未设置填充字符串的字段的坐标。

（set）行如下所示：

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

如果它只是其中之一，我可能会得到它，但对于我来说相对较新的VBA，这是非常困难的。
我很欣赏每一个提示。 我不希望任何人为我编写代码

Answer 1

只是为了开始...：

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

每个部分的宏打印连续时间值的数量评论打印显示格式化的时间您需要添加代码才能继续...
如果您还需要行范围，请稍微修改一下代码：

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

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

1 个答案: