如何在 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 中跨多个工作表复制或粘贴数据？

在工作表/工作簿间应用使用条件格式