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

Question

假设我的数据按行排列，并且我想从中创建一个图表(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 + 变量对添加一个新系列。

有办法做到这一点吗？

潜在的答案不需要遵循我上面发布的内容，欢迎任何建议。

Answer 1

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

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