删除空系列VBA
问题描述:
我想从Excel图表中删除空系列。我试过这段代码,但是if语句有问题。删除空系列VBA
Sub UpdateChart()
Dim i As Integer
For i = ActiveChart.SeriesCollection.Count To 1 Step -1
If ActiveChart.SeriesCollection(i).Values = 0 Then
ActiveChart.SeriesCollection(i).Delete
End If
Next i
End Sub
答
您是否尝试删除空白单元?
Sheets("Sheet1").Range("A1:A1").SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp
,或者如果您需要删除,你必须在一个范围内,你可以使用这样的空白数据的整个行或列;
Sheets("Sheet1").Range("A1:A1").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Sheets("Sheet1").Range("A1:A1").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
我认为该项目SeriesCollection是图表上的点的集合,因此可能再次循环该SerieCollection项目中的点并检查该点的值是否等于0? – ga56mor
甚至空数据集是数组...尝试这样:'如果UBound函数(ActiveChart.SeriesCollection(ⅰ).Values)
是我的差,的SeriesCollection项是保存点 – ga56mor