删除空系列VBA

我想删除Excel图表中的空白系列。 我已经试过这段代码，但是if语句有问题。

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 

Answer 1

你有没有尝试删除空白单元格？

 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