Как подсчитать поля в столбце и отобразить в другой ячейке

Question

В excel У меня есть 4 столбца, нас действительно интересуют только 3 столбца, которые являются форматом столбца B (даты) dd/mm/yyyy. Столбец C (время) и колонки D (Duration)

для каждой даты я пытаюсь определить следующую

общее количество записей для каждой даты (Display в столбце 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 

До сих пор я смотрел на продолжительность части кодирования

У меня есть это работает, единственная проблема, у меня есть то, что он сортирует все записи и оленья кожа только отображать его на сегодняшний день? Если бы кто-нибудь мог мне помочь, это было бы здорово, так как меня сводили с ума.

Answer 1

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