小编R Q*_*ade的帖子

代码循环执行大量执行计算的数据.适用于前两本工作簿.第三个工作簿,突然错误处理中断 - 不再有效.想法为什么？

1) Break on Unhandled Errors在选项中正确标记

2)每个错误处理之后是On Error GoTo 0

3)这打开On Error Resume Next和On Error GoTo ErrHandler.

我以为OERN无视任何其他错误处理？

这是冗长的代码.我拿出了几个变量定义来缩短它.

amount = lastcolumn / 6
totalstrikes = 0
Do Until amount = 0
    currentcolumn = amount * 6 - 5
    i = 2
Do Until Sheets("Data").Cells(i, currentcolumn).Value = ""
    currentminute = Sheets("Data").Cells(i, currentcolumn).Value
    If oldminute <> 0 Then
    On Error GoTo ErrHandler
        If WorksheetFunction.MRound(currentminute - oldminute, 1 / 86400) >= 0.0007 Then
            'Do Stuff
        End If
5        End …