Excel条件触发批量复制数组至可变目标区域的方案咨询

一、无VBA公式方案（轻量动态引用） #

无需宏即可实现条件触发的区域引用，同时避免冗余计算：

• 针对C28:C40、E28:E40、G28:G40这类目标区域，在对应起始单元格输入以下公式，下拉填充至第40行：

  =IF(OFFSET($A$27,,COLUMN()-3)="START",INDEX(productionplan1,ROW()-20,1),"")
  

  逻辑说明：
  • OFFSET($A$27,,COLUMN()-3)：根据当前列自动匹配第27行的对应单元格（C列对应C27，E列对应E27）
  • INDEX(productionplan1,ROW()-20,1)：精准匹配命名区域productionplan1的对应行（第28行对应数组第8行，ROW()-20刚好对齐行号）
  • 仅在触发条件满足时加载数据，无冗余计算

二、VBA宏方案（彻底移除公式，解决卡顿） #

要完全消除公式带来的性能问题，用宏实现值复制是最优选择：

1. 按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

   Sub CopyProductionPlan()
       Dim sourceRange As Range
       Dim targetCol As Integer
       Set sourceRange = Range("productionplan1")
       
       ' 定位START所在列
       If Range("C27").Value = "START" Then
           targetCol = 3 ' C列
       ElseIf Range("E27").Value = "START" Then
           targetCol = 5 ' E列
       ElseIf Range("G27").Value = "START" Then
           targetCol = 7 ' G列
       Else
           Exit Sub ' 无START标记则退出
       End If
       
       ' 复制值到目标区域
       sourceRange.Copy
       Cells(28, targetCol).Resize(sourceRange.Rows.Count, sourceRange.Columns.Count).PasteSpecial xlPasteValues
       Application.CutCopyMode = False
   End Sub
   

2. 返回Excel，插入表单按钮并绑定该宏，点击按钮即可触发值复制。
3. 核心优势：复制后目标区域为纯数值，无任何公式，彻底解决文件卡顿问题

三、关键注意事项 #

• 确保命名区域productionplan1的范围准确（A8至对应列第20行）
• 公式方案仅填充到第40行，避免整列填充增加计算量
• VBA方案需将文件保存为.xlsm格式，否则宏无法生效

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