删除空系列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

来源

2016-04-26 Joel Kanerva

我认为该项目SeriesCollection是图表上的点的集合，因此可能再次循环该SerieCollection项目中的点并检查该点的值是否等于0？ – ga56mor

甚至空数据集是数组...尝试这样：'如果UBound函数（ActiveChart.SeriesCollection（ⅰ）.Values）<= 1 Then' –

是我的差，的SeriesCollection项是保存点 – ga56mor

您是否尝试删除空白单元？

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

来源

2016-04-26 13:38:13 Alex

删除空系列VBA

回答

相关问题