用 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 添加到圖表中，而不必一個接一個地單獨添加 select？

對於 x 范圍（日期）我可以做

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

但是對數據集（選擇多行）做同樣的事情是行不通的，因為散點圖 plot 中的每個系列都需要一個單獨的范圍

   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")