图表中的系列删除

我有一个表，并希望生成一个图表。 问题是我想只有列值A，F，G和H.

我试了系列收集（1）.deletion方法。 但我仍然在图表中获得B和C系列。

有谁能告诉我，我怎么能做到这一点。 任何潜在客户都会有帮助

Sub chartstatus() Dim Rng As Range Dim cht As Object Set Rng = ActiveSheet.Range("A2:H53") ThisWorkbook.Sheets("Status").ChartObjects.delete Set Sh = ActiveSheet.ChartObjects.Add(Left:=650, _ Width:=600, _ Top:=80, _ Height:=250) Sh.Select Set cht = ActiveChart With cht .SetSourceData Source:=Rng .ChartType = xlColumnClustered cht.Axes(xlSecondary).TickLabels.NumberFormat = "0.%" End With cht.SeriesCollection(6).Name = " % Missing " cht.SeriesCollection(7).Name = " % OnTime" cht.SeriesCollection(8).Name = " % Delayed" cht.SeriesCollection(6).HasDataLabels = True cht.SeriesCollection(7).HasDataLabels = True cht.SeriesCollection(8).HasDataLabels = True cht.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(255, 255, 255) '<~~ Red cht.HasTitle = True cht.ChartTitle.Text = "Result " End Sub 

Answer 1

您可以将2个范围组合成1个范围

 Dim Rng As Range Dim Rng_A As Range Dim Rng_FH As Range Set Rng_A = ActiveSheet.Range("A2:A52") Set Rng_FH = ActiveSheet.Range("F2:H52") Set Rng = Union(Rng_A, Rng_FH)