小编Joh*_*ton的帖子

我在excel上有一个csv文件,该列为~CU.

并且行保持更新(截至目前为2606).

我试着

1. 删除before today's dateD列上记录的所有行
2. 今天的日期没有打字/文本框/人工输入.

Sub deleterows()
lastrow = Cells(Rows.Count, 4).End(xlUp).Row
For i = lastrow To 2 Step -1
    If Cells(i, 4).Value < *numeric value* Then Rows(i).EntireRow.Delete
Next i
End Sub