EntireRow.Delete 似乎删除了不正确的行

VBA

使用VBA编程时，我们经常需要删除excel表格中的某些行。一个常见的方法是使用EntireRow.Delete函数来删除指定的行。然而，有时候我们发现使用这个函数删除的行并不是我们想要删除的行，这可能会导致数据的丢失或错乱。那么，为什么会发生这种情况呢？我们该如何避免这个问题呢？

首先，让我们来看一个示例代码，通过这个例子我们可以更好地理解这个问题。假设我们有一个包含学生信息的表格，其中包括学生的姓名、年龄和成绩。我们要删除成绩低于60分的学生的信息。我们可能会使用如下的VBA代码来实现这个功能：

Sub DeleteLowScore()
    Dim i As Integer
    Dim lastRow As Integer
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = lastRow To 2 Step -1
        If Cells(i, 3).Value < 60 Then</p>            Rows(i).EntireRow.Delete
        End If
    Next i
End Sub

在上面的代码中，我们首先获取了最后一个非空单元格所在的行号，然后从最后一行开始逐行遍历。如果某一行的第三列（即成绩所在列）的数值小于60，那么就使用EntireRow.Delete函数删除该行。

然而，当我们运行这段代码时，有时会发现一些不正确的行被删除了，而一些正确的行则保留了下来。这是因为在删除一行之后，原本的下一行会自动上移填补被删除行的空缺，而此时循环的计数器i却已经自增了，导致跳过了原本的下一行。这样就会导致一些正确的行被错误地删除了。

为了解决这个问题，我们可以将循环的方向改为从第二行向最后一行逐行遍历。这样在删除一行之后，下一行会顶替上来，而循环的计数器不会受到影响。修改后的代码如下：

Sub DeleteLowScore()
    Dim i As Integer
    Dim lastRow As Integer
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To lastRow
        If Cells(i, 3).Value < 60 Then</p>            Rows(i).EntireRow.Delete
            i = i - 1 ' 删除行后，将计数器减1
        End If
    Next i
End Sub

现在，我们再次运行代码，就会发现所有成绩低于60分的学生的信息都被正确地删除了。

避免使用EntireRow.Delete的替代方法

除了修改循环的方向之外，我们还可以使用另一种方法来避免使用EntireRow.Delete函数。我们可以先将要删除的行标记然后再一次性删除这些标记的行。

下面是一个使用这种方法的示例代码：

Sub DeleteLowScore()
    Dim i As Integer
    Dim lastRow As Integer
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To lastRow
        If Cells(i, 3).Value < 60 Then</p>            Rows(i).Interior.Color = RGB(255, 0, 0) ' 标记要删除的行为红色
        End If
    Next i
    
    For i = lastRow To 2 Step -1
        If Rows(i).Interior.Color = RGB(255, 0, 0) Then
            Rows(i).Delete ' 删除标记的行
        End If
    Next i
End Sub

在上面的代码中，我们首先使用红色标记了要删除的行，然后再一次性删除这些标记的行。这样可以避免在循环过程中删除行导致的计数器问题。

使用EntireRow.Delete函数删除excel表格中的行时，有时会出现删除错误行的问题。为了避免这个问题，我们可以修改循环的方向或使用标记的方法来删除行。这样可以确保我们删除的是我们想要删除的行，避免数据的丢失或错乱。