如何在 Excel 中跨多个工作表创建图表？

当您的目标是跨多个具有相同结构数据的工作表比较系列时，例如分别位于不同标签中的四个月份的区域销售情况，创建一个包含多个数据系列的综合柱状图可以提供有效的视觉对比。

此方法需要手动选择，但操作简单，不需要复杂的公式或宏。当您的工作表布局相同且需要直接从源表构建图表时，此方法最为有效。

按照以下步骤设置图表：

1. 点击 插入 > 插入柱形图 （或 柱形图) > 簇状柱形图。这将在工作表中打开一个空白图表。

2. 右键单击新插入的空白图表并选择 选择数据 从上下文菜单中。

3. 在“选择数据源”对话框中，点击 添加 按钮以开始添加新的数据系列。

4. 在“编辑系列”对话框中，输入系列名称并通过导航到相关工作表选择所需数据范围来指定系列值。仔细检查引用是否准确，因为引用错误可能会导致图表显示错误数据或 #REF 错误。点击确定以确认。

提示：要在系列值框中引用另一个工作表的数据，请切换到目标工作表，然后选择所需的范围。Excel 将自动在引用中包含工作表名称。

5. 对要包含在图表中的每个工作表重复步骤 3 和 4。添加完所有系列后，您将在 系列名称区域 中看到它们列在对话框中。

注意：确保始终在每个表上选择相同的单元格范围结构；不一致可能导致图表误导或对齐问题。

6. 要微调图表，请在“选择数据源”窗口中的水平（分类）轴标签下点击编辑。在轴标签对话框中，选择与数据正确对齐的相关标签。完成后点击确定。

7. 点击确定关闭“选择数据源”对话框。现在，您的图表已合并了来自多个工作表的数据系列。

8. （可选）为了提高视觉清晰度，选择图表，然后转到 设计 > 添加图表元素 > 图例，并选择一个选项（如 图例 > 底部）以显示标识每个系列的图例。

这种方法适用于静态数据集。但是，如果您的工作表布局不同或各表之间的数据范围不同，则需要先解决这些差异。如果您的数据经常更新或需要自动化整合，请考虑下面的其他解决方案以获得更高的效率。

这是最终的簇状柱形图，它直观地比较了来自四个不同工作表的数据系列：

在希望从多个工作表中挑选单个数据点而非整个系列来构建图表的情况下，您可以首先将目标单元格收集到汇总表中，然后一起绘制图表。这种情况通常发生在您想比较多个部门表中的单一指标时，例如“总计”值。

Kutools for Excel 的 自动递增工作表引用 提供了一种高效的方法，可以从多个表中提取特定值到一个汇总表中，对于动态数据尤其有用，因为源值可能会随时间变化。

以下是收集数据点并创建图表的方法：

1. 在工作表标签栏上，点击 新建 按钮 或 创建一个新的工作表用于整合。

2. 在这个新工作表中，选择您要从中提取数据的单元格。然后转到 Kutools > 更多 （在 公式 组下）> 自动递增工作表引用.

3. 在填充工作表引用对话框中，执行以下操作：

• 从填充顺序下拉菜单中选择 先行后列。这将把返回的值组织成垂直列表。
• 勾选包含您希望引用的单元格的工作表，确保只选择相关的源标签。
• 点击 填充区域 以拉取值，然后 关闭 完成。
  

提示：如果需要收集不同类型的数据，您可以多次执行此步骤，根据需要将它们排列为汇总表中的不同列或行。

完成这些步骤后，您会看到从每个工作表中选择的数据整齐地组织在新表中。

4. 高亮显示整合后的数据点，然后按照常规方式创建图表：插入 > 插入柱形图（或柱形图）> 簇状柱形图。

现在，您已经创建了一个簇状柱形图，该图直观地比较了选定的数据点，每个数据点均来自不同的工作表。

提示：

• 此方法最适合动态更新的图表，因为链接可以在源数据更改时自动刷新（前提是使用直接引用或公式）。
• 如果遇到 #REF! 错误，请检查源工作表的名称，因为重命名/删除的工作表会破坏引用。

演示：在 Excel 中跨多个工作表创建图表

对于寻求更自动化和可扩展解决方案的用户——尤其是处理大量工作表或需要例行更新时——VBA 宏可以高效地从多个工作表中收集数据并立即生成图表。VBA 允许您自定义数据整合过程，非常适合高级用户或任何需要频繁更新其报告的人。

优点： 自动化程度高，灵活性强，适合众多工作表。
潜在缺点： 需要运行宏的权限，一些用户可能不熟悉 VBA 语法或故障排除。

您可以使用以下示例将所有工作表中的特定单元格（例如 B2）合并到新的汇总表中，然后根据合并的数据创建簇状柱形图：

1. 点击 开发工具 > Visual Basic 打开 Microsoft Visual Basic for Applications 窗口。点击 插入 > 模块，然后将以下代码粘贴到模块中：

Sub CombineDataAndChart()
    Dim ws As Worksheet
    Dim summarySheet As Worksheet
    Dim lastRow As Long
    Dim destRow As Long
    Dim wsCount As Integer
    Dim i As Integer
    Dim rng As Range
    
    On Error Resume Next
    
    ' Create summary sheet or clear previous one
    Application.DisplayAlerts = False
    For Each ws In Worksheets
        If ws.Name = "SummaryChartData" Then
            ws.Delete
            Exit For
        End If
    Next
    Application.DisplayAlerts = True
    
    Set summarySheet = Worksheets.Add
    summarySheet.Name = "SummaryChartData"
    
    destRow = 1
    
    ' Set header
    summarySheet.Cells(destRow, 1).Value = "Sheet"
    summarySheet.Cells(destRow, 2).Value = "Value"
    destRow = destRow + 1
    
    ' Collect data from all sheets (change range as needed)
    For Each ws In Worksheets
        If ws.Name <> "SummaryChartData" Then
            summarySheet.Cells(destRow, 1).Value = ws.Name
            summarySheet.Cells(destRow, 2).Value = ws.Range("B2").Value ' Modify "B2" as needed
            destRow = destRow + 1
        End If
    Next
    
    ' Create chart
    Dim chartObj As ChartObject
    Set chartObj = summarySheet.ChartObjects.Add(Left:=250, Width:=350, Top:=20, Height:=250)
    
    chartObj.Chart.ChartType = xlColumnClustered
    chartObj.Chart.SetSourceData Source:=summarySheet.Range("A1:B" & destRow - 1)
    chartObj.Chart.HasTitle = True
    chartObj.Chart.ChartTitle.Text = "Combined Data from All Sheets"
    
    xTitleId = "KutoolsforExcel"
End Sub

2。点击 VBA 编辑器中的运行按钮以执行代码。宏将自动生成一个汇总表（“SummaryChartData”），从所有工作表（汇总表除外）中收集数据（在此示例中为单元格 B2 的值），并根据汇总数据构建图表。

注意：

• 如果您想从每个工作表中提取不同的单元格，请相应调整 ws.Range("B2") 引用。
• 若要包括更多列或灵活范围，您可以扩展代码逻辑或循环遍历列索引。
• 如果出现任何工作表名称冲突，宏将根据需要自动覆盖或重新创建汇总表。
• 在运行宏之前，请确保您的 Excel 设置允许宏执行。

如果遇到错误，请仔细检查工作表名称、指定的单元格引用，并验证没有工作表受到保护或隐藏。

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

在 Excel 中跨工作表定义名称范围

在 Excel 中复制到/从多个工作表？

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