VBA搜索范围= TODAY（）+ 30并清除内容

Question

曾对excel有所了解，但对VBA还是很新的，并正在寻求帮助。 我有一个包含日期的范围（D：AE）。 每列的行数是可变的，但已使用的单元格总数将不少于〜1500，并且可能高达10,000。 我正在尝试创建一个宏，该宏将查找从今天起大于30天的此范围内的任何日期，然后清除该单元格的内容。 最终结果将是仅在未来30天内的日期。 我已经做了一些相当广泛的搜索，但是我的经验限制并没有给我带来太多好处。 任何帮助将不胜感激！

Answer 1

建立一个For ... Next循环来查看工作表中的每一列，例如

For C = 1 To ActiveSheet.UsedRange.Columns.Count

在第一个内部嵌套另一个这样的循环，例如，

For R = 2 To ActiveSheet.UsedRange.Rows.Count

在第二个循环中，每个单元格都是ActiveSheet.Cells（R，C），您可以对其进行测试和操作。 喜欢，

With ActiveSheet.Cells(R, C)
    If IsDate(.Value) Then
        If CDate(.Value) > (Date + 30) Then
            .Value = ""
        End If
    End If
End With