需要代码来删除基于值的行（VBA）

Question

我要做的是获取此代码以根据B列中的日期删除行。如果B列中的日期属于最近3天，则应删除它。 代码似乎删除1或2行，但不是所有具有“错误”日期的行。

我已尝试将所有列的格式设置为常规。 格式化很好，所以这不是问题。 我将日期转换为数字，以便我可以获得最后3天而不会遇到错误。 应该知道此数据以.csv文件开头，并在代码中保存为excel文件。

Dim myrow As Long
Dim mydate As Long

mydate = Int(CDbl(Now()))
mydate = mydate - 3

Columns("B:B").NumberFormat = "0"

Application.CutCopyMode = False

MsgBox "Last row with data:" & Cells(Rows.Count, "B").End(xlUp).row

For myrow = 1 To Cells(Rows.Count, "B").End(xlUp).row Step 1

        If Range("B" & myrow).value = mydate + 1 Or Range("B" & myrow).value = mydate + 2 Or Range("B" & myrow).value = mydate + 3 Then
        Range("B" & myrow).EntireRow.Delete
        End If

Next myrow

我希望此代码删除包含B列中最后3天中任何一行的所有行.B列是一组格式为“43588”“43599”等的日期。但是，它只删除1或2行代码运行。 我有一个消息框告诉最后一行有数据，它显示正确的值，意思是“Cells（Rows.Count，”B“）。End（xlUp）.row”工作正常。

我感谢任何帮助。

Answer 1

删除循环中的行时，必须以相反的顺序（从下到上）遍历行。 否则，当您删除行时，它下面的行将重新编号，可能会被跳过。

For myrow = Cells(Rows.Count, "B").End(xlUp).row to 1 Step -1