嘿，我来帮你搞定这个Overflow Error和删除重复行的麻烦！

问题根源分析 #

你遇到的溢出错误，大概率是正向循环删除行的逻辑漏洞导致的：

• 你用For c = 3 To clastrow从前往后遍历，当删除一行后，后面的所有行都会自动上移一行，但循环变量c还是会继续递增，这不仅会跳过本该检查的行，而且频繁执行c = c -1会让循环的边界变得混乱，极端情况下会触发数值溢出（比如c被减到超出VBA整数的范围）。
• 另外你提到的“每次循环更新最后一行”，在For循环里其实没作用——因为For循环的上限clastrow是在循环开始前就确定的，中途修改它不会改变循环的执行次数。

修正方案：反向循环遍历 #

正确的做法是从最后一行往上反向遍历，这样删除行不会影响还没检查的行，也不会出现变量异常的情况。给你写好修正后的代码：

Dim clastrow As Long
Dim claim As Worksheet
Set claim = ActiveWorkbook.Worksheets("ClaimData")

' 先获取A列最后一行的行号
clastrow = claim.Cells(claim.Rows.Count, "A").End(xlUp).Row

' 从最后一行反向遍历到第3行
For c = clastrow To 3 Step -1
    ' 这里补全你原来的匹配条件（假设需要A列和E列都与上一行匹配）
    If claim.Range("A" & c).Value = claim.Range("A" & c - 1).Value And _
       claim.Range("E" & c).Value = claim.Range("E" & c - 1).Value Then
        ' 删除当前匹配的行
        claim.Rows(c).Delete
        ' 反向循环不需要手动调整c，Step -1会自动处理
    End If
Next c

为什么这样能解决问题？ #

• 反向循环时，我们从下往上检查，就算删除了第c行，上面的行号（c-1及以上）完全不受影响，不会出现跳过行的情况。
• 不需要再手动执行c = c -1，循环变量会按Step -1自动递减，避免了变量数值异常导致的溢出错误。

额外提示 #

• 尽量避免直接依赖ActiveWorkbook，如果可以的话，用具体的工作簿名称（比如ThisWorkbook或者Workbooks("你的文件名.xlsm")）会更稳定。
• 如果你的匹配条件还有其他列，直接在If语句里添加And 列匹配条件即可。

内容的提问来源于stack exchange，提问作者jason chan