列のフィールド数をカウントして別のセルに表示する方法

Question

Excelで4つの列がありますが、列B（日付）形式は3つの列にしか関心がありません。列C（時間）そして列D（期間）

私は、次の

各日付のレコードの合計数（列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 

これまでのところ、私はこの作業を持っているコーディング

の持続部分を見てきた、私が持っている唯一の問題は、それが唯一の日付ごとにそれを表示するすべてのレコードとdoesntのをソートすることですか？もし誰かが私を助けることができれば、それは私を狂わせるように偉大になるだろう。

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