0

我有一个 Excel 报告，由于任何给定月份的日历天数不均匀，每天生成的日期从任何地方到三天到两天不等。F 列中的报告如下所示。今天的日期是 2013 年 7 月 16 日，生成报告的过程被配置为显示大于 180 天的任何内容，以便我们捕获正确的数据。 

2014 年 1 月 12 日
2014 年 1 月 15 日
2014 年 1 月 15 日
2014 年 1 月 12 日
2014 年 1 月 15 日

我想删除所有不等于 1/15/14 的行。我不知道是否有一种方法可以添加仅 1/15 的另一列，然后删除其余部分？任何帮助或方向将不胜感激。

我们现在每天都进入文件并按日期排序，然后删除。我想自动化它。

谢谢

4

1 回答 1

1

使用循环遍历行并在小于您的条件时删除。我为行删除代码引用了此线程：Delete a row in Excel VBA。

我假设您的日期在 A 列并从第 1 行开始。

Private Sub Remove_Rows()

Dim CutoffDate As Date
CutoffDate = Date + 180

Dim ws As Worksheet
Set ws = ActiveSheet

Dim RowCounter As Integer
RowCounter = 1

Do While ws.Cells(RowCounter, 1) <> ""
    If ws.Cells(RowCounter, 1) < CutoffDate Then
        ws.Rows(RowCounter).Delete
    End If
    RowCounter = RowCounter + 1
Loop

End Sub
于 2013-07-16T21:23:57.053 回答