使用VBA添加多个数据系列以优化图表

假设我有我的数据在行中，我想创build一个图表（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添加到图表中，而无需逐个单独select它们？

对于x范围（date）我可以做

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

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

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

但我有多个数据集的select。 我需要一种方法来分割我的input框select范围，并将它们写入唯一的variables。 然后我会用上面的方法为每个xrange +variables对添加一个新的系列。

有没有办法做到这一点？

一个potentail答案并不需要坚持我上面发布的任何build议，欢迎。

Answer 1

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

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