Excel如何批量复制行列仅替换首列数据自动生成多门店表格？

以下是两种可落地的高效实现方案，适配每周数据频繁变动的场景： #

方案1：Power Query实现（无代码，普通用户可用，变动后一键刷新） #

• 第一步：将单门店促销模板、全部门店名称列表分别放在两个独立工作表，命名为「模板表」「门店列表」。模板表仅保留商品维度的公共数据，第一列门店名可暂时留空，后续会批量替换。
• 第二步：点击顶部「数据」选项卡 → 「获取数据」→ 「自工作簿」→ 选择当前文件，分别把「模板表」「门店列表」加载到Power Query编辑器。
• 第三步：选中「门店列表」查询，点击「添加列」→ 「自定义列」，公式栏输入= 模板表，确认后每行门店记录后会新增一个嵌套的商品模板表格。
• 第四步：点击自定义列右上角的展开按钮，取消勾选「使用原始列名作为前缀」，确认后即可生成所有门店对应所有商品的完整数据集。
• 第五步：调整第一列门店名称到首列位置，点击「关闭并上载」即可把完整数据导出到Excel工作表。后续模板商品、门店列表变动时，右键点击生成的表格 → 「刷新」就能自动更新全量数据，无需重复操作。

方案2：VBA宏实现（适合高频重复操作，一键执行） #

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

Sub 批量生成门店促销表()
    Dim 模板表 As Worksheet, 门店表 As Worksheet, 结果表 As Worksheet
    Dim 门店数 As Long, 商品数 As Long, i As Long
    Set 模板表 = Sheets("模板表") ' 可修改为你的模板工作表实际名称
    Set 门店表 = Sheets("门店列表") ' 可修改为你的门店列表工作表实际名称
    Set 结果表 = Sheets.Add(after:=Sheets(Sheets.Count))
    结果表.Name = "批量生成结果"
    ' 复制表头
    模板表.Rows(1).Copy 结果表.Rows(1)
    商品数 = 模板表.Range("A" & Rows.Count).End(xlUp).Row - 1 ' 统计模板商品行数，减1排除表头
    门店数 = 门店表.Range("A" & Rows.Count).End(xlUp).Row ' 统计总门店数
    ' 循环写入所有门店的商品数据
    For i = 1 To 门店数
        模板表.Range("A2:D" & 商品数 + 1).Copy 结果表.Range("A" & (i - 1) * 商品数 + 2)
        结果表.Range("A" & (i - 1) * 商品数 + 2 & ":A" & i * 商品数 + 1) = 门店表.Range("A" & i).Value
    Next i
End Sub

• 修改代码中的工作表名、字段列范围和你的实际表格匹配后，按F5执行即可直接生成完整的结果表。

小提示：如果存在部分门店促销规则特殊调整的需求，生成全量数据后可单独筛选对应门店修改，不会影响其他门店的批量生成内容。

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