Excel VBA：删除旧记录

我试图删除180天或更长时间的任何记录。日期在F栏。当我运行这个时，没有任何反应。我在想它与Date（）函数有关。Excel VBA：删除旧记录

Sub ClearOldData() 
Application.ScreenUpdating = False 
Sheets("Data").Select 
Dim LastRow As Long 
With ActiveSheet 
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 
End With 
For i = 2 To LastRow 
    Dim recdate As Date 
    recdate = Cells(i, "F").Value 
    If DateDiff(d, Date, recdate) > 179 Then 
     ws.Rows(i).Delete 
    End If 
Next i 
Application.ScreenUpdating = True 
End Sub

来源

2016-12-07 superblowncolon

当删除行，最好从下往上的工作，所以你行的索引不会被干扰。 '对于我= LastRow到2步-1' –

好点。我已经做了这个改变。虽然没有解决手头的问题。 – superblowncolon

Tim有一点，运行你的for循环为'For i = LastRow to 2 Step -1'从底部开始，而且你正在使用'ws'对象（可能是作为工作表的参考），但是你从未将它放在任何地方。您还可以将'Debug.Print recdate＆“”＆Date＆“”＆DateDiff（“d”，Date，recdate）'添加到循环的开头，以确切了解它正在计算的内容。 – Dave

在VBA日期/时间是从1开始的数值，相当于＃1/1/1900＃。

日期/时间值

1天= 1
1小时= 1/24
1分钟= 60年1月24日
1秒= 1/24/60/60

一如既往从最后一行/项目删除到第一个。我对Compare cells to delete rows, value is true but not deleting rows的回答证明了原因。

DateDiff("d", Date, recdate) > 179和Int(Date - recdate) > 179是等价的。

Sub ClearOldData() 
    Application.ScreenUpdating = False 
    Dimi As Long 

    With Sheets("Data") 

     For i = 2 To LastRow Step -1 
      If Int(Date - Cells(i, "F").Value) > 179 Then 
       .Rows(i).Delete 
      End If 
     Next i 

    End With 
    Application.ScreenUpdating = True 
End Sub

来源

2016-12-08 00:05:35

Excel VBA：删除旧记录

回答

相关问题