在同一系列的XY散点图中保持不连续的不相等大小的数据。

我需要创build一个基于可以不连续的数据区域的XY散点图的代码，也可能是不相同的大小。

例如，用户可以selectA6：A11和D7：D20。 我想macros然后创build一个graphics使用第一个作为X值，而下一个作为Y值。

我发现了一个奇怪的解决scheme：

Set r = Selection Set r1 = r.Areas(1) Set r2 = r.Areas(2) ActiveSheet.Range("A5:A6").Select ActiveSheet.Shapes.AddChart2(240, xlXYScatter).Select ActiveChart.FullSeriesCollection(1).Values = r1 ActiveChart.FullSeriesCollection(1).XValues = r2 

如果下面的行被删除，那么excel创build两个系列而不是一个。

 ActiveSheet.Range("A5:A6").Select 

看来这条线不应该被要求做我想做的事情，但它似乎提供了一些初始化，并防止数据被分成两个系列。 有没有另外一种方式，看起来更专业？

提前致谢！