想要实现打开工作表时，系统日期晚于某行首格输入日期时自动删除该行，应该怎么写？？

洛南日

请问一下大手子们，想要实现打开某个工作表时（该表A列均为日期），系统日期如果晚于某行首格输入日期时则自动删除该行，代码应该怎么写呢？

举个例子，如果打开工作表时，系统时间为2018年9月1号，则自动删除第2行，以此类推。这样代码应该怎么写呢？

洛南日

朱荣兴 发表于 2018-8-7 23:24
datevalue，日期比较大小函数

Sub test()
Dim rng As Range, r&, i&
r = [a1].CurrentRegion.Rows.Count
Set rng = Cells(r + 1, 1)
For i = 1 To r
  If Cells(i, 1) < Date Then Set rng = Union(rng, Cells(i, 1))
Next
rng.EntireRow.Delete
End Sub

以上是我写的代码，但是执行的时候会把标题栏删掉，大神可以帮我看看怎么改吗？