使用 VBA 将多个数据系列添加到 Excel 图表答案

【问题标题】：Add multiple data series to excel chart with VBA使用 VBA 将多个数据系列添加到 Excel 图表
【发布时间】：2012-04-03 22:54:38
【问题描述】：

假设我的数据成行，我想从中创建一个图表（x,y 散点图）。

date    1.1. 1.2. 1.3. 1.4 1.5
set1    12  36  12  23  33
set2    44  22  11  1   13
set3    54  5   56  56  34
set4    1   2   6   12  33

如何将 set1、set2 和 set4 而不是 set3 添加到图表中，而不必一个接一个地单独选择它们？

对于我可以做的 x 范围（日期）

Dim xrange As Range
Set xrange = Application.InputBox("select x-range", "Get Range", Type:=8)

但是对数据集（选择多行）做同样的事情是行不通的，因为散点图中的每个系列都需要一个单独的范围

   ActiveChart.SeriesCollection(1).XValues = xrange
   ActiveChart.SeriesCollection(1).Values = "=Sheet1!$4:$4"

但我有多个数据集可供选择。我需要一种方法来从我的输入框选择中拆分范围并将它们写入唯一变量。然后我会使用上述方法为每个 xrange + 变量对添加一个新系列。

有没有办法做到这一点？

可能的答案不需要坚持我上面发布的内容，欢迎提出任何建议。

【问题讨论】：

你必须使用.SeriesCollection.NewSeries。请参阅我在stackoverflow.com/questions/9778827/… 中的回复。

【解决方案1】：

设置源数据范围。 Excel 将自动为您创建系列。在下面的示例中，我将 A 列设为 X，B 列设为 Y1，D 列设为 Y2：

ActiveChart.SetSourceData Source:=Range("A1:B4,D1:D4")

【讨论】：

删除 X 值顶部单元格中的标签（在本例中为“日期”），以帮助 Excel 识别它们是 X 值而不是另一组 Y 值。如果 Excel 在第一列中注意到日期格式，这可能是不必要的，但最好确定一下。