如何计算列中的字段并显示在另一个单元格中

时间:2016-10-20 16:22:34

标签: excel vba excel-vba

在excel中我有4列,我们只对列B(日期)格式为dd / mm / yyyy列C(时间)和列D(持续时间)

的3列感兴趣

对于我试图确定以下内容的每个日期

每个日期的记录总数(在E列中显示) 该日期的第一次(在F栏中显示) 该日期的最后一次(在G栏中显示) 持续时间高于00:05:00(在H列中显示)格式的记录总数为hh:mm:ss

Dim n As Long
n = Application.CountIf(Range("D:D"), ">00:05:00")
With Sheet1
    .Range("$H$2").value = n
End With

到目前为止,我一直在研究编码的持续时间部分

我确实有这个工作,我唯一的问题是它对所有记录进行排序,并且每个日期只显示它吗?如果有人能帮助我那会很棒,因为它让我发疯了。

1 个答案:

答案 0 :(得分:0)

for each d in range("A:A").usedrange
 n=application.CountIfs(A:A,"=" & d,D:D,">00:05:00")
 ctr=ctr+1
 with sheet1
  .cells(ctr,"H")=n
 end with
next