Excel VBA跨工作簿复制时指定工作表P列被覆盖为0问题咨询

• 代码大量依赖Activate、ActiveWorkbook这类活动对象操作，Excel全速执行宏时对象状态和UI渲染同步存在延迟，偶发出现粘贴时的指向异常；单步调试时每次操作之间有足够的同步时间，因此不会复现问题。
• 宏运行全程保留了自动计算配置Application.Calculation = xlAutomatic，切换工作簿、工作表时会触发实时重算，若Case5对应源工作表的P列数值依赖未完成的重算结果，复制时就会取到未计算完成的0值。
• findOpenWorkbookB函数仅做激活操作，没有容错逻辑，且找到的目标工作簿对象赋值给全局变量wrk后未被后续粘贴逻辑使用，仍然用ActiveWorkbook，极端情况下会出现激活失败，粘贴到错误工作簿的问题。
• 使用剪贴板做复制粘贴的操作稳定性低，切换窗口、重算等操作都可能干扰剪贴板内的内容，导致粘贴结果异常。

1. 首先替换所有依赖活动对象的写法，直接通过对象变量操作工作簿、工作表，完全取消Activate操作：
   修改findOpenWorkbookB函数为直接返回目标工作簿对象，避免全局变量污染和激活异常：

Function findOpenWorkbookB() As Workbook
    Dim wrk As Workbook
    For Each wrk In Workbooks
        If InStr(wrk.Name, "WorkbookB") > 0 Then
            Set findOpenWorkbookB = wrk
            Exit Function
        End If
    Next
    MsgBox "未找到名称包含WorkbookB的已打开工作簿", vbCritical
    End ' 找不到直接终止程序避免后续异常
End Function

2. 宏运行期间临时关闭自动计算，所有操作完成后再恢复，避免重算时序问题：
   将主程序开头的Application.Calculation = xlAutomatic修改为Application.Calculation = xlManual，结尾的恢复代码保持不变即可。

3. 替换剪贴板复制粘贴逻辑为直接数组赋值，不仅速度更快，也完全不受剪贴板、窗口切换的影响：
   修改主程序中的循环逻辑如下：

For inx = 2 To 6
    chooseInx
    Dim srcSht As Worksheet, tgtSht As Worksheet, tgtWrk As Workbook
    Set srcSht = ThisWorkbook.Worksheets(inx)
    Set tgtWrk = findOpenWorkbookB()
    Set tgtSht = tgtWrk.Worksheets(inx)
    
    ' 直接赋值shRange1的值，无需走剪贴板
    tgtSht.Range(shRange1).Value = srcSht.Range(shRange1).Value
    ' 直接将shRange2的值赋值到shRange3开头的对应大小区域
    tgtSht.Range(shRange3).Resize(Range(shRange2).Rows.Count, Range(shRange2).Columns.Count).Value = srcSht.Range(shRange2).Value
Next inx

4. 可选优化：将inx、shRange1/2/3这类变量改为局部变量传递，避免全局变量值被意外修改导致的异常。
5. 额外检查Case5对应源工作表是否存在隐藏行、筛选、P列数值依赖未更新的外部链接，排除配置层面的问题。

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