VBA场景分析宏使用Offset按指定行范围粘贴结果时位置偏移错误

偏移公式硬编码假设 #

原粘贴段的偏移计算仅在AD_start=2时成立：

• 按需求，基准结果存储在第1行的add_result命名区域，要把结果放到目标行i，需要相对基准区域偏移 i - 基准区域行号 行
• 原代码的偏移公式为 i + 1 - Range("AD_start")，仅当AD_start=2时，公式结果和正确偏移量完全相等，因此运行2-10行范围时结果正常
• 当AD_start=5时，公式结果变为i - 4，和正确偏移量差3行，所有结果整体上移3行，最终落到2-7行区间，和故障现象完全匹配

操作方式兼容性隐患 #

原代码依赖Select、ActiveCell定位操作，容易受工作表选中状态、命名区域作用域（工作表级/工作簿级）的隐性影响。这也是代码在其他工作簿可正常运行的原因——其他工作簿大概率固定将AD_start设为2，刚好匹配错误公式的适用条件。

直接替换原有粘贴逻辑段，去掉冗余选中操作，按目标行号直接定位：

• 替换原有代码：

  Range("add_result").Select
  Selection.Copy
  ActiveCell.Offset(i + 1 - Range("AD_start"), 0).Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  

• 替换为无选择状态的直接赋值写法，降低兼容性问题：

  ' 定义基准结果区域，自动获取其位置，不硬编码行号
  Dim baseResultRng As Range
  Set baseResultRng = Sheets("Sensitivity Analysis").Range("add_result")
  ' 直接将计算结果赋值到目标行对应列，无需复制粘贴操作
  baseResultRng.Offset(i - baseResultRng.Row, 0).Value = _
    Sheets("Appendix-PSA").Range("add_result").Value
  

• 所有单元格取值操作统一补充.Value属性，避免VBA默认属性判断出错
• 尽量减少Select类操作，通过对象引用直接定位单元格，提升跨工作簿兼容性

内容的提问来源于stack exchange，提问作者s-malav