删除所有细胞与使用VBA以前日期的数据
删除以前日期所有带有数据的单元格在本文中，我们将创建一个宏以删除以前的数据。此宏会检查数据，保留今天的数据，并删除以前日期中的所有数据。
此示例中的原始数据包括日期，代理商名称和该特定日期各个代理商的销售额。
要运行宏，请单击“ Main”表上的按钮，或者甚至可以通过按快捷键Alt + F8来运行该宏。
宏将删除具有先前日期的所有记录。当我们在2016年12月14日运行此宏时，输出将仅反映该日期的记录。
[#_GoBack] ##逻辑说明在此示例中，我们创建了“ RemovePreviousData”宏。该宏使用反向FOR循环，表示循环沿相反方向运行。循环从最后一行开始，然后移到第一行。
使用反向循环的原因是，如果我们使用了普通的FOR循环，那么在每行删除之后，数据中存在的记录将向上移动，从而导致每行删除时位置的变化。因此，为了解决这个问题，我们使用了反向循环。
我们已将Step语句与FOR循环一起用于反向循环。 FOR循环从最后一行开始，并向第11 ^行循环。
请遵循以下代码
Option Explicit
Sub RemovePreviousData()
Dim Counter, LastRow As Integer
'Finding the row number of last row
LastRow = ActiveSheet.Range("A1").SpecialCells(xlLastCell).Row
'Looping from last row to 11th row
For Counter = LastRow To 11 Step -1
If Cells(Counter, 1).Value < Date Then
'Deleting the row
Rows(Counter).Delete
End If
Next Counter
End Sub
如果您喜欢此博客，请在Facebook和Facebook上与您的朋友分享。
我们很希望收到您的来信，请让我们知道我们如何才能改善我们的工作并使您的工作更好。写信给我们[email protected]