如何在 Excel 中将数据复制并粘贴到多个工作表？

Excel 提供了一个高效的“填充” > “跨工作表”功能，该功能允许用户复制选定的数据块，并同时将其粘贴到多个工作表的相同位置。这种方法适用于当您想将相同的信息（例如模板、标题或常量值）分发到多个工作表的等效位置，而无需逐个复制和粘贴的情况。以下是使用此功能的方法：

1. 在当前工作表中选择要复制并粘贴到其他工作表中的区域。确保此区域格式正确，并包含您希望复制的数据。

2. 移动到工作簿底部的“工作表标签栏”。要选择多个工作表：

• 按住“Ctrl”键，依次点击各个工作表以选择不相邻的工作表。
• 按住“Shift”键，点击第一个工作表，然后点击最后一个工作表，以选择中间的所有工作表。

3. 选中所有目标工作表后，转到功能区上的“开始”选项卡，然后点击“填充” > “跨工作表”。此命令专门设计用于帮助用户跨多个工作表执行批量操作。请参见截图：

4. 在“跨工作表填充”对话框中，选择要粘贴的内容类型：

• 全部: 同时复制数据、公式和格式（如果您想要完全复制，推荐使用此选项）。
• 内容: 仅复制单元格值和公式，不带格式。
• 格式: 仅复制格式，而不复制实际内容。

最初选择的数据范围现在已同时复制到所有选定工作表中的相同范围。此方法非常适合更新部门或月度报告表中的模板或标准布局。

对于熟悉自动化或有定期重复复制-粘贴任务的用户，标准的 Excel 工具可能难以管理，使用 VBA 宏可以提供更大的灵活性。VBA 允许您确切定义数据如何及在哪里被复制和粘贴，支持简单和复杂场景，例如从不同范围复制、处理可变工作表名称或在操作期间应用自定义规则。

1. 点击“开发工具” > “Visual Basic”。在出现的 Microsoft Visual Basic for Applications 窗口中，选择“插入” > “模块”，并将以下 VBA 代码粘贴到模块窗口中：

Sub CopyRangeToMultipleSheets()
    Dim ws As Worksheet
    Dim SrcRange As Range
    Dim DestRange As Range
    Dim SheetName As String
    Dim ListOfSheets As Variant
    Dim i As Integer
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set SrcRange = Application.Selection
    Set SrcRange = Application.InputBox("Select the range to copy:", xTitleId, SrcRange.Address, Type:=8)
    
    ListOfSheets = Application.InputBox("Enter target sheet names separated by commas (e.g. Sheet2,Sheet3):", xTitleId, "", Type:=2)
    
    Application.ScreenUpdating = False
    
    For i = 0 To UBound(Split(ListOfSheets, ","))
        SheetName = Trim(Split(ListOfSheets, ",")(i))
        
        If SheetName <> "" Then
            Set ws = Worksheets(SheetName)
            Set DestRange = ws.Range(SrcRange.Address)
            
            SrcRange.Copy
            DestRange.PasteSpecial xlPasteAll
        End If
    Next i
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    
    MsgBox "Copying completed.", vbInformation
End Sub

2. 点击 运行按钮（或按 F5）以执行宏。系统会提示您选择要复制的范围，然后提示输入目标工作表名称（如果有多个，则用逗号分隔）。宏随后将所选数据复制到每个指定工作表中的相同范围。

此方法介绍了 Kutools for Excel 的“自动递增工作表引用”工具，该工具旨在帮助您从几个不同的工作表中收集相同的单元格（或区域），并在新的汇总工作表中一起显示结果。这对于编译标准化报告或收集相同的指标（例如每月从每个团队或商店获取销售额）特别有用，无需手动重复操作。

1. 首先，通过点击“工作表标签栏”中的“新建”按钮创建一个新的工作表作为您的汇总或目标工作表。这有助于保持收集的数据分开并井然有序。

2. 接下来，在新的汇总工作表中选择要显示导入值的单元格（例如单元格 D7）。转到功能区上的“Kutools”选项卡，点击“公式”组下的“更多”，然后选择“动态引用工作表”。请参见截图：

3. 在“填充工作表引用”对话框中：

• 从“填充顺序”下拉菜单中选择适当选项——这决定了引用的填充方式，按行或按列。
• 在“工作表列表”中勾选要从中提取数据的工作表。
• 点击“填充范围”按钮以填充所选区域中的引用，然后点击“关闭”以完成。

每个工作表中选定单元格（或区域）的内容将在汇总工作表中动态列出，从而保持所有数据链接并自动更新。如果原始单元格发生变化，汇总也会随之更新。请参见截图：

Excel 公式允许您动态引用其他工作表中的数据，因此您可以从多个工作表中的相同单元格或区域提取信息，而无需反复复制和粘贴。这对于汇总表、仪表板或需要显示从各种工作表聚合的最新数据的情况非常有用。两种关键技术包括使用 INDIRECT 函数。

使用 INDIRECT 进行动态引用：
如果您的工作表名称不是相邻的，或者您想动态构建引用（例如，基于工作簿中的工作表名称列表），INDIRECT 函数很有帮助。这也可以用于从非连续工作表中检索特定单元格的数据。

1. 假设您在 A2:A4 中有一个目标工作表名称列表（例如 Sheet1、Sheet2、Sheet3），并且您想从每个工作表中获取单元格 B5 的值到单元格 B2，然后到 B3 等。在 B2 中输入：

=INDIRECT("'"&A2&"'!B5")

将此公式沿列表向下复制。每个单元格将显示相应工作表中 B5 单元格的值。

当您需要将存储在多个工作表中的所有记录合并到一个工作表中进行分析或报告时，Kutools for Excel 提供了便捷的“合并（工作表）”工具。这种方法特别适合编译历史数据、合并来自不同部门的工作表，或生成主列表以进行进一步的数据处理。

1. 点击“Kutools Plus” > “合并”以打开“合并工作表”对话框。这个强大的工具简化了大型工作簿中的复杂批量操作。

2. 在向导的第 1 步（共 3 步）中，选择“将工作簿中的多个工作表合并到一个工作表中”，然后点击“下一步”。请参见截图：

3. 第 2 步（共 3 步）：

• 在“工作簿列表”部分，确保只勾选了当前工作簿。
• 在“工作表列表”中，选择要合并的所有工作表。
• “相同区域”按钮有助于快速指定每个工作表中的相同范围，简化结构一致的工作簿的设置。

4. 第 3 步（共 3 步）允许您调整附加设置，例如处理标题、管理空白行和格式——根据需要配置，然后点击“完成”。

5. 将出现一个提示询问是否要保存您的合并方案。选择“是”以保存供将来使用，或“否”如果您不需要重新使用该设置。

该工具将完成从所有选定工作表中复制和合并数据到一个新工作表的过程，简化在一个统一位置进行进一步数据分析或报告的过程。

在 Excel 中跨工作表镜像/链接单元格

在 Excel 中跨工作表定义命名区域

在 Excel 中从多个工作表创建图表

跨工作表/工作簿应用条件格式