エクセル ＶＢＡについて質問です

質問

現在ＶＢＡにて自社の出退勤リストを作成しています。
ＶＢＡを使うのは初めてでかなり四苦八苦しおりますので皆さんの
お力をお借りしたいと思い質問しました。

日時　　　　　　　　　　氏名　…
7/20/2008/1:25　　　　　テスト太郎
7/20/2008/0:28　　　　　テスト太郎
7/20/2008/0:20　　　　　テスト花子
7/19/2008/22:47　　　　テスト太郎
…
が基本40000行くらいあります。

という感じでリストは成り立っています
これを各個人（9人分）の当日（0:00～23:59)の間で一番早い時間（出勤）と当日の一番遅い時間（退勤）だけを残しその間の時刻は消去する
というものです（月報）

さらにそれを各社員づづにソートし、新しいシートに各社員ごとに一致する行をコピーして貼り付ける（日報）

色々とネット、本等を使い調べてみたのですが、中々うまくいかず
行き詰っております。

説明が下手で申し訳ありませんがよろしくお願いします。

回答No.1

shukugawa

とりあえず一つのやり方を提示させて頂きます。

STEP 1.
まず、氏名、日時でソートします。

氏名　　　　　日時
テスト太郎　　7/19/2008/22:47
テスト太郎　　7/20/2008/0:28
テスト太郎　　7/20/2008/1:25
テスト太郎　　・・・
・・・　　　　・・・
テスト花子　　7/20/2008/0:20

STEP 2.
次に日時の列のセルを順に見ていき、前後の行の日付が同じ場合は、3列目に何か印をつけます。

氏名　　　　　日時　　　　　　　印
テスト太郎　　7/19/2008/22:47
テスト太郎　　7/20/2008/0:28
テスト太郎　　7/20/2008/1:25　　●
テスト太郎　　・・・　　　　　　●
・・・　　　　・・・
テスト花子　　7/20/2008/0:20

STEP 3.
印が付いてる行を全て削除します。

STEP 2. で印をつけずにいきなり削除することも可能です。