Excel VBA删除重复行异常：仅交替行被删除，寻求问题排查

嘿，这个问题我之前也踩过坑！你遇到的“仅交替行被删除”的情况，核心原因是循环遍历的方向不对。

问题根源 #

当你从第2行开始从上到下递增循环（iCTR = 2然后每次iCTR = iCTR + 1）时，一旦删除某一行，Excel会自动把该行下方的所有行向上移动一行。比如：

• 你删除了第2行，原来的第3行就变成了新的第2行
• 但下一次循环iCTR会变成3，直接跳过了刚上移过来的新第2行，导致这一行没被检查到，最终就只能交替删除匹配的行。

解决方案：两种修复思路 #

思路1：从后往前倒序遍历（推荐）

倒着从最后一行往第2行循环，这样删除行后，不会影响还没遍历到的行（因为它们都在当前行的上方，索引更小，不会被上移覆盖）。

修改后的函数代码示例：

Private Function DeletePreviousRecords(Program As String, targetSheet As String) As Boolean
    Dim lastRow As Long, iCTR As Long
    Dim IsDone As Boolean
    
    lastRow = GetLastRow(targetSheet) ' 假设GetLastRow能正确返回有效最后一行
    iCTR = lastRow ' 从最后一行开始
    
    ' 倒序遍历
    Do While iCTR >= 2
        ' 这里替换成你检查匹配的逻辑，比如检查A列是否等于Program
        If Sheets(targetSheet).Cells(iCTR, "A").Value = Program Then
            Sheets(targetSheet).Rows(iCTR).Delete ' 删除整行
        End If
        iCTR = iCTR - 1 ' 计数器递减
    Loop
    
    DeletePreviousRecords = True ' 根据实际逻辑返回结果
End Function

思路2：从上到下遍历，但删除后调整计数器

如果一定要保持从上到下的顺序，那在删除行之后，需要把计数器iCTR减1，这样下一次循环会重新检查当前位置（因为行已经上移了）。

代码调整部分示例：

' 原递增循环的修改
Do While iCTR <= lastRow
    If Sheets(targetSheet).Cells(iCTR, "A").Value = Program Then
        Sheets(targetSheet).Rows(iCTR).Delete
        lastRow = lastRow - 1 ' 最后一行索引也要减1，避免超出范围
        iCTR = iCTR - 1 ' 回退一步，避免跳过下一行
    End If
    iCTR = iCTR + 1
Loop

额外注意事项 #

• 确保GetLastRow函数能准确获取有数据的最后一行，不要包含空行，否则可能会遍历到无效区域。
• 删除行时尽量使用Rows(iCTR).Delete或者Cells(iCTR, 1).EntireRow.Delete，确保删除整行。

内容的提问来源于stack exchange，提问作者Nimy Alex