Excel VBAでどうやるのか教えてください。

電話の回線の利用状況を見ようと、電話をかけてから切るまでに同じ時間に何回線を使っているのかをExcelを使って分析をしようと思ったのですが、どうやっていいのかわかりません。
DATEstartend回線
11月2日17:08:5517:09:48
11月2日17:12:5417:14:060
11月2日17:12:5917:16:372　→　2回線使っている
11月2日17:19:1817:21:500
11月2日17:20:2017:21:582　→　2回線使っている
11月2日17:21:1417:21:163　→　3回線使っている
11月2日17:22:1317:24:380
11月2日17:24:2817:25:112　→　2回線使っている
11月2日17:33:4917:34:450
11月2日17:51:5417:52:320
というように電話をかけ始めたとき、前に戻って重なっている時間が何回あるのかをVBAで読み出したいです。
わかる方はぜひ教えてください。

No.1 ベストアンサー 回答者： s___o 回答日時： 2005/12/06 19:29

DATE,start,end,回線がそれぞれA,B,C,D列、

回線記録が2行目から記入されているものとして、
以下に例を示します。

r1 = 2
Do While Cells(r1, 1) <> "" 'DATEが空白まで繰返し

'回線カウント
cnt = 1
For r2 = 2 To r1
If Cells(r1, 2) < Cells(r2, 3) Then
cnt = cnt + 1 'startがendより過去の場合カウントアップ
End If
Next r2

'回線入力
If cnt = 1 Then
Cells(r1, 4) = 0
Else
Cells(r1, 4) = cnt
EndIf

r1 = r1 + 1
Loop

この回答への補足

早速の回答ありがとうございます。
このやり方で出来ました。
今度、同じDATEの列で日付が変わったときに過去のカウントをリセットしてもう一度同じことを繰り返す場合はどうしたらよいのでしょうか？

補足日時：2005/12/07 03:48

この回答へのお礼

回答ありがとうございました。

お礼日時：2006/01/05 09:51