VBA宏仅逐行调试运行正常，点击命令按钮触发代码执行中断故障

核心报错原因 #

• 工作表引用不统一：代码中部分Range、Rows操作未指定所属工作表，按钮触发时如果当前活动工作表不是「Abyssal Chart」，操作范围会指向错误的工作表，引发越界或对象不存在报错。
• SpecialCells无匹配对象抛出错误：如果A8:H8区域内不存在常量类型的单元格，调用SpecialCells(xlCellTypeConstants)会直接触发运行时错误，这是该行频繁被高亮的核心原因。
• 剪贴板操作的偶发冲突：直接使用复制粘贴操作未及时清空剪贴板，可能和系统其他进程的剪贴板占用产生冲突，导致复制行代码偶发报错。

修正后完整代码 #

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Abyssal Chart")
    
    ' 临时关闭屏幕更新和事件触发，避免冲突
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    On Error GoTo ErrHandler
    
    ws.Rows(8).Insert Shift:=xlShiftDown
    ws.Rows(9).Copy
    ws.Rows(8).PasteSpecial xlPasteFormulasAndNumberFormats
    Application.CutCopyMode = False ' 操作后立即清空剪贴板
    
    ' 先判断是否存在常量单元格，再执行清除
    Dim constRng As Range
    On Error Resume Next
    Set constRng = ws.Range("A8:H8").SpecialCells(xlCellTypeConstants)
    On Error GoTo ErrHandler
    If Not constRng Is Nothing Then
        constRng.ClearContents
    End If
    
    ws.Range("A8").Value = Date
    ws.Range("B8").Value = "'T6"
    ws.Range("C8").Value = "'Electrical"
    ws.Range("D8").Value = Time

ExitHandler:
    ' 恢复系统默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Set constRng = Nothing
    Set ws = Nothing
    Exit Sub

ErrHandler:
    MsgBox "运行错误：" & Err.Description, vbCritical
    Resume ExitHandler
End Sub


Private Sub CommandButton2_Click()
    ' 统一指定工作表，避免活动页不匹配报错
    ThisWorkbook.Worksheets("Abyssal Chart").Range("E8").Value = Time
End Sub

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