Excel宏为不同的值创建图形

您好，我正在Excel中处理数据表中的25000行。每行都有一列用于显示产品代码、日期和重量。我想创建一个宏，生成每个产品代码的权重散点图（x轴上的日期，y轴上的权重）。我有按产品代码排序的数据，还有第四列，用于标识行何时有前一行的新产品代码

我记录了一个宏，其中我为一个产品代码创建了一个单独的图形，但我不确定如何修改它，以便它可以遍历整个工作表，使用相同的代码对行进行分组，并为每个行创建一个图形

我已经包括了我的数据截图。这是录制的宏的代码：

Sub Macro1()
'
' Macro1 Macro
' graph
'
' Keyboard Shortcut: Ctrl+g
'
    Range("B12:B19,D12:D19").Select
    Range("D12").Activate
    Charts.Add2
    ActiveChart.SetSourceData Source:=Range( _
        "'Cleaned Up'!$B$12:$B$19,'Cleaned Up'!$D$12:$D$19")
    ActiveChart.ChartType = xlXYScatter
    Sheets("Cleaned Up").Select
End Sub

---

提前感谢您的帮助

您希望通过代码进行聚合并通过图形进行汇总，这一事实让我认为您最好使用透视表

你通常不能做散点透视图。使散点图与轴数据一起工作

所以我将把原始数据格式化在一张纸上。使用聚合值/自定义摘要创建轴心。然后使用“轴散点”在周围工作

将工作簿保留为排序模板。因此，当您想要重新创建分析时，不需要宏。您只需在“数据”选项卡上插入一组新数据，刷新透视图，图表就会显示您的分散情况