VBA宏单独运行正常，多宏统一调用时无报错但运行结果异常

• 最核心的错误是LastRow = Cells(Rows.Count, "Q").End(xlUp).Row这行代码没有指定工作表对象：Cells和Rows默认指向当前活动工作表，单独运行宏时如果刚好停留在Sales Output表，计算的LastRow是正确的；但和其他Sub统一调用时，如果活动工作表被其他Sub切换为别的表，LastRow会读取其他表的Q列最后行数，导致rng的范围完全错误，自然出现随机高亮的问题。
• 代码存在对象引用不一致的问题：已经定义了Sales变量指向Sales Output表，后续Set rng时仍然用Sheets("Sales Output")，属于不规范写法，容易触发引用错误。
• On Error Resume Next放置位置错误：放在循环开头会吞掉所有运行时错误，比如P/R单元格引用无效、值类型错误等，你看不到任何报错，只会发现功能异常。

Option Explicit

Sub HighlightAndHalve()
    Dim Cell As Range, rng As Range, LastRow As Long, Sales As Worksheet, R As Range, P As Range
    Set Sales = ThisWorkbook.Worksheets("Sales Output")
    ' 所有单元格/行对象都绑定到Sales表，不受活动表影响
    LastRow = Sales.Cells(Sales.Rows.Count, "Q").End(xlUp).Row
    Set rng = Sales.Range("Q6:Q" & LastRow)
    
    ' 仅在可能出错的赋值段加错误处理，不要全局吞错
    For Each Cell In rng
        Set P = Cell.Offset(0, -1)
        Set R = Cell.Offset(0, 1)
        If Cell.Value > 0 Then
            On Error Resume Next
            P.Value = P.Value / 2
            P.Interior.ColorIndex = 3
            R.Value = 1
            On Error GoTo 0 ' 恢复错误抛出
        End If
    Next Cell
End Sub

• 把LastRow的类型从Integer改为Long：Excel行数最多可达1048576行，Integer的上限只有32767，行数超过就会溢出报错。
• 错误处理仅作用在可能出错的赋值段落，执行后立即恢复默认错误抛出，避免其他异常被隐藏。
• 所有单元格、行范围对象都绑定到已经定义的Sales工作表，彻底不受其他Sub切换活动表的影响。

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