两个VBA宏同时运行时调试器标记代码异常问题排查

问题原因 #

核心问题出在VBA的Select操作依赖当前激活的工作表：

• 第一部分执行完毕后，当前激活的是你新建的、以CellValue命名的工作表；但第二部分的pasteSheet指向的是"Quantitative Metrics"工作表，此时直接调用pasteSheet.Cells(...).Select会试图在非激活的工作表上选择单元格——这在VBA里是不允许的，Select只能作用于当前激活的工作表，因此这行代码会抛出异常，导致执行中断。
• 单独运行第二部分时，你大概率是在"Quantitative Metrics"工作表上执行的，此时Select操作能正常生效，所以没有问题。

另外，你的代码过度依赖Select和Selection，这类操作本身就容易因工作表激活状态、选区变化出现不可预期的问题，属于VBA编写的不良习惯。

修复方案 #

彻底抛弃Select和Selection操作，直接通过工作表对象引用单元格区域进行操作，这是VBA编写的最佳实践，能避免绝大多数因激活状态导致的问题。同时优化代码逻辑，减少隐式依赖。

修改后的完整代码 #

Sub Add_New_Location()
    Dim CellValue As String
    Dim newSheet As Worksheet
    Dim pasteSheet As Worksheet
    
    ' 禁用屏幕更新提升运行效率
    Application.ScreenUpdating = False
    
    ' 第一部分：新建并重命名工作表
    CellValue = Worksheets("Quantitative Metrics").Range("D68").Value
    ' 复制工作表后直接获取新建的工作表对象
    Sheets("CT Input").Copy After:=Sheets(Sheets.Count)
    Set newSheet = ActiveSheet ' 复制操作后，新建工作表会自动激活，直接获取对象
    newSheet.Name = CellValue
    ' 直接操作单元格，无需Select
    newSheet.Rows("2:16").ClearContents
    newSheet.Range("A1").FormulaR1C1 = CellValue
    
    ' 第二部分：复制区域并替换公式引用
    Set pasteSheet = Worksheets("Quantitative Metrics")
    ' 复制指定区域
    pasteSheet.Range("L1:T63").Copy
    ' 用With语句定位目标区域，直接执行粘贴和替换操作
    With pasteSheet.Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
        .PasteSpecial
        ' 直接对目标区域调用Replace方法，无需Select
        .Resize(63, 1).Replace What:="CT Input", Replacement:=CellValue, _
            LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
            SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    End With
    
    ' 释放剪贴板，避免残留状态影响后续操作
    Application.CutCopyMode = False
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

关键修改点 #

1. 新增newSheet对象，直接操作新建的工作表，避免依赖Select和ActiveSheet的隐式引用。
2. 第二部分用With语句直接定位目标区域，跳过Select操作，直接调用Replace方法。
3. 增加Application.CutCopyMode = False释放剪贴板，防止后续操作受剪贴板状态影响。
4. 统一管理Application.ScreenUpdating，确保代码执行完毕后恢复屏幕显示。

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