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

質問

電話の回線の利用状況を見ようと、電話をかけてから切るまでに同じ時間に何回線を使っているのかをExcelを使って分析をしようと思ったのですが、どうやっていいのかわかりません。
DATE start end 回線
11月2日 17:08:55 17:09:48
11月2日 17:12:54 17:14:06 0
11月2日 17:12:59 17:16:37 2　→　2回線使っている
11月2日 17:19:18 17:21:50 0
11月2日 17:20:20 17:21:58 2　→　2回線使っている
11月2日 17:21:14 17:21:16 3　→　3回線使っている
11月2日 17:22:13 17:24:38 0
11月2日 17:24:28 17:25:11 2　→　2回線使っている
11月2日 17:33:49 17:34:45 0
11月2日 17:51:54 17:52:32 0
というように電話をかけ始めたとき、前に戻って重なっている時間が何回あるのかをVBAで読み出したいです。
わかる方はぜひ教えてください。

回答No.1

s___o · ベストアンサー

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の列で日付が変わったときに過去のカウントをリセットしてもう一度同じことを繰り返す場合はどうしたらよいのでしょうか？