ＥＸＣＥＬ ＶＢＡで教えてください。

質問

EXCELで、４列（Ａ～Ｄ）仕立ての表があります。Ｄ列に入力されている日付が現在より過去の場合、その行を削除するように作成したいのですが、教えていただけますでしょうか？

回答No.3

ja7awu · ベストアンサー

数字を消さないで、過去の日付けを<<表示>>しているセルの行だけを削除する
のであれば、このような感じで如何でしょうか。

Sub Test()
Dim Rw As Long
For Rw = Range("D65536").End(xlUp).Row To 1 Step -1
If IsDate(Range("D" & Rw).Text) And _
Range("D" & Rw).Value < Date Then
Range("D" & Rw).EntireRow.Delete
End If
Next
End Sub

お礼

ありがとうございます。助かります！

回答No.2

shishishishi

Ｎｏ１です。
先ほどのでやると、日付が入っていない場合も削除されてしまいますね。

Sub testtest()
For i = 40 To 1 Step -1
If Cells(i, "D") <> "" And Cells(i, "D") < Date Then
Rows(i).Delete
End If
Next
End Sub

としてください。

お礼

ありがとうございます。さっぱりしていてわかりやすいので試してみます。

回答No.1

shishishishi

仮に、データが1行目から40行目まであるとします。

Sub testtest()

For i = 40 To 1 Step -1
If Cells(i, "D") < Date Then
Rows(i).Delete
End If
Next

End Sub