基于单元格动态值复制指定单元格区域至目标工作表的需求

方法1：VBA宏实现自动复制 #

适合需要实际复制单元格内容（含格式、公式或仅值）的场景，能自动响应B1的数值变化。

基础复制宏 #

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

Sub CopyDynamicRange()
    Dim rawSheet As Worksheet
    Dim masterSheet As Worksheet
    Dim rowCount As Long
    Dim sourceRange As Range
    
    ' 绑定目标工作表
    Set rawSheet = ThisWorkbook.Worksheets("Raw Data")
    Set masterSheet = ThisWorkbook.Worksheets("Master")
    
    ' 获取B1指定的行数
    rowCount = rawSheet.Range("B1").Value
    
    ' 计算复制区域：从B2到E(2+rowCount-1)
    Set sourceRange = rawSheet.Range("B2:E" & rowCount + 1)
    
    ' 复制到Master工作表的A1起始位置（可自行修改目标单元格）
    sourceRange.Copy masterSheet.Range("A1")
    
    ' 若仅需复制数值（避免原单元格的查找函数/系统链接引用问题），替换上面的Copy语句为：
    ' masterSheet.Range("A1").Resize(sourceRange.Rows.Count, sourceRange.Columns.Count).Value = sourceRange.Value
End Sub

自动触发复制 #

如果需要在Raw Data的B1数值变化时自动执行复制，右键Raw Data工作表标签→「查看代码」，粘贴以下事件代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当B1单元格被修改时触发宏
    If Not Intersect(Target, Me.Range("B1")) Is Nothing Then
        CopyDynamicRange
    End If
End Sub

方法2：动态数组公式引用（Excel 365/2021及以上） #

无需VBA，仅需在Master工作表中用公式动态引用目标区域，数据会随B1自动更新：
在Master的起始单元格（如A1）输入以下任一公式：

• 用INDEX（非易失性，推荐）：

=INDEX('Raw Data'!B:E,SEQUENCE('Raw Data'!B1)+1,SEQUENCE(4))

• 用OFFSET（易失性，数据变化时会强制重算）：

=OFFSET('Raw Data'!B2,0,0,'Raw Data'!B1,4)

注：SEQUENCE(4)对应B到E共4列，若列数变化，修改数字即可。

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