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

Question

我需要有代码，根据可能不连续的数据区域创建XYscatterplot，并且可能也是不相等的。

例如，用户可以选择A6：A11和D7：D20。我希望宏然后使用第一个作为X值创建图形，然后将下一个作为Y值。

我找到了一个奇怪的解决方案：

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会创建两个系列而不是一个。

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

似乎这条线不应该被要求做我想要的，但它似乎提供某种初始化并防止数据被分成两个系列。还有另一种方式，那会更专业吗？

提前致谢！