Excel VBA如何复制模板区域到其他工作表并引用原区域单元格

你需要的功能VBA确实有内置实现，无需逐单元格遍历修改，以下是两种无卡顿的高效实现方案：

方法1：批量赋值公式（优先推荐，效率最高） #

该方法不操作剪贴板，直接对目标区域批量写入适配位置的引用公式，哪怕是上万行的大区域也能瞬间完成：

Sub 引用模板表格()
    Dim 源区域 As Range, 粘贴起始位 As Range
    ' 定义模板中的源表格区域
    Set 源区域 = Sheets("template").Range("table")
    ' 替换为你实际要粘贴到sheet1的起始位置
    Set 粘贴起始位 = Sheet1.Range("A1")
    
    ' 批量生成对应位置的引用公式
    粘贴起始位.Resize(源区域.Rows.Count, 源区域.Columns.Count).FormulaR1C1 = _
        "=template!" & 源区域.Cells(1, 1).Address(ReferenceStyle:=xlR1C1, RowAbsolute:=False, ColumnAbsolute:=False)
End Sub

原理说明：通过R1C1格式的相对引用，公式会自动适配目标区域每个单元格的位置，对应到template表格中相同相对位置的单元格，完全不需要循环操作。

方法2：内置粘贴链接功能 #

如果你习惯用Copy方法，可以直接调用内置的粘贴为链接参数，直接生成对源单元格的引用：

Sub 粘贴为模板引用()
    Sheets("template").Range("table").Copy
    ' 替换为实际的粘贴起始位置
    Sheet1.Range("A1").PasteSpecial Paste:=xlPasteLink
    ' 清除剪贴板选中状态
    Application.CutCopyMode = False
End Sub

两种方案都完全符合你的需求：粘贴后每个单元格公式为=template!对应单元格地址，而非保留模板中原有的跨表计算公式。

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