エクセルＶＢＡ 今日の日付行を削除

はじめまして。
当日の日付の入った行を自動で削除したいのですが、
どなたかＶＢＡで教えていただけますでしょうか。

ＩＤ　日付
23　2011/2/18→この行を削除
24　2011/2/18→この行を削除
26　2011/2/17
26　2011/2/18→この行を削除
25　2011/2/17
26　2011/2/16
25　2011/2/16
25　2011/2/18→この行を削除
・
・
・
宜しくお願い致します。

No.3 回答者： imogasi 回答日時： 2011/02/18 20:53

既に出ているが

《第１）
（１）ForNextで業ごとに繰り返す
（２）その際上の業からやると削除行が業のとらえ方（ポインタ）に影響するので、下の方の行から削除すると
崩れ無くてよい。
ーー
（第２）
そのほかに、こんなとこに質問するまでも無く
操作をしてマクロの記録を採れば、コードはできるのではないですか。
操作は
範囲指定
データーフィルタ
▼をクリック
今日の日付を選ぶ
編集
行の削除
ーー
Sub Macro3()
Range("A2:C16").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=DateValue("2011/2/15")
Selection.EntireRow.Delete
Range("C12").Select
End Sub
ーー
A1:C16の例　D16の１６の最終行の察知はRange("65536"）.End（ｘｌUp).Rowなどを使えば相対化できる。
B列は日付（日付シリアル値で入っていること）
Criteria1:=DateValue("2011/2/15")はDateとか上記のような指定になる。
（第３）
Findなどで該当行を見つけて行Deleteなども出来る

この回答へのお礼

詳細に回答いただき、ありがとうございます。
最終行の察知勉強になりました。

お礼日時：2011/02/21 10:49

No.2 回答者： tom04 回答日時： 2011/02/18 20:23

こんばんは！

すでに回答は出ていますので、参考程度で・・・
B列に日付データが入っているとします。

Sub test()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 2) = DateValue(Now()) Then
Rows(i).Delete (xlUp)
End If
Next i
End Sub

こんな感じではどうでしょうか？m(__)m

この回答へのお礼

回答ありがとうございます。
非常にシンプルで分かりやすかったです。

お礼日時：2011/02/21 10:43

No.1 回答者： imo8001 回答日時： 2011/02/18 15:41

For Each c In Selection

If c.Value = 比較したいデータ Then
Rows(c.Row).Delete

End If

Next


こんな感じになります


日付を扱う場合は　値、型　に注意です

任意のセルを指定し　単純にそこと比較するようにすれば一番簡単です

この回答へのお礼

回答ありがとうございます。
比較データでは思いつきませんでした！
ありがとうございます。m(__)m

お礼日時：2011/02/21 10:45