添加第二个源数据集VBA Excel

Question

我有以下代码可基于单元格中的值更改在Excel中创建图形。该代码有效，但是，我需要向该图添加第二个数据源。这样该图将每人具有两个条形图。

Sheets("Rm18 Seating Plan").ChartObjects("Chart 6").Activate
If Range("AS4") = 7 Then
    ActiveChart.SetSourceData Source:=Range("B4:C35,L4:L35")
    Set Srs = ActiveChart.SeriesCollection(1)
    Srs.Name = "Year 7 Target"
ElseIf Range("AS4") = 8 Then
    ActiveChart.SetSourceData Source:=Range("B4:C35,N4:N35")
    Set Srs = ActiveChart.SeriesCollection(1)
    Srs.Name = "Year 8 Target"
ElseIf Range("AS4") = 9 Then
    ActiveChart.SetSourceData Source:=Range("B4:C35,P4:P35")
    Set Srs = ActiveChart.SeriesCollection(1)
    Srs.Name = "Year 9 Target"
End If

谢谢